开发学院WEB开发ASP 如何使用ASP在自己的网站建立投票机制(一) 阅读

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

 2000-04-21 10:07:41 来源:WEB开发网   
核心提示:Batman 翻译整理 一个很不错的建立自己的投票系统的asp程序大家仔细读读,只要能够理解中间的关键技术,如何使用ASP在自己的网站建立投票机制(一),就能够在自己的网站上建立自己的投票站了,文件整理得很仓促,希望大家谅解, 版权所有: ASP Polls version 1.0
Batman 翻译整理

  一个很不错的建立自己的投票系统的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.cncms.com/"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>
 <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
%>

<html>
<body bgcolor="#4f4f4f" text="#c0c0c0" link=#f5fcdc vlink=#f5fcdc>
<center>

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

<br><br>

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

 <td colspan=3 align=center><font face="verdana">
  <a href="default.asp?ID=<%=id%>">Add Your Vote</a>
 </td></tr>
</table>

<% End If %>

<br><br>
<table width=100%><tr><td align=right>
<table border=1 cellpadding=5 cellspacing=0 bordercolor=#f5fcdc><tr><td bgcolor=#2f2f4f>
<font face='verdana' size=+1><a href='javascript:history.back()'>Back</a>
</td></tr></table>
</td></tr></table>

</center>
</body>
</html>

Tags:如何 使用 ASP

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接