没有合适的资源?快使用搜索试试~ 我知道了~
首页基于asp和数据库的简易投票系统
资源详情
资源评论
资源推荐

物理与信息科学系应用物理
基于 Asp+数据库的 WEB 简易投票系统
(石 龙 玉林师范学院物理与信息科学系 537006)
Abstract:现在在网络中,很多网站都有投票系统,即使网络投票系统在 WEB 应用上是那么简单,却很
少有人写文章出来让出学者学习研究。本文针对应用 asp+数据库实现的 WEB 简易投票系统进行讲述,对
投票系统应具的功能,建设 WEB 投票思维以及如何制作等做阐述,以实现共同学习之目的。
Keywords:投票系统 数据库 数据库执行文件
一、 引言
随着 INTERNET 的发展,世界网民的数量急剧增加,社会
的信息化强度增强,企业竞争之激烈,故对市场信息的掌握范
围不仅仅是周边的一些信息,而应把范围扩展到全国,甚至全
世界,INTERNET 恰恰是实现这目标的有利工具.对于新产品,
新观点的调查范围应该更广泛,消息应该及时反馈给企业单
位,故一个网上在线投票系统应允而生,它正好充分满足客户
的需求,信息反馈的范围扩大,人力资源的节省,从而使得企业
在竞争激烈的市场中拥有更强大的资本.开发此投票系统是为
了更好的把市场的信息更准确更快速的反馈给客户,使信息的
来源更广泛,从而提高信息的准确性.运用此系统可以降低企
业为市场调查而消耗的人力和物力,利用节省的资源提高产品
的质量,增强竞争力。
笔者以一个简易的 WEB 投票系统作的制作过程例子,
展开做论。在基本的设计思维下,可以进一步完善功能更强大
的投票系统。该投票系统是不要用户登陆的,开放式的。该
简易的投票系统应用 asp 和数据库 access 做为核心技术,基
础 编 程 语 言 以 vb 脚 本 为 主 。 开 发 环 境 为 Mcromedio
Dreamweveaver 8(或只要是会写 html 标签可以用 text 记事
本或其他网页编辑软件)。
二、 设计要求
在建设该投票系统前,应该了列出投票系统的所具有的
功能,为实现所应有的功能足项解决问题。该系统的功能
是:在需要投票的时候,网站管理员进入系统管理后台设置
相关的投票内容,设置投票时间段等;而用户页面在投票时
间则可以显示投票的问题和查看投票结果,而在非投票时间
内则显示不能进行投票等提示信息或提示对话框。
在该简易投票系统中忽视页面的设计,页面美化可以根
据个人或各个公司的需要和喜好进行设计。本系统主要针对
服务程序而作。
三、 系统的设计
1.服务数据库的设计
每一个需要互动的网站或服务系统基本上都用到数据库
进行数据的采集和发布。所一该系统用 access2003 作为数据
库,采集用户的提交信息进行互动。
首先,建立一个数据库 date.mdb,数据库的目录可以任意,只
要在网站的目录下即可,本系统把数据库 date.mdb 放在网站
根目录下。建立数据库以后,就根据需要设计数据库。首先在
数据库中建立表 admin 用于存放管理员的帐号和密码等,以便
管 理 登 陆需要到 。 在 admin 表中 , 建 立 a_id 、 a_admin 和
a_password 三的字段,其中 a_id 是管理员 ID 号,即编号;
a_admin 字段是存放管理员的帐号;a_password 是存放管理员
的密码。在建立一个表名为 endtime 用于存放投票开放的最后
日期,并建立 ID 和 time 两个字段,time 存放放投票开放的最
后日期。再建立一
名为 title 的数据表,建立 t_hao 、t_title 和 t_type,分别是题
号、题目和题型(多选或单选)的存放字段。最后建立表名为
vote 的 数 据 表 用 于 记 录 用 户 投 票 数 据 , 并 建 立
v_id 、 v_name 、v_votenum 和 v_num 分别 记 录 投票 项的 ID
号、投票项和该投票项的票数。
数据库的设计已经完成,根据数据库和设计思路,开始按照
一定的步骤逐项建设网页。
2.网页的制作
1)数据库连接文件
建 立 一 个 数 据 库 连 接 文 件 , 命 名 为 conn.asp , 用
Dreamweveaver 或记事本打开,并输入以下编码:
<%
dim conn '以下部分连接数据库
dim connstr
Set conn = Server.CreateObject("ADODB.Connection")
'使用 JET 引擎连接,修改数据库连接地址,修改 data.mdb 部
分
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("data.mdb")
conn.Open connstr
%>
即完成数据库连接文件
2)管理员后台页面
首先建立管理员后台页面,根据设计要求,管理后台应该
具有可以更改管理员信息设置、投票截止时间、投票主题的修

