建立你网站的投票机制！[翻译]

如何使用ASP在自己的网站建立投票机制（一）

翻译整理

一个很不错的建立自己的投票系统的ASP程序大家仔细读读，只要能够理解中间的关键技术，就能够在自己的网站上建立自己的投票站了。文件整理得很仓促，希望大家谅解。

ASP Polls

version 1.0

Tipped Cow Development and Adrenalin Labs

结构简单介绍：

ACCESS数据库设计结构：

poll表主要字段名称：PollName,PollCreator,PollQuestion,Password,Choice1,Choice2

Choice3,Choice4,Choice5,ID(自动编号)，GetName

pollresults表字段：PollID,PollAnswer,Name

1.文件db.inc

Application("ASP_Poll") = "ASP_Poll"

cnString = "DRIVER={Microsoft Access Driver (*.mdb)}; "

cnString = cnString & "DBQ=" & Server.MapPath("Events.mdb")

Application("ASPPollDSN") = cnString

1.文件creat_poll1.asp

<% Title="Poll Generator" %>

</head>

<body>

<div align="left"><img src="asp_poll.gif" width="231" height="90"><br>Another joint product from <a href="http://www.ncws.com/tippycow">Tipped Cow Development</a> and <a href="http://dstoflet.calweb.com">Adrenalin Labs</a>

</div>

Response.Write "<font face=arial>"

If Request("errormessage") <> "" Then

Response.Write "<b>Error! </b>" & Request("errormessage")

Else

Response.Write "Please complete the form below to begin creating your own poll."

End If

Enter Your Name as the Poll Creator

</td>

</tr><tr>

<td bgcolor=#ffffff width=25% class="bold">Poll Creator:</td>

<input type="text" name="creator" value="<%=Request("creator")%>" size=20 class="input">

</td>

</tr>

</table>

</td></tr>

Create a Password For Your Poll So That You Can Modify It At A

Later Time

</td>

</tr><tr>

<td bgcolor=#ffffff width=25% class="bold">Poll Admin Password:</td>

<input type="password" name="password" value="<%=Request("password")%>" size=10 maxlength=10 maxsize=10 class=input>

</td>

</tr>

</table>

</td></tr>

Give Your Poll a Unique Name

</td>

</tr><tr>

<input type="text" name="name" value="<%=Request("name")%>" size=20 class=input>

</td>

</tr>

</table>

Do you want to have the user enter their name?

</td>

</tr><tr>

<td bgcolor=#ffffff width=25% class="bold">Require user to enter their name:</td>

Yes<input type="radio" name="GetName" value="1"><br>

No <input type="radio" name="GetName" value="0" CHECKED>

</td>

</tr>

</table>

</td></tr>

Select Poll Type

</td>

</tr><tr>

<td colspan=2 bgcolor=#ffffff class="bold">What type of poll question

do you wish to create?</td>

<input type="radio" name="polltype" value="multiple_choice">Multiple Choice<br>

</td>

</tr>

</table>

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

</td></tr>

</table>

</center>

</body>

</html>

3.文件connect.asp

id = Request("id")

If id = "" Then

id = 0

End If

num = Request("choice")

If num <> "" Then

Set conn = Server.CreateObject("ADODB.Connection")

dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "

dsnpath = dsnpath & "DBQ=" & Server.MapPath("Events.mdb")

conn.open dsnpath

Set rs = Server.CreateObject("ADODB.RecordSet")

rs.Open "PollResults", conn, 3, 3

rs.AddNew

rs("PollID") = Cint(id)

rs("Name") = Request("Name")

rs("PollAnswer") = Cint(num)

rs.Update

rs.Close

set rs = Nothing

conn.Close

set conn = Nothing

End If

If Request("return_page") <> Empty Then

Response.Cookies("PollID") = id

Response.Redirect Request("return_page")

End If

<html>

<% If num <> "" Then %>

Your selection has been recorded.

</td></tr>

</table>

<% End If %>

Set conn = Server.CreateObject("ADODB.Connection")

sql = "select * from Poll where ID = " & Cint(id)

dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "

dsnpath = dsnpath & "DBQ=" & Server.MapPath("Events.mdb")

conn.open dsnpath

Set rs = Conn.Execute(sql)

If rs.EOF = False Then

<%=rs("PollQuestion")%>

