用于统计问卷调查的程序怎么编

<!--#include file="conn.asp"-->
<%
rs.open "select * from 设置",conn,1,3
VoteOption=Trim(Request.Form("VoteOption"))
ip=rs("IP")
If DateDiff("d",rs("日期"),Date())>0 Then ip=0
If VoteOption<>"" And IsNumeric(VoteOption) And InStr(ip,"|"&Request.ServerVariables("Remote_Addr")&"|")=0 Then
rs("IP")=ip&"|"&Request.ServerVariables("Remote_Addr")&"|"
rs("vote"&VoteOption)=rs("vote"&VoteOption)+1
rs("日期")=Date()
rs.update
End If
%>

这是一个调查系统的关键代码！不懂再发短消息给我吧