物理与信息科学系应用物理
改或添加和投票选项的修改或添加等功能。建立一个名为
mannager.asp 的管理后台文件,其编码为:
<!--#include file="conn.asp"-->
<%
if request.Cookies("username")="" then '取得 cookies 信息,如
果为空则用户未登陆
response.Redirect "admin.asp?action=error"
else
call show() '调用过程
end if
sub show()
dim rs
dim sql
set rs= Server.CreateObject("adodb.recordset")
sql="select * from admin"
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">
<title>用户高级管理</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="80%" border="0" align="center" cellpadding="0"
cellspacing="0" bgcolor="#77C8EE">
<!--DWLayoutTable-->
<tr align="center" bgcolor="#4EB7E9">
<td height="30" colspan="2">管理后台</td>
</tr>
<tr>
<td width="301" rowspan="2" valign="top"
bgcolor="#77C8EE">
<table width="100%" border="0" cellspacing="0"
cellpadding="0">
<form name="form1" method="post" action="sql.asp?
action=user">
<tr>
<td height="25" bgcolor="#77C8EE"> 管理员信
息修改</td>
</tr>
bgcolor="#77C8EE"> 用户名:
<input name="user" type="text" value="<%=
rs("a_admin") %>" size="12"></td>
</tr>
<tr>
<td height="25" bgcolor="#77C8EE"> 密
码:
<input name="password" type="text" value="<%=
rs("a_password") %>" size="12">
<input type="submit" name="Submit3"
value="修改"></td>
</tr>
</form>
<% rs.close %>
<tr>
<td width="49%" height="75" valign="top"
bgcolor="#77C8EE">
<table width="100%" border="0" cellspacing="0"
cellpadding="0">
<tr><td>
<% sql="select * from endtime"
rs.open sql,conn,1,1 %>
<form name="form7" method="post" action="sql.asp?
action=time">
投票截止时间设置(格式为:月 日,年):<br>
<input name="time" type="text" value="<%= rs("time")
%>" size="12">
<input type="submit" name="Submit7" value="save">
</form>
</td></tr>
</table> </td>
</tr>
</table>
<% rs.close %> </td>
<td width="315" height="118" valign="top"><table
width="100%" border="0" cellspacing="0" cellpadding="0">
<!--DWLayoutTable-->
<tr>
<td width="315" height="25" bgcolor="#77C8EE"><a
href="admin.asp">管理员退出登陆</a>(请务必使用此方式退
出)</td>

物理与信息科学系应用物理
<tr>
<td height="25"
<td height="69" valign="top">管理后台</td>
</tr>
<tr>
<td height="24"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="58"> </td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0"
cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#4EB7E9"> 投票主题修
改或添加</td>
</tr>
<%
response.write "<tr> <td height=25
bgcolor=#77C8EE>请填写投票主题!</td></tr>"
%>
<tr>
<td height="25" bgcolor="#77C8EE">
<form name="form2" method="post" action="sql.asp?
action=addtitle">
<input name="title" type="text" value="" size="30"><br>
题 号 : <input name="tihao" type="text" value=""
size="10">
题型:<input name="tixing" type="radio" value="0"
>单选<input name="tixing" type="radio" value="1"> 多选
<input type="submit" name="Submit2" value="增加">
</form> </td>
</tr>
<%
sql="select * from title order by t_id"
</tr>
<tr>
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr>
<td height="25" bgcolor="#77C8EE">
<form name="form3" method="post" action="sql.asp?
action=title">
<input name="newtitle" type="text" value="<
%=rs("t_title") %>" size="30">
<% session("oldtitle")=rs("t_title") %><br>
题 号 :<input name="newtihao" type="text" value="<
%= rs("t_hao")%>" size="5">
题型:
<label>
<select name="select">
<% if rs("t_type")=0 then %>
<option value="0" selected="selected">单选</option>
<option value="1">多选</option>
<%else %>
<option value="0" >单选</option>
<option value="1"selected="selected"> 多
选</option>
<% end if %>
</select>
</label>
<br>
<input type="submit" name="Submit3" value="修改">
<input type="submit" name="Submit3" value=" 删
除">
<input name="oldtitle" type="hidden" value="<%=
rs("t_title")%>" >
<input name="oldtihao" type="hidden" value="<%=
rs("t_hao") %>">
</form> </td>
</tr>
<%
rs.movenext
loop
rs.close
'set rs=nothing
%>
剩余10页未读,继续阅读


















安全验证
文档复制为VIP权益,开通VIP直接复制

评论1