用ASP制作个性的调查系统

核心提示：二、处理用户选择(select.asp)依据上面的调查选项，我们得出记录调查得票的数据库researchdb.mdb的设计（以Access为例)，用ASP制作个性的调查系统(2)，表名为：research，如果你的数据库和表没有存为以上的名字，如图所示，下面给出的代码中略去了表格的设计，那么在后面的程序和操作中你不要忘

　　二、处理用户选择(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