上一篇：组件对象开发Web应用的实例分析 >>

如何使用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 language="javascript">

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

<option value="<%=rs("id")%>"><%=rs("pollname")%>

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

<tr>
<td colspan=3 align=right bgcolor=#000000 align=center>
<input type="button" value=" go " onclick="gatherform(this.form)" class="inline">
</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>

<td align="center" width="75%" valign="top">
<table width="100" border=1 cellspacing=2 cellpadding=0 bordercolor=#ccccff><tr><td>
<form method="post" action="collect.asp">
<input type="hidden" name="id" value="<%=id%>">

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

<table border=0 cellspacing=0 cellpadding=10 bgcolor=#4f4f4f><tr>

</tr><tr>
<td colspan=3 bgcolor=#000000 align=left class="bold2"><%=rs("pollquestion")%>
</tr>
<%
for i=1 to 5
choice = rs("choice" & i)
if choice <> "" then
%>
<tr> 
<td colspan=2 bgcolor=#ffffff class="bold" align="left">
<%=choice%></td><td bgcolor=#ffffff align="left"><input type="radio" name="choice" value="<%=i%>">
</td></tr>
<%
end if
next
%>

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

%>

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

（）

返回顶部

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