繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 创建一个Web投票系统
- ASP
- 生成像资源管理器一样的树形目录
- 将连接数据库的代码隐藏在DLL中
- ASP中从数据库读取二进制文件数据代码
- asp查询xml的代码，实现了无刷新、模糊查询功能
- 一个asp函数， 解决SQL Injection漏洞
- 在ASP中利用COM组件开发Web应用程序
- 关于如何利用COM+，来提高ASP执行权限的问题!
- 升级MD5.ASP，打造完全动态不重复的安全加密代码
- ASP安全检测与过滤函数SafeCheck
- 在ASP中，用JScript脚本实现分页的另类办法
- 查看服务器Application/Session变量工具
- 自己写的一个简单ASP调用存储过程查询
- ASP登陆验证页应做的安全问题
- 使用ASP与javascript配合实现多个复选框数据关联显示
- Windows 2003下不注册组件用ASP发邮件
- 数据分页方法新思路，速度非常快！
- ASP程序中同一个用户不允许同时登陆两次
- 分栏显示记录集的表格演示，并实现了分页
- 关于Adodb.Stream的写数据库数据到客户端文件的实践
- 将ASP的Debug变得简单的两个函数
ASP 中的 创建一个Web投票系统
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 94 ::
收藏到网摘: 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
