用ASP制作张扬个性的调查系统

二、处理用户选择(select.asp)

　　依据上面的调查选项，我们得出记录调查得票的数据库researchdb.mdb的设计（以Access为例)，表名为：research。如果你的数据库和表没有存为以上的名字，那么在后面的程序和操作中你不要忘记也相应修改过来。

　　存放调查投票数的表research：

字段名 　数据类型　 默认值
id 　　　自动编号 　 　1
select1 　数字 　　　　0
select2 　数字 　　　　0
select3 　数字 　　　　0
select4 　数字 　　　　0
select5 　数字 　　　　0
select6 　数字 　　　　0
select7 　数字　　　　 0

　　建好数据库后，我们来在服务器上建立数据源。首先，运行“控制面板”中的“ODBC”，选择“系统DSN”，按“添加”按钮，选取“Microsoft Access Driver”，选定后按“完成”按钮,然后在ODBC设定中“数据源名”输入框输入数据库名称，本例中为researchdb，然后按下“选取”按钮选择数据库文件（你不会说你忘记了刚刚设计的数据库存在那里了吧），选定后按“确定”，你即可看到新建的数据源　researchdb。这样，我们就可以在ASP中调用了。

select.asp: ＜ % 下面的if语句是通过验证selected是否为空来判断用户是否作了选择 if request.form("options") ＜ ＞Empty then % ＞ ＜ % 下面的if语句是通过比较Request的两个collection(ServerVariables和Cookies)的值 来防止用户连续按提交而影响调查的结果 if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then 把访问客户的IP信息写入Cookies response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR") % ＞ ＜ % 建立连接（Connection）对象，打开记录调查结果的数据库 set conn=server.createobject("ADODB.CONNECTION") conn.open "researchdb" % ＞ ＜ % 定义变量 dim rs dim sql dim selected selected=request.form("options") 建立记录集合（Recordset）对象，用方法Open打开对象，同时修改对应的数据 set rs=server.createobject("adodb.recordset") 修改数据表ressearch中的数据，即对应的投票数增加1 sql="update research set select"&selected&"=select"&selected&"+1 where id=1" rs.open sql,conn,3,3 从内存中清除记录集合对象 set rs=nothing 关闭连接 conn.close 从内存中清除连接对象 set conn=nothing 连接到浏览调查结果的页面 response.redirect "viewresult.asp" else Response.write "投票失败提示：您刚才已投了票，谢谢您的支持！" end if else Response.write "投票失败提示：您忘记选择了！" end if % ＞

　　三、浏览调查结果(viewresult.asp)

　　本例中使用条形图来直观显示调查结果，方法是用选项的投票数占总投票数的百分比值乘上5，得出的值作为条形图bar.gif显示的宽（可用常见的图象工具制作一个渐变色的小条形图，或是到网上down一个)。为了给出带两为小数的得票的百分比，程序中使用了VBScript中的四舍五入函数Round。为了美观，把调查结果放到表格中显示，如图所示。下面给出的代码中略去了表格的设计。

viewresult.asp ＜ % set conn=server.createobject("ADODB.CONNECTION") conn.open "researchdb" % ＞ ＜ % dim rs dim sql dim select1 dim select2 dim select3 dim select4 dim select5 dim select6 dim select7 dim total set rs=server.createobject("adodb.recordset") sql="select * from research where id=1" rs.open sql,conn,1,1 total=rs("select1")+rs("select2")+rs("select3")+ _ rs("select4")+rs("select5")+rs("select6")+rs("select7") 判断总票数是否为0，确保下面的除法有效 if total ＞ 0 then select1=(rs("select1")/total)*100 select2=(rs("select2")/total)*100 select3=(rs("select3")/total)*100 select4=(rs("select4")/total)*100 select5=(rs("select5")/total)*100 select6=(rs("select6")/total)*100 select7=(rs("select7")/total)*100 % ＞ ＜ p ＞谢谢您的参与，下面是当前的调查结果 ＜ p ＞ ◇知识: ＜ img src=bar.gif width=＜ %=int(select1*5)% ＞ height=4 ＞ ＜ %=rs("select1")% ＞人 占：＜ %=round(select1,2)% ＞%＜ br ＞ ◇学历: ＜ img src=bar.gif width=＜ %=int(select2*5)% ＞ height=4 ＞ ＜ %=rs("select2")% ＞人 占：＜ %=round(select2,2)% ＞%＜ br ＞ ◇金钱: ＜ img src=bar.gif width=＜ %=int(select3)*5% ＞ height=4 ＞ ＜ %=rs("select3")% ＞人 占：＜ %=round(select3,2)% ＞%＜ br ＞ ◇爱情: ＜ img src=bar.gif width=＜ %=int(select4)*5% ＞ height=4 ＞ ＜ %=rs("select4")% ＞人 占：＜ %=round(select4,2)% ＞%＜ br ＞ ◇理想: ＜ img src=bar.gif width=＜ %=int(select5)*5% ＞ height=4 ＞ ＜ %=rs("select5")% ＞人 占：＜ %=round(select5,2)% ＞%＜ br ＞ ◇民主意识: ＜ img src=bar.gif width=＜ %=int(select6)%*5 ＞ height=4 ＞ ＜ %=rs("select6")% ＞人 占：＜ %=round(select6,2)% ＞%＜ br ＞ ◇科学思想: ＜ img src=bar.gif width=＜ %=int(select7)%*5 ＞ height=4 ＞ ＜ %=rs("select7")% ＞人 占：＜ %=round(select7,2)% ＞%＜ /p ＞ ＜ p align="center" ＞已经有：＜ %=total% ＞人参加调查＜ br ＞＜ br ＞ 【＜ a href="javascript:window.close()" ＞关闭窗口＜ /a ＞】＜ /p ＞ ＜ p ＞ ＜ % else response.write "还没有人参与调查" end if rs.close set rs=nothing conn.close set conn=nothing % ＞

　　附注：

　　以上代码均在 WindowsNT4.0中文(Pack 6)/IIS4.0上调试通过。

　　以下任何一种环境都可执行ASP：

　　　一、Windows NT Server 4.0　/　IIS3.0以上
　　　二、Windows NT WorkStation 4.0 / Microsoft Peer Web Service3.0以上
　　　三、Windows 95/98 / Microsoft Personal Web Server 1.0a以上

查看本文来源