日期:2013-05-26  浏览次数:21089 次

一个很不错的建立自己的投票系统的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=http://www.163design.net/a/y/"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
%>

<br><br>
<table border=2 cellspacing=0 cellpadding=0><tr><td>
<form method="post" action="create_poll2.asp">


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