<%@LANGUAGE="VBSCRIPT">%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<%
Vote=request("r1") 這個r1是你設的名稱變數,可以自己改
select case Vote VB的SELECT CASE控制項
case "1" 有幾個選項就設幾個case
application("Vote1")=application("Vote1")+1 按下按鈕送出表單後統計+1
case "2"
application("Vote2")=application("Vote2")+1
case "3"
application("Vote3")=application("Vote3")+1
case "4"
application("Vote4")=application("Vote4")+1
End select 結束後必須加上這個