vote.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 17 行

<%
set Counters=server.createobject("MSWC.Counters")
vote = Request.QueryString("site")
Counters.Increment(vote) 
%>
为你喜欢的网站投票：
<FORM NAME="Voting for Sites" METHOD="GET" ACTION="vote.asp">
<input type="RADIO" NAME="site" VALUE="qvtc">qvtc
<input type="RADIO" NAME="site" VALUE="itnet">itnet.com.cn
<input type="RADIO" NAME="site" VALUE="bbsnet">bbsnet.net
<BR><INPUT TYPE="SUBMIT" VALUE="投票">
</FORM>
当前投票结果:<BR>
Cnbruce: <% =Counters.Get("qvtc") %><BR>
It365cn: <% = Counters.Get("itnet") %><BR> 
Blueidea: <% = Counters.Get("bbsnet") %><BR>