一个投票程序
点击次数：25 次 发布日期：2008-11-26 16:19:57 作者：源代码网
|
<%@ LANGUAGE="VBSCRIPT"%> <%OPTION EXPLICIT%> <%Response.Buffer = True%> <!-- #INCLUDE FILE="adovbs.inc" --> <% "*** Remember to create those variables before trying to use them. Dim objConn Dim objRec3 Dim strConnect Dim varTopic, varTopicID, varSelectionNum, varSelected Dim i, varTotal, varThis, varThisTitle, varAlreadyVote strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("vote.mdb") & ";DefaultDir=" & Server.MapPath(".") & ";DriverId=25;FILE=MS Access;MaxBufferSize=512;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;;User Id=admin;" Set objConn = Server.CreateObject ("ADODB.Connection") "*** Create an ADO database connection object. Set objRec3 = Server.CreateObject ("ADODB.Recordset") "** Create an ADO RecordSet object. objConn.Open strConnect "*** Open the connection to the database objRec3.Open "vote", objConn, adOpenForwardOnly, adLockPessimistic, adUseServer "*** Open the recordset varTopic = Request.Form("topic") varTopicID = Request.Form("topicID") if varTopicID="" then varTopicID = Request.QueryString("topicID") end if varSelectionNum = Request.Form("selectionNum") varSelected = Request.Form("selected") objRec3.Filter = 0 objRec3.Filter = "topicID=" & varTopicID "only number can be filter? If NOT objRec3.EOF then if Request.Form("selected") = "" then else varAlreadyVote="alreadyVote" & "_" & varTopicID if Session(varAlreadyVote)<>"true" then objRec3("selection" & varSelected & "_count") = objRec3("selection" & varSelected & "_count") +1 objRec3.Update Session(varAlreadyVote)="true" end if end if varTotal=0 for i=0 to objRec3("selectionNum")-1 varTotal=varTotal+ objRec3("selection" & i & "_count") next %> <p align=left> <% =varTopic %> </p> <p align=center> <table width=480 border=0 cellspacing=0 cellpadding=0 bgcolor=#000000> <caption align=left><font size=2>共有 <font color=red><% =varTotal %></font>人参加</font></caption> <tr><td> <table width=480 border=0 cellspacing=1 cellpadding=3> <tr bgcolor=#dcdcdc align=center valign=center> <th width=120><font size=2>选项</font></td> <th width=300><font size=2>比 例</font></td> <th width=60><font size=2>人数</font></td> </tr> <% for i=0 to objRec3("selectionNum")-1 varThisTitle=objRec3("selection" & i & "_title") varThis=objRec3("selection" & i & "_count") %> <tr bgcolor=#ffffff valign=center> <td width=120 align=center><font size=2 color=#ff0000><% =varThisTitle %></font></td> <td width=300 align=left><img src="http://www.zzchn.com/edu/20070912/color.gif" width=<% =varThis*100/varTotal %> height=12 border=0><font size=2 color=#ff0000> <% = left(varThis*100/varTotal, 5) %>% </font> </td> <td width=60 align=center><font size=2 color=#ff0000><% =varThis %></font></td> </tr> <% next %> </table> </td></tr> </table></p> <% else "no this topic yet objRec3.AddNew objRec3("topicID") = varTopicID objRec3("topic") = varTopic objRec3("selectionNum") = varSelectionNum for i=0 to varSelectionNum objRec3("selection" & i & "_title") = Request.Form("selection" & i & "_title") next objRec3.Update response.write "added" End If objRec3.Close objConn.Close Set objRec3 = Nothing Set objConn = Nothing %> 2. vote.htm <HTML> <HEAD> <script language="JavaScript"> function newswindow(url) {ContentWindow=window.open(url,"_blank","toolbar=no,width=640,height=400;,directories=no,status=yes,scrollbars=yes,resize=yes,menubar=yes") } </script> </HEAD> <BODY> 您认为"你说我说"栏目 <form method="post" action="vote.asp" onSubmit="windowOpener("")" target="new"> <tr> <td width=80> <input type="radio" name="selected" value="0" style="background-color:rgb(255,205,96)">比较混乱<br> <input type="radio" name="selected" value="1" style="background-color:rgb(255,205,96)">马马虎虎<br> <input type="radio" name="selected" value="2" style="background-color:rgb(255,205,96)">秩序井然 </td> <td width=55> <input type=hidden name=topicID value=1> <input type=hidden name=topic value=您认为"你说我说"栏目> <input type=hidden name=selectionNum value=3> <input type=hidden name=selection0_title value=比较混乱> <input type=hidden name=selection1_title value=马马虎虎> <input type=hidden name=selection2_title value=秩序井然> <input type="button" value="查看" style="background-color:rgb(255,205,96)" onClick=newswindow("vote.asp?topicID=1") target=new> <input type=submit value="提交" style="background-color:rgb(255,205,96)"> </td> </tr> </form> </BODY> </HTML> 3. vote.mdb a Access database file, there is a table named "vote" fields: topicID topic selectionNum selection0_title selection0_count ... 源代码网供稿. |
