<% Response.Buffer = True %>

<% Myself = Request.ServerVariables("PATH_INFO") IP = Request.ServerVariables("REMOTE_ADDR") Set rs = GetMdbRecordset("Test2000-2.html", "Vote") If rs Is Nothing Then Response.Write "GetMdbRecordset ア毖!" Response.End End If SQL = "Select * From VoteRecord Where IP = '" & IP & "' " SQL = SQL & "Order By VoteTime Desc" Set rs2 = GetMdbRecordset("Test2000-2.html", SQL ) If Not rs2.EOF Then NextVoteTime = 10 - DateDiff( "n", rs2( "VoteTime"), Now ) End If vote = Request("vote") If vote <> Empty And NextVoteTime <= 0 Then Select case vote Case "teacher1" rs("teacher1") = rs("teacher1") + 1 Case "teacher2" rs("teacher2") = rs("teacher2") + 1 Case "teacher3" rs("teacher3") = rs("teacher3") + 1 Case "teacher4" rs("teacher4") = rs("teacher4") + 1 Case "teacher5" rs("teacher5") = rs("teacher5") + 1 Case "undecide" rs("undecide") = rs("undecide") + 1 End Select rs.UPdate rs2.AddNew rs2("IP") = IP rs2("VoteTime") = Now rs2.Update End If can01 = rs("teacher1") can02 = rs("teacher2") can03 = rs("teacher3") can04 = rs("teacher4") can05 = rs("teacher5") can06 = rs("undecide") Total = can01 + can02 + can03 + can04 + can05 + can06 If Total > 0 Then ' ňゎ瞷埃 0 岿粇 per01 = can01 / Total per02 = can02 / Total per03 = can03 / Total per04 = can04 / Total per05 = can05 / Total per06 = can06 / Total End If %>

Which teacher that you think is better in HPU

Candidatespercentage
teacher1: Align=TextTop> (<%=FormatNumber(per01*100, 2, True)%>%)
teacher2: Align=TextTop> (<%=FormatNumber(per02*100, 2, True)%>%)
teacher3: Align=TextTop> (<%=FormatNumber(per03*100, 2, True)%>%)
teacher4: Align=TextTop> (<%=FormatNumber(per04*100, 2, True)%>%)
teacher5: Align=TextTop> (<%=FormatNumber(per05*100, 2, True)%>%)
undecide: Align=TextTop> (<%=FormatNumber(per06*100, 2, True)%>%)
羆щ布计: <%=Total%>
<%If NextVoteTime > 0 And vote <> Empty Then%>  IP 竒щ布 斗单 <%=NextVoteTime%> だ牧щ布! <%End If%>

<Back to Home>