财务图表

利用一些简单的html，来自可以生成的没有第三个元素需求的数据库有效图表的输出。这个数据库的例子包含每周的高度，以周结束的日期（weekof)）和分开的股票信息。图像文件的高度（blue.jpg）被调整到以周结束的高度（high），图像的高度被设置成以周结束的日期（weekof）和值（high）。
<%
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="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>

简单生活，希望对大家有用!要觉得本文有价值请分享给您的朋友，生活就是人来人往，分享越多!收获越多!作者：天天ASP家园