 |
|
|
| 返回 | 主页 |
用ASP生成Chart1
[摘要]
"set title
tablestring = tablestring & "＜TR＞＜TH colspan="" & ubound(tempnumarray)+1 & ""＞" & _
"＜FONT FACE="Verdana, Arial, Helvetica" S...
"set title
tablestring = tablestring & "＜TR＞＜TH colspan="" & ubound(tempnumarray)+1 & ""＞" & _
"＜FONT FACE="Verdana, Arial, Helvetica" SIZE="1"＞＜U＞" & title & "＜/TH＞＜/TR＞" & _
vbCrLf & "＜TR＞" & vbCrLf
"loop through values
for counter = 0 to ubound(tempnumarray)
tablestring = tablestring & vbTab & "＜TD valign="bottom" align="center" ＞" & _
"＜FONT FACE="Verdana, Arial, Helvetica" SIZE="1"＞" & _
"＜table border="0" cellpadding="0" width="" & maxwidth & ""＞＜tr＞" & _
"＜tr＞＜td valign="bottom" bgcolor=""
if not isNUll(color) then
"if color present use that color for bars
tablestring = tablestring & color
else
"if not loop through colorarray
tablestring = tablestring & colorarray(counter mod (ubound(colorarray)+1))
end if
tablestring = tablestring & "" height="" & _
round(heightarray(counter),2) & ""＞＜img src="chart.gif" width="1" height="1"＞" & _
"＜/td＞＜/tr＞＜/table＞"
if addvalues then
"print actual values
tablestring = tablestring & "＜BR＞" & tempnumarray(counter)
end if
tablestring = tablestring & "＜/TD＞" & vbCrLf
next
tablestring = tablestring & "＜/TR＞" & vbCrLf
"calculate max lenght of labels
for each stuff in labelarray
if len(stuff) ＞= maxlength then maxlength = len(stuff)
next
"print labels and set each to maxlength
for each stuff in labelarray
tablestring = tablestring & vbTab & "＜TD align="center"＞＜" & _
"FONT FACE="Verdana, Arial, Helvetica" SIZE="1"＞＜B＞ "
for count = 0 to round((maxlength - len(stuff))/2)
tablestring = tablestring & " "
next
if maxlength mod 2 ＜＞ 0 then tablestring = tablestring & " "
tablestring = tablestring & stuff
for count = 0 to round((maxlength - len(stuff))/2)
tablestring = tablestring & " "
next
tablestring = tablestring & " ＜/TD＞" & vbCrLf
next
tablestring = tablestring & "＜/TABLE＞＜/td＞＜/tr＞＜/table＞" & vbCrLf
makechart = tablestring
else
Response.Write "Error Function Makechart: maxwidth and maxlength have to be greater " & _
" then 0 or number of labels not equal to number of values"
end if
end function
dim stuff
dim labelstuff
" Demo 1
stuff = Array(5,30)
labelstuff = Array("北京", "广州")
Response.Write makechart("Demo 1", stuff, labelstuff, null, "gold",10, 50,40,true)
＜/SCRIPT>
其它培训参考信息：
禁用浏览器的后退按钮2
禁用浏览器的后退按钮1
用ASP进行网络打印功能2
用ASP进行网络打印功能1
对SQL数据库的一些攻击3
对SQL数据库的一些攻击2
对SQL数据库的一些攻击1
Jmail的主要参数列表
信息来自互联网，敬请核实，谨慎使用