ype="radio" value="3" name="Options" >金钱（经济就是基础）< br >
< input type="radio" value="4" name="Options" >爱情（永不进入坟墓的爱情）< br >
< input type="radio" value="5" name="Options" >理想（天啦，理想是什么）< br >
< input type="radio" value="6" name="Options" >民主意识（关心政治）< br >
< input type="radio" value="7" name="Options" >科学思想（科教兴国）< br >
< input type="submit" value="提交" name="voting" >
< input type="button" value="查看" name="viewing" onClick="OpenWindow(vote/viewresult.asp)" >
< /form >
< !-- start：调查题目、选项 -- >
< /body >
< /html >
二、处理用户选择(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.CONNEC 上一页 [1] [2] [3] [4] 下一页 |
