建立你网站的投票机制！[翻译]-ASP教程,ASP应用-IDC资讯中心

如何使用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> <link rel="stylesheet" type="text/css" href="style.css">

<title><%=title%></title>

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

<br><br>

</div>

<center>

<%

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

%>

<table border=0 cellspacing=0 cellpadding=10 width=500><tr>

<td colspan=2 bgcolor=#000000 align=center class="bold2">

enter your name as the poll creator

</td>

</tr><tr>

<td bgcolor=#ffffff width=25% class="bold">poll creator:</td>

<td bgcolor=#ffffff>

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

</td>

</tr>

</table>

</td></tr>

<tr><td>

<table border=0 cellspacing=0 cellpadding=10 width=500><tr>

<td colspan=2 bgcolor=#000000 align=center class="bold2">

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>

<td bgcolor=#ffffff>

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

</td>

</tr>

</table>

</td></tr>

<tr><td>

<table border=0 cellspacing=0 cellpadding=10 width=500><tr>

<td colspan=2 bgcolor=#000000 align=center class="bold2">

give your poll a unique name

</td>

</tr><tr>

<td bgcolor=#ffffff width=25% class="bold">poll name:</td>

<td bgcolor=#ffffff>

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

</td>

</tr>

</table>

<table border=0 cellspacing=0 cellpadding=10 width=500><tr>

<td colspan=2 bgcolor=#000000 align=center class="bold2">

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>

<td bgcolor=#ffffff class="bold">

yes<input type="radio" name="getname" value="1"><br>

no <input type="radio" name="getname" value="0" checked>

</td>

</tr>

</table>

</td></tr>

<tr><td>

<table border=0 cellspacing=0 cellpadding=10 width=500><tr>

<td colspan=3 bgcolor=#000000 align=center class="bold2">

select poll type

</td>

</tr><tr>

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

do you wish to create?</td>

<td bgcolor=#ffffff class="bold">

<input type="radio" name="polltype" value="yes_no">yes/no<br>

<input type="radio" name="polltype" value="multiple_choice">multiple choice<br>

</td>

</tr>

</table>

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

<table width=500><tr>

<td colspan=3 align=right>

<input type="submit" value=" next " class="inline">

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

%>

<% if num <> "" then %>

<br><br>

<table border=0 cellspacing=0 cellpadding=0><tr>

<td colspan=3 align=center><font face="verdana">

your selection has been recorded.

</td></tr>

</table>

<% end if %>

<br><br>

<%

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

%>

<table border=1 cellspacing=0 cellpadding=5 width=500 bordercolor=#2f2f4f><tr>

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

<%=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

next

end if

%>

</table>

<table >

<td colspan=3 align=center><font face="arial">

<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

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

next

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

<br><br>

<table border=0 cellspacing=0 cellpadding=0><tr>

<% end if %>

</center>

</body>

</html>

————————————————-

如何使用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>

function gatherform(form){

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

form.submit();

}else{

form.action="collect.asp";

form.submit();

}

}

</script>

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

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

建立你网站的投票机制！[翻译]-ASP教程,ASP应用

相关推荐

热门标签

热门文章

分类目录