《网页制作案例》例9-5网站投票

例9.5这个例子( vote. asp)利用计数器组件实现简单的投票计数功能(程序名: vote. asp) Set Counters=Server CreateObject("MS WC Counters") Vote=Request Query String("Site") Counters. Increment( Vote 为你喜欢的网站投票: <Form Name=""Voting for Sites"Method="GET"'Action="vote. asp"> <Input Type="Radio"Name="Site"Value="vtc">vtc <Input Type="Radio Name=""Site"Value="itnet>itnet. com.cn <Input Type="Radio"Name="Site"Value="bbsnet>bbsnetnet <Br>< INPUT TYPE= Submit”vaue=“投票” <Form> 当前投票结果:<Br> Cnbruce <%=Counters Get("vtc")%><Br> It365cn: <%=Counters Get("itnet")%><Br> Blueidea: <%=Counters Get("bbsnet )%><Br>

例 9.5 这个例子(vote.asp)利用计数器组件实现简单的投票计数功能(程序名：vote.asp)。 <% 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>