</td></tr>

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=" & Server.MapPath("Events.mdb")

conn2.open dsnpath

Set rs2 = Conn.Execute(sql)

If rs2.EOF = False Then

Response.Write "<tr><td colspan=2 bgcolor=#4f4f4f align=center width=400><font face=verdana color=#f5fcdc>"

Response.Write choice

Response.Write "</td>"

Responses(I) = rs2(0)

Response.Write "<td colspan=1 bgcolor=#4f4f4f align=right><font face=verdana color=#f5fcdc><b>" & rs2(0) & "</b></td>"

Response.Write "</tr>"

End If

rs2.Close

conn2.Close

End If

</table>

<font face="ms sans serif"><b> Polls Results</b></font>

</td></tr>

Total = 0

For I=1 To 5

responseCount = Responses(I)

If responseCount <> "" Then

Total = Total + Cint(responseCount)

End If

For I=1 To 5

choice = Choices(I)

responseCount = Responses(I)

If choice <> "" Then

Response.Write "<tr><td colspan=1 align=left><font face=arial>"

Response.Write choice

Response.Write "</td>"

Response.Write "<td colspan=2 width=400><table border=1 cellspacing=0><tr><td bgcolor=blue align=center width=" & ConvertToPix(responseCount) & "><font face=ms sans serif color=white><b>" & ConvertToPercent(responseCount) & "</td></tr></table></td>"

Response.Write "</tr>"

End If

Function ConvertToPix(sz)

If sz = 0 Then

ConvertToPix = 0

Else

ConvertToPix = Cint(400/Total * sz)

End If

End Function

Function ConvertToPercent(sz)

If sz = 0 Then

ConvertToPercent = "0%"

Else

ConvertToPercent = FormatPercent(sz/Total, 2)

End If

End Function

</table>

<% If num = "" Then %>

</td></tr>

</table>

<% End If %>

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

</center>

</body>

</html>

-------------------------------------------------

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

翻译整理

4、文件default.asp

ID = Request("ID")

If ID = "" Then

ID = 30

End If

Title = "Polls (Create your own poll)"

<html>

<title>ASP Polls</title>

function gatherForm(form){

if(form.Mode[0].checked){

form.submit();

}else{

form.action="collect.asp";

form.submit();

}

</script>

</head>

<body>

</div>

<tr>

<tr>

<td>

<td colspan=3 bgcolor=#000000 align=center class="bold2">Select A Poll</td>

</tr><tr>

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>

Vote In Poll:<input type="radio" name="Mode" value="Vote" CHECKED><br>

View Results:<input type="radio" name="Mode" value="View">

</td></tr>

<tr>

</td></tr>

</table>

</td>

</tr>

</table></form><br>

<a href="create_poll1.asp">Create your own poll</a><br>

</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

<!-- <td colspan=3 bgcolor=#2f2f4f align=center><font face="verdana" color=#f5fcdc>

Poll: <%=rs("PollName")%>

</td> -->

</tr><tr>

</tr>

For I=1 To 5

choice = rs("Choice" & I)

If choice <> "" Then

<%=choice%></td><td bgcolor=#FFFFFF align="left"><input type="radio" name="choice" value="<%=I%>">

</td></tr>

End If

</tr>

<% If rs("GetName") = "1" Then %>

Your Name:</td>

</td></tr>

<% End If %>

<tr>

</td></tr>

</table>

Else

Response.Write "Invalid Poll Id Request!"

End If

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

</td>

</tr>

</table>

</body>

</html>

5、文件global.asa

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

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

<tr>

<%=rs("PollQuestion")%>

</td>

</tr>

For I=1 To 5

choice = rs("Choice" & I)

If choice <> "" Then

<tr>

<%=choice%> </td><td valign=top colspan=1 width=20% bgcolor=#000000> <input type="radio" name="choice" value="<%=I%>">

</td></tr>

End If

<tr>

</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

<td colspan=2 bgcolor=#2f2f4f align=center class=orgbold>ASP Poll

</td></tr>

Q:<%=rs("PollQuestion")%>

</td></tr>

Total = 0

For I=1 To 5

responseCount = Responses(I)

If responseCount <> "" Then

Total = Total + Cint(responseCount)

End If

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

Response.Write "</table></td></tr></table></div>"

End If

End Sub

</div>