set rs=server.createobject("adodb.recordset")

set rs1=server.createobject("adodb.recordset")

rs1.open "select * from 调查表 where 调查类别=0",c1,1,1

dim sel

for i=1 to rs1.recordcount

     rs.open "select * from 调查表 where id="&request("na"&i),c1,1,3

‘request("na"&i)表示在index.asp页面中调查题目的ID

     sel=trim(request("no"&rs("id")))

     if sel<>"" then

       rs("调查项目"&sel)=rs("调查项目"&sel)+1

       rs.update

     end if

     rs.close

next

rs1.close

response.write "您已经成功投票！"%>

    以上为用户提交调查详细代码，大家需要注意多选调查和单选调查在secord.asp页面中代码有些不同，下面来分析一下多选调查编写程序的大体思路。

<%'多选

set rs2=server.createobject("adodb.recordset")

set rs3=server.createobject("adodb.recordset")

rs3.open "select * from 调查表 where 调查类别=1",c1,1,1

dim sel1

for i=1 to rs3.recordcount

     rs2.open "select * from 调查表 where id="&request("nb"&i),c1,1,3

      'request("nb"&i)表示在index.asp页面中调查题目的ID

     sel1=trim(request("noa"&rs2("id")))

     if sel1<>"" then