📄 柱状图.asp
字号:
<HTML>
<TITLE>
柱状图
</TITLE>
<BODY>
<SCRIPT LANGUAGE="VBScript" RUNAT="SERVER">
function MakeColumn(title, numarray, labelarray, maxheight, maxwidth)
dim ColumnString
dim max
dim maxlength
dim tempnumarray
dim templabelarray
dim heightarray
Dim colorarray
Dim multiplier
if maxheight > 0 and maxwidth > 0 and ubound(labelarray) = ubound(numarray) then
colorarray = array("red","blue","yellow","navy","orange","purple","green")
templabelarray = labelarray
tempnumarray = numarray
heightarray = array()
max = 0
maxlength = 0
ColumnString = "<TABLE bgcolor='gold' border='6'><tr><td><TABLE border='0' cellspacing='1' cellpadding='0'>" & vbCrLf
for each stuff in tempnumarray
if stuff > max then max = stuff end if
next
multiplier = maxheight/max
for counter = 0 to ubound(tempnumarray)
if tempnumarray(counter) = max then
redim preserve heightarray(counter)
heightarray(counter) = maxheight
else
redim preserve heightarray(counter)
heightarray(counter) = tempnumarray(counter) * multiplier
end if
next
ColumnString = ColumnString & "<TR><TH colspan='" & ubound(tempnumarray)+1 & "'>" & _
"<FONT SIZE='1'><U>" & title & "</TH></TR>" & vbCrLf & "<TR>" & vbCrLf
for counter = 0 to ubound(tempnumarray)
ColumnString = ColumnString & vbTab & "<TD valign='bottom' align='center' >" & _
"<FONT SIZE='1'><table border='0' cellpadding='0' width='" & maxwidth & "'><tr><tr><td valign='bottom' bgcolor='"
ColumnString = ColumnString & colorarray(counter mod (ubound(colorarray)+1))
ColumnString = ColumnString & "' height='" & round(heightarray(counter),2) & "'></td></tr></table>"
ColumnString = ColumnString & "<BR>" & tempnumarray(counter)
ColumnString = ColumnString & "</TD>" & vbCrLf
next
ColumnString = ColumnString & "</TR>" & vbCrLf
for each stuff in labelarray
if len(stuff) >= maxlength then maxlength = len(stuff)
next
for each stuff in labelarray
ColumnString = ColumnString & vbTab & "<TD align='center'><FONT SIZE='1'><B> "
for count = 0 to round((maxlength - len(stuff))/2)
ColumnString = ColumnString & " "
next
if maxlength mod 2 <> 0 then ColumnString = ColumnString & " "
ColumnString = ColumnString & stuff
for count = 0 to round((maxlength - len(stuff))/2)
ColumnString = ColumnString & " "
next
ColumnString = ColumnString & " </TD>" & vbCrLf
next
ColumnString = ColumnString & "</TABLE></td></tr></table>" & vbCrLf
MakeColumn = ColumnString
else
Response.Write "柱状图函数参数有错"
end if
end function
dim stuff
dim labelstuff
stuff = Array(72,39,60,42)
labelstuff = Array("北京", "上海","广州","重庆")
Response.Write MakeColumn("演示", stuff, labelstuff, 150,30)
</SCRIPT>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -