📄 show_result_bar.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>Untitled Document</title>
<script language="JavaScript" type="text/JavaScript" src="../include/System.js"></script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript">
System.Path("../include/");
System.LinkStyle();
System.LoadUnit("DataGraphic");
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
dim arr_num(10)
dim arr_opt(10)
dim max_num,i,count
i=0
count = 0
max_num =0
str = "select [option],vote_num from vote_option where title_id = 1" '& Request("id")
session("rs").open str,session("conn")
while not session("rs").eof
arr_num(count) = session("rs")("vote_num")
arr_opt(count) = session("rs")("option")
count = count +1
if session("rs")("vote_num") > max_num then
max_num = session("rs")("vote_num")
end if
session("rs").movenext
wend
response.write "<script language=""JavaScript"" type=""text/JavaScript"">" & vbCrLf
response.write "var d = ["
for i=0 to count-2
response.write CInt(arr_num(i)/max_num*100)/100 & ","
next
response.write CInt(arr_num(count-1)/max_num*100)/100 & "];" & vbCrLf
response.write "var c = [""red"",""green"",""blue"",""black"",""gray""];" & vbCrLf
response.write "var t = ["
for i=0 to count-2
response.write """" & arr_num(i) & "Ʊ"","
next
response.write """" & arr_num(count-1) & "Ʊ""];" & vbCrLf
response.write "var l = ["
for i=0 to count-2
response.write """" & arr_opt(i) & ""","
next
response.write """" & arr_opt(count-1) & """];" & vbCrLf
response.write "ScreenCoord.Origin = new Point(10,210);" & vbCrLf
response.write "var bc1 = new BarChart(d,c,t,l);" & vbCrLf
response.write "bc1.BarHeight=200;" & vbCrLf
response.write "bc1.Draw();" & vbCrLf
response.write "</script>" & vbCrLf
session("rs").close
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -