% Set Counters=server.createobject("MSWC.Counters") Counters.Set "cnbruce",10 Counters.set "it365cn",20 Counters.set "blueidea",30 %> 共有%= Counters.Get("cnbruce") %>次访问 cnbruce.com 网站 br> 共有%= Counters.Get("it365cn") %>次访问 it365cn.com 网站 br> 共有%= Counters.Get("blueidea") %>次访问 blueidea.com 网站 br> |
% Set Counters=server.createobject("MSWC.Counters") %> 共有%= Counters.Increment("cnbruce") %>次访问 cnbruce.com 网站 br> 共有%= Counters.Increment("it365cn") %>次访问 it365cn.com 网站 br> 共有%= Counters.Increment("blueidea") %>次访问 blueidea.com 网站 br> |
% set Counters=server.createobject("MSWC.Counters") vote = Request.QueryString("site") Counters.Increment(vote) %> Vote for your Favorite Site: FORM NAME="Voting for Sites" METHOD="GET" ACTION="vote.asp"> input type="RADIO" NAME="site" VALUE="cnbruce">cnbruce input type="RADIO" NAME="site" VALUE="it365cn">it365cn input type="RADIO" NAME="site" VALUE="blueidea">blueidea BR>INPUT TYPE="SUBMIT" VALUE="Submit Vote"> /FORM> Current Vote Tally:BR> Cnbruce: % =Counters.Get("cnbruce") %>BR> It365cn: % = Counters.Get("it365cn") %>BR> Blueidea: % = Counters.Get("blueidea") %>BR> |
% set Counters=server.createobject("MSWC.Counters") vote = Request.QueryString("site") clear = Request.QueryString("clear") Counters.Increment(vote) If Not clear="" Then Counters.Remove("cnbruce") Counters.Remove("it365cn") Counters.Remove("blueidea") End If %> Vote for your Favorite Site: FORM NAME="Voting for Sites" METHOD="GET" ACTION="remove.asp"> input type="RADIO" NAME="site" VALUE="cnbruce">cnbruce input type="RADIO" NAME="site" VALUE="it365cn">it356cn input type="RADIO" NAME="site" VALUE="blueidea">blueidea BR>INPUT TYPE="SUBMIT" VALUE="Submit Vote"> /FORM> Current Vote Tally:BR> Cnbruce: % =Counters.Get("cnbruce") %>BR> It365cn: % = Counters.Get("it365cn") %>BR> Blueidea: % = Counters.Get("blueidea") %> FORM NAME="Clear Counters" METHOD="GET" ACTION="remove.asp"> BR>INPUT TYPE="SUBMIT" VALUE="Clear the Counters" NAME="clear"> /FORM> |