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
% >