繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 创建一个Web投票系统
- ASP
- asp分页（自己整理的2个分页程序）
- ASP常用的系统配置函数
- 雨哲防采集策略之列表篇
- 雨哲浅谈关于防采集而不影响收录内容篇
- asp数据库连接函数
- ajax XMLHTTP Post Form时的表单乱码综合解决
- ASP注入详细命令40条
- 用ASP实现MSSQL用户密码破解
- ASP创建对象的两种方法比较
- ASP字符串转换为整形、双精度型、布尔
- ASP计算str2在str1中出现的次数
- asp采集抓取网上房产信息的代码
- ASP注册登陆实例代码
- ASP中使用FileSystemObject时提高性能的方法
- 分享一个好东东,动态Include文件 (Dynamic File Includes)
- 解决 JScript 中使用日期类型数据时出现类型错误的问题
- 在ASP里面创建GUID
- 在JScript中使用缓存技术的实际代码
- ASP javascript Application对象的Contents和StaticObjects做Cache的一些经验
- 海阳2006+功能中的潜水王
ASP 中的 创建一个Web投票系统
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 224 ::
收藏到网摘: n/a
During this article you will learn how to construct your own web poll using ASP. The article presumes you
already understand basic database interaction.
The following samples of code allow a user to select one of four options to a question. The user's vote is
then recorded in a database and the user is taken to a page where the results for each option can be
viewed in statistical, numerical and graphical form. Not bad, huh?
The whole application is based on the database itself, so when the values within the database are altered,
the application automatically changes. The database design itself, is not included within this article so
make sure to download a copy of the entire application, including the database before running the code.
The code for the first page is shown as follows: -
Page: default.asp
<%
'Connects to database using recordset method
Function dataConn(database,connection,recordset)
Set connection = Server.CreateObject("ADODB.Connection")
Set recordset = Server.CreateObject("ADODB.Recordset")
connection.Open "DBQ=" & Server.Mappath(database) & ";Driver={Microsoft Access Driver (*.mdb)};"
End Function
%>
<HTML>
<HEAD>
<TITLE>Poll Example</TITLE>
</HEAD>
<BODY>
<FORM name="languages" method=post action="pollResults.asp">
<P>What is your favoutrite language?</P>
<%
'Calls dataConn function to open dbPoll.mdb
dataConn "files/dbPoll.mdb",POdc,LArs
'Selects all fields within tblLanguages
LArs.Open "SELECT * FROM tblLanguages", POdc
'Loop through and display each record within the database as a radio button
Do While Not LArs.EOF
Response.Write LArs("Language") & ": <INPUT type=radio name='language' value='" & LArs("Language")
& "'><BR>"
LArs.MoveNext
Loop
'Close database connection
LArs.Close
POdc.Close
Set POdc = Nothing
%>
<A href="pollResults.asp">View Poll</A>
<INPUT type=submit value="Vote">
</FORM>
</BODY>
</HTML>
Once connected to the database the script loops through each record, and displays that option as a radio
button. When the 'Vote' button is pressed, the individual value of the selected radio button is submitted
to the next page.
The code for the next page is shown below: -
Page: pollResults.asp
<%
'Define all variables that will be used
Dim I, Percent
'Connects to database using recordset method
Function dataConn(database,connection,recordset)
Set connection = Server.CreateObject("ADODB.Connection")
Set recordset = Server.CreateObject("ADODB.Recordset")
connection.Open "DBQ=" & Server.Mappath(database) & ";Driver={Microsoft Access Driver (*.mdb)};"
End Function
%>
<HTML>
<HEAD>
<TITLE>Polling Sample</TITLE>
</HEAD>
<BODY>
<%
'Calls dataConn function to open dbPoll.mdb
dataConn "files/dbPoll.mdb",POdc,LArs
'Selects all fields within tblLanguages
LArs.Open "SELECT * FROM tblLanguages", POdc,1,2
'Loop through and total up number of votes for all records
Do While Not LArs.EOF
'If record contains voted language then increment votes
If
评论 (0) All
