?? column.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 + -