程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> 如何使用ASP在自己的網站建立投票機制（二）

如何使用ASP在自己的網站建立投票機制（二）

編輯：ASP技巧

4、文件default.ASP
<%
   ID = Request("ID")
   If ID = "" Then
       ID = 30
   End If
   Title = "Polls (Create your own poll)"
%>

<Html>

<head><link rel="STYLESHEET" type="text/CSS" href="style.CSS">
<title>ASP Polls</title>

</script>
</head>

<body>
<div align="left"><img src="ASP_poll.gif" width="231" height="90"><br>Another joint PRoduct from <a href="Tipped'>http://www.ncws.com/tippycow">Tipped Cow Development</a> and <a href="Adrenalin'>http://dstoflet.calweb.com">Adrenalin Labs</a>
<br><br>
</div>
<table width="100%" cellspacing="0" cellpadding="2">
<tr>
<td align="left" width="25%" valign="top" class="bold">
<form action="default.ASP">
<table width="100" border="1" bordercolor=#ccccff>
<tr>
<td>
<table border=0 cellspacing=0 cellpadding=5 bgcolor=#4f4f4f><tr>
<td colspan=3 bgcolor=#000000 align=center class="bold2">Select A Poll</td>
</tr><tr>
<td colspan=3 bgcolor=#000000 align=center>
<select name="ID" onChange="gatherForm(this.form)" class="input">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open application("ASPPollDSN")
sql = "select * from Poll"
Set rs = conn.Execute(sql)
Do While Not rs.EOF
%>

<%
rs.MoveNext
Loop
%>

</select>
</tr>

<tr>
<td colspan=3 align=right bgcolor=#FFFFFF class="bold">
Vote In Poll:<input type="radio" name="Mode" value="Vote" CHECKED><br>
View Results:<input type="radio" name="Mode" value="VIEw">
</td></tr>

</table>
</td>
</tr>
</table></form><br>
<div align="left" class="bold">
<a href="create_poll1.ASP">Create your own poll</a><br>
<a href='Javascript:history.back()'>Back</a>
</div>
</td>

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Application("ASPPollDSN")
sql = "select * from Poll where ID = " & ID
Set rs = conn.Execute(sql)
If rs.EOF = False Then
%>

</tr>
   <% If rs("GetName") = "1" Then %>
           <tr><td colspan=1 align=right bgcolor=#FFFFFF class="bold">
Your Name:</td>
           <td colspan=2 align=right bgcolor=#FFFFFF>
             <input type="text" name="Name">
          </td></tr>
   <% End If %>
<tr>
<td colspan=3 align=right bgcolor=#000000 align=center>
    <input type="submit" value="Submit Vote" class="inline">
</td></tr>
</table>

<%
     Else
        Response.Write "Invalid Poll Id Request!"
     End If
%>
</td></tr></form></table>

</td>
</tr>
</table>
</body>
</Html>

5、文件global.asa
<SCRIPT LANGUAGE="VBScript" RUNAT="SERVER">

   Sub Application_OnStart
      Application("ASP_Poll") = "ASP_Poll"
      cnString = "DRIVER={Microsoft Access Driver (*.mdb)}; "
      cnString = cnString & "DBQ=" & Server.MapPath("Events.mdb")
      Application("ASPPollDSN") = cnString
   End Sub
</SCRIPT>

6、文件pool.inc
<%
   DBPath = Server.MapPath("/poll/Events.mdb")
   ID = 28
   If Request.CookIEs("PollID") = CStr(ID) Then
         ShowDisplay
   Else
         ShowVote
   End If

Function ConvertToPercent(total, sz)
    If sz = 0 Then
         ConvertToPercent = "0%"
    Else
         ConvertToPercent = FormatPercent(sz/total, 2)
    End If
End Function

Sub ShowVote

</td></tr></form></table>

</center>

End Sub

Sub ShowDisplay

   Set conn = Server.CreateObject("ADODB.Connection")
   sql = "select * from Poll where ID = " & Cint(ID)
   dsnpath = "DRIVER={MICROSOFT Access DRIVER (*.mdb)}; "
   dsnpath = dsnpath & "DBQ=" & DBPath
   conn.open dsnpath
   Set rs = Conn.Execute(sql)
   If rs.EOF = False Then
      Dim Choices(6)
      Dim Responses(6)
      For I=1 To 5
          choice = rs("Choice" & I)
          Choices(I) = choice
          If choice <> "" Then
              Set conn2 = Server.CreateObject("ADODB.Connection")
              sql = "select COUNT(PollAnswer) from PollResults where PollID = " & Cint(id) & " AND PollAnswer=" & I
            dsnpath = "DRIVER={MICROSOFT Access DRIVER (*.mdb)}; "
              dsnpath = dsnpath & "DBQ=" & DBPath
              conn2.open dsnpath
              Set rs2 = Conn.Execute(sql)
              If rs2.EOF = False Then
                 Responses(I) = rs2(0)
              End If
              rs2.Close
              conn2.Close
          End If
      Next
%>
<div align="right">
<table border=1 cellspacing=0 cellpadding=2><tr><td>
<table width=125 border=0 cellspacing=0><tr>
<td colspan=2 bgcolor=#2f2f4f align=center class=orgbold>ASP Poll
</td></tr>
<tr><td colspan=2 align=center bgcolor=#ccccff class=black>
Q:<%=rs("PollQuestion")%>
</td></tr>

<%
      Total = 0
      For I=1 To 5
          responseCount = Responses(I)
          If responseCount <> "" Then
                 Total = Total + Cint(responseCount)
          End If
      Next
      For I=1 To 5
          choice = Choices(I)
          responseCount = Responses(I)
          If choice <> "" Then
                 Response.Write "<tr><td colspan=1 align=left><font face='verdana' size=-1 color=#f0f0f0>"
                 Response.Write choice
                 Response.Write "</td>"
                 Response.Write "<td>" & ConvertToPercent(total, responseCount) & "</td>"
                 Response.Write "</tr>"
          End If
      Next
      Response.Write "</table></td></tr></table></div>"
End If
End Sub
%>
</div>