Question

求一个ASP+ACCESS的投票程序

要求是:1.具有用户名，但无需注册，可记录IP
2.单选
3.最重要是方式一人多头
4.在ACCESS里能清楚看清什么人投了票。
5.简洁明了！
希望在今晚完成。只需代码。记得是ASP的！有的可发到我的邮箱szwfiver@163.com,必将高分回报！
不是一人多投，是记名式投票，严格限制一人一票，限IP，要清楚谁投了哪个，但不用注册！

Answer 1

无需注册,哪里来的用户名,可记录IP还差不多,谁会在投票时,老老实实的给你真实姓名,ACCESS里哪里会清楚看清什么人投了票呢?把问题说清楚点,如果只是随便添一个名字即可投票的话,一个IP只能头一次的话,或许我可以帮你.更麻烦的投票系统我都有. 可以CALL我,RSZXGESL@163.COM

=============给你部分文件代码（执行文件code.asp）=====================
<!--#include file="conn.asp"-->

<% t=now()
t1=Datevalue(t)
t2=Datevalue("12 30, 2009") '投票截止时间设置
if t1<= t2 then

on error resume next
v=request.Form("voter")
rip=lcase(request.form("ip"))
if request.Form("voter")="" then '判断是否填写投票者
Response.Write("<script language=""JavaScript"">alert(""请填写投票者姓

名！！"");history.go(-1);</script>")
end if
if request.Form("r1")=""and request.Form("r2")="" and request.Form("c3a")=""and

request.Form("c3b")=""and request.Form("c3c")=""and request.Form("c3d")=""and request.Form

("c3e")=""and request.Form("c3f")=""and request.Form("s4")=""and request.Form("t5")="" then

'判断是否投票完毕
wr=true
else
wr=false
end if
if wr=true then
Response.Write("<script language=""JavaScript"">alert(""你还没有填写调查问卷，请你填写调

查卷，谢谢你的合作!!"");history.go(-1);</script>")
else
'dim rip as string
'rip="127.0.0.1"
set rst=server.CreateObject("ADODB.recordset") '判断提交IP是否已经投票过
rst.Open "select * from [tab] where [ip]='" & rip & "'",conn,1,1
if not(rst.bof and rst.eof) then
Response.Write("<script language=""JavaScript"">alert(""不好意思,

你已经投票过！"");history.go(-1);</script>")

else
set rs=server.CreateObject("ADODB.recordset") '若没投过,则写入投

票信息
rs.open "tab",conn,1,3
conn.begintrans
rs.addnew
t1=request.Form("r1")
t2=request.Form("r2")
t3=request.Form("c3a") & request.Form("c3b") & request.Form("c3c") & request.Form("c3d") &

request.Form("c3e") & request.Form("c3f")
t4=request.Form("s4")
t5=request.Form("t5")
v=request.Form("voter")
ip=request.form("ip")
rs("t1")=t1
rs("t2")=t2
rs("t3")=t3
rs("t4")=t4
rs("t5")=t5
rs("voter")=v
rs("IP")=ip
rs.update
rs.close
if err.number<>0 then
conn.rollbacktrans
Response.Write("<script language=""JavaScript"">alert(""由于出错,数据不能保

存！"");history.go(-1);</script>")
else
conn.CommitTrans
Response.Write("<script language=""JavaScript"">alert(""谢谢你珍贵的一票！"");history.go(-

1);</script>") end if
end if
end if
else
Response.Write( "调查时间已过期，还是谢谢你的关心")
end if
%>

<% set rst=nothing
conn.close
set conn=nothing
%>

=============结束！===========================
我已经把本系统资料发送给到你邮箱，如果你觉得需要，就回我，我把系统源文件给你送去。

Answer 2

一人多投?

那就是不限制IP了..

这个简单,但是没时间帮你写...