?? show_result_cake.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 sum_num,i,count
i=0
count = 0
sum_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
sum_num = sum_num + session("rs")("vote_num")
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)/sum_num*100)/100 & ","
next
response.write CInt(arr_num(count-1)/sum_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_opt(i) & CInt(arr_num(i)/sum_num*100) & "%"","
next
response.write """" & arr_opt(count-1) & CInt(arr_num(count-1)/sum_num*100) & "%""];" & vbCrLf
response.write "ScreenCoord.Origin = new Point(30,120);" & vbCrLf
response.write "var cc1 = new CakeChart(d,c,t);" & vbCrLf
response.write "cc1.TextSize = 12;" & vbCrLf
response.write "cc1.Radius = 100;" & vbCrLf
response.write "cc1.Draw();" & vbCrLf
response.write "</script>" & vbCrLf
session("rs").close
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -