<%
accessdb="stocks"
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from yahoo order by weekof asc "
rs.Open sql, cn
%>
<div align="center">
<table cellspacing="0" cellpadding="0">
<tr>
<%
On Error Resume Next
rs.MoveFirst
'设置成和第一周高度相同的高低范围
low = rs("high")
high=rs("high")
do while Not rs.eof
%>
<td width="5" align="left" valign="bottom">
<img src="data:image/svg+xml,%3Csvg%20xmlns='http://www.w3.org/2000/svg'%20viewBox='0%200%20480%20640'%3E%3C/svg%3E" loading='lazy' data-lazy-src="images/blue.jpg" width="5" height="<%= rs("high") %>"
alt="Week of <%= rs("weekof") %>, High was $<%= formatnumber(rs("high"),2) %>"></td>
<%
'如果当前的周更低,那就把第一个或者更低的周放到低的地方
if low > rs("high") then
low = rs("high")
end if
'如果当前的周更高,那就把第一个或者更高的周放到高的地方
if high < rs("high") then
high = rs("high")
end if
'什么是最近的周
last_week=rs("weekof")
'计算出被用老生成动态图表的元件数
count_cells=count_cells+1
'如果有一个划分,把它添加了用来分开
if rs("split") <> "" then
splits= splits & "<br>" & rs("split") & "-" & rs("weekof")
end if
rs.MoveNext
loop
%>
<table cellspacing="0" cellpadding="0"><tr>
<td align="center" valign="top" width="<%= count_cells*5 %>">
<% rs.Movefirst %>
<br>
Yahoo Weekly Highs from <%= rs("weekof")%> to <%= last_week %>
<br>Low for this range : $<%= formatnumber(low,2) %>
<br>High for this range : $<%= formatnumber(high,2) %>
<br> <%= splits %>
</td></tr></table>
</div>
热门信息
阅读 (110)
1 asp 如何解析api接口返回的xml阅读 (109)
2 什么样的编程语言是最值得我们学习的呢?阅读 (109)
3 ASP-数组阅读 (108)
4 asp网站伪静态化URL Rewrite中的httpd.ini伪静态化规则编写方法阅读 (106)
5 asp取access数据库里本周、本月、本季度的记录~