您现在的位置： 
bsp; End If
End Function
Sub ShowVote
%>
<div align=right>
<table width=125 border=1 cellspacing=0 cellpadding=0><tr><td>
<form method="post" action="/poll/collect.asp">
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="return_page" value="<%=Request.ServerVariables("PATH_INFO")%>">
<%
Set conn = Server.CreateObject("ADODB.Connection")
dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
dsnpath = dsnpath & "DBQ=" & DBPath
conn.open dsnpath
sql = "select * from Poll where ID = " & ID
Set rs = conn.Execute(sql)
If rs.EOF = False Then
%>
<table width=125 border=0 cellspacing=0 cellpadding=2 bgcolor=#4f4f4f>
<tr>
<td colspan=3 bgcolor=#2f2f4f align=center>
<%=rs("PollQuestion")%>
</td>
</tr>
<%
For I=1 To 5
choice = rs("Choice" & I)
If choice <> "" Then
%>
<tr>
<td colspan=2 bgcolor=#000000 valign=top width=80%>
<%=choice%> </td><td valign=top colspan=1 width=20% bgcolor=#000000> <input type="radio" name="choice" value="<%=I%>">
</td></tr>
<%
End If
Next
%>
<tr>
<td colspan=3 align=center bgcolor=#2f2f4f align=right>
<input type="submit" value="Submit" class=nav>
</td></tr>
</table>
<%
End If
%>
</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>
End Function
Sub ShowVote
%>
<div align=right>
<table width=125 border=1 cellspacing=0 cellpadding=0><tr><td>
<form method="post" action="/poll/collect.asp">
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="return_page" value="<%=Request.ServerVariables("PATH_INFO")%>">
<%
Set conn = Server.CreateObject("ADODB.Connection")
dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
dsnpath = dsnpath & "DBQ=" & DBPath
conn.open dsnpath
sql = "select * from Poll where ID = " & ID
Set rs = conn.Execute(sql)
If rs.EOF = False Then
%>
<table width=125 border=0 cellspacing=0 cellpadding=2 bgcolor=#4f4f4f>
<tr>
<td colspan=3 bgcolor=#2f2f4f align=center>
<%=rs("PollQuestion")%>
</td>
</tr>
<%
For I=1 To 5
choice = rs("Choice" & I)
If choice <> "" Then
%>
<tr>
<td colspan=2 bgcolor=#000000 valign=top width=80%>
<%=choice%> </td><td valign=top colspan=1 width=20% bgcolor=#000000> <input type="radio" name="choice" value="<%=I%>">
</td></tr>
<%
End If
Next
%>
<tr>
<td colspan=3 align=center bgcolor=#2f2f4f align=right>
<input type="submit" value="Submit" class=nav>
</td></tr>
</table>
<%
End If
%>
</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>
