谁能有个ASP+ACCESS 的投票小程序啊 ? 类似凹丫丫的那种 ,,,

发布网友 发布时间：2天前

我来回答

共1个回答

热心网友 时间：6分钟前

无需注册, 哪里来的用户名,可记录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
%>

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