📄 y2000v2.asp
字号:
<!-- #include virtual="/kjasp/func/CCookies.fun" -->
<!-- #include virtual="/kjasp/func/DB.fun" -->
<% Response.Buffer = True %>
<HTML>
<BODY Background="../B01.jpg">
<%
If Not IsCookiesOpen Then
ErrMsg = "本网页须使用 Cookies 功能，请先打开 Cookies!"
End If
Myself = Request.ServerVariables("PATH_INFO")
Set rs = GetMdbRecordset("Y2000.mdb", "Vote")
If rs Is Nothing Then
Response.Write "GetMdbRecordset 失败!"
Response.End
End If
vote = Request("vote")
If vote <> Empty And Request.Cookies("Voted") <> "Yes" And ErrMsg = Empty Then
Select case vote
Case "曹操"
rs("曹操") = rs("曹操") + 1
Case "诸葛亮"
rs("诸葛亮") = rs("诸葛亮") + 1
Case "司马懿"
rs("司马懿") = rs("司马懿") + 1
Case "刘备"
rs("刘备") = rs("刘备") + 1
Case "孙权"
rs("孙权") = rs("孙权") + 1
Case "未决定"
rs("未决定") = rs("未决定") + 1
End Select
rs.UPdate
Response.Cookies("Voted") = "Yes"
ExpireDate = DateAdd("d", 2, Date)
Response.Cookies("Voted").Expires = FormatDateTime(ExpireDate)
End If
can01 = rs("曹操")
can02 = rs("诸葛亮")
can03 = rs("司马懿")
can04 = rs("刘备")
can05 = rs("孙权")
can06 = rs("未决定")
Total = can01 + can02 + can03 + can04 + can05 + can06
If Total > 0 Then ' 防止出现除以 0 的错误
per01 = can01 / Total
per02 = can02 / Total
per03 = can03 / Total
per04 = can04 / Total
per05 = can05 / Total
per06 = can06 / Total
End If
%>
<H2>您会选谁为本年度的最佳球员？<HR></H2>
<BLOCKQUOTE>
<TABLE Border=1 Cellpadding=4 Cellspacing=1>
<TR BgColor=Yellow><TD>候选人</TD><TD>得票率</TD></TR>
<TR><TD>
<A HREF="<%=Myself%>?vote=曹操">曹 操:</A>
</TD><TD>
<IMG SRC=100.gif Height=16 Width=<%=per01*400%> Align=TextTop>
(<%=FormatNumber(per01*100, 2, True)%>%)
</TD></TR>
<TR><TD>
<A HREF="<%=Myself%>?vote=诸葛亮">诸葛亮:</A>
</TD><TD>
<IMG SRC=100.gif Height=16 Width=<%=per02*400%> Align=TextTop>
(<%=FormatNumber(per02*100, 2, True)%>%)
</TD></TR>
<TR><TD>
<A HREF="<%=Myself%>?vote=司马懿">司马懿:</A>
</TD><TD>
<IMG SRC=100.gif Height=16 Width=<%=per03*400%> Align=TextTop>
(<%=FormatNumber(per03*100, 2, True)%>%)
</TD></TR>
<TR><TD>
<A HREF="<%=Myself%>?vote=刘备">刘 备:</A>
</TD><TD>
<IMG SRC=100.gif Height=16 Width=<%=per04*400%> Align=TextTop>
(<%=FormatNumber(per04*100, 2, True)%>%)
</TD></TR>
<TR><TD>
<A HREF="<%=Myself%>?vote=孙权">孙 权:</A>
</TD><TD>
<IMG SRC=100.gif Height=16 Width=<%=per05*400%> Align=TextTop>
(<%=FormatNumber(per05*100, 2, True)%>%)
</TD></TR>
<TR><TD>
<A HREF="<%=Myself%>?vote=未决定">未决定:</A>
</TD><TD>
<IMG SRC=100.gif Height=16 Width=<%=per06*400%> Align=TextTop>
(<%=FormatNumber(per06*100, 2, True)%>%)</TR></TABLE>
总投票数: <%=Total%>
</BLOCKQUOTE>
<HR>
<%If Request.Cookies("Voted") = "Yes" and vote <> Empty Then%>
<FONT Color=Red>您已经投票了!</FONT>
<%ElseIf ErrMsg <> Empty Then%>
<FONT Color=Red><%=ErrMsg%></FONT>
<%End If%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -