（3）addok.asp(数据库中添加调查项目)

<!-- #include file="title.asp"-->

<%set r1=server.createobject("ADODB.Recordset")

    r1.open "select * from 调查表",c1,1,3

    r1.addnew

    r1("调查题目")=trim(request("title"))

    'trim(request(“title”))表示去掉request(“title”)两边的空格

    r1("调查内容")=trim(request ("content"))&chr(13)

    'chr(13)为回车，此处是关键，在内容中已经利用chr(13)标出，在显示页面中就会利用chr(13)进行项目分割

    r1("调查类别")=trim(request ("leibie"))

'如果是0为单选，如果是1为多选

r1.update

r1.close%>

    （4）index.asp(显示调查投票项目)

<!-- #include file="title.asp"-->

    <form action=scored.asp method=post>

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

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

'调查类别=0为单选

for i=1 to rs.recordcount

'利用循环把调查题目全部显示出来

tp_flag=0

tp_flag_count=0%>  

&nbsp;<b><%=i%>、<%=rs("调查题目")%></b><br> 

<input type=hidden name=na<%=i%> value=<%=rs("id")%>>

<%tp_flag=split(server.htmlencode(replace(trim(rs("调查内容")),

chr(10),"")),chr(13))

'利用chr(13)来分割选项

  for e=0 to ubound(tp_flag)