|
<HTML>
<HEAD>
<TITLE>Counters组件</TITLE>
<style type="text/css">
<!--
.STYLE1 {font-size: 12px}
-->
</style>
</HEAD>
<BODY>
<span class="STYLE1"><B>闯关大赛</B> - 你认为本期擂主是 </span>
<FORM ACTION="3-17.asp" METHOD=GET class="STYLE1">
<INPUT NAME="R1" TYPE="radio" value="红" checked>
红队
<INPUT NAME="R1" TYPE="radio" value="蓝">
蓝队
<INPUT NAME="R1" TYPE="radio" value="黄">
黄队
<INPUT TYPE="submit" class="STYLE1" value="投票">
</FORM>
<span class="STYLE1">
<%
Dim voted
voted=Request.QueryString("R1")
If voted = "红" Then
Counter.Increment("votecounter1")
ElseIf voted = "蓝" Then
Counter.Increment("votecounter2")
ElseIf voted = "黄" Then
Counter.Increment("votecounter3")
End If
%>
<br>
</span>
<h4 class="STYLE1">结果统计</h4>
<span class="STYLE1">
<%
Dim v1, v2, v3, v
v1=CLng(Counter.Get("votecounter1"))
v2=CLng(Counter.Get("votecounter2"))
v3=CLng(Counter.Get("votecounter3"))
v=v1+v2+v3
%>
红队:<%=Counter.Get("votecounter1")%> -
<%= FormatNumber((v1/v)*100,1) %>%<BR>
蓝队:<%=Counter.Get("votecounter2")%> -
<%= FormatNumber((v2/v)*100,1) %>%<BR>
黄队:<%=Counter.Get("votecounter3")%> -
<%= FormatNumber((v3/v)*100,1) %>%<BR>
</span>
</BODY>
</HTML>
用IE浏览提示40行错误。v1=CLng(Counter.Get("votecounter1"))
请问怎么改动?是一个ASP程序。 |
|