[求助]投票系统功能的实现-->小笨笨转移
本人欲设计一个简单的投票系统,只要有投票选择页面,有投票和查看结果的功能;投票后显示投票成功并跳转到结果页面,可以显示各项投票的票数,ok!谢谢各位啦!
<%
Connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;"
set conn=server.createobject("adodb.connection")
conn.open Connstr
sqlstr="select * from mamu3 where m=1"
set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,1,3
select case request("c")
case 1
rs("a")=rs("a")+1
case 2
rs("b")=rs("b")+1
case 3
rs("c")=rs("c")+1
case 4
rs("d")=rs("d")+1
end select
rs("e")=rs("a")+rs("b")+rs("c")+rs("d")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>window.alert('恭喜\n\n投票成功,点击返回');window.location.href='kehu4.asp'</script>"
%>