poll.asp

此软件用于网上投票调查 文件不大但很实用

<%
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("poll.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs=server.createobject("adodb.recordset")
sql_ip="select * from descrip where id="&request("pid")&""
rs.open sql_ip,conn,1,1

response.cookies("IPAddress")=rs("ip")
if Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
	response.write"<p align=center><b>感谢您的支持，您已经投过票了，请勿重复投票，谢谢！</b></p>"
	response.write"<p align=center><input type='button' value='关闭' name=B2 onclick='window.close();' ></p>" 
else
	
sql_flag="select * from descrip where id="&request("pid")&""
set rs=server.createobject("adodb.recordset")
rs.open sql_flag,conn,1,1
if rs("flag")="单选" then

sql="SELECT * from items where pid="&request("pid")&" and pitem="&request("pitem")
Set rs=conn.Execute(sql)
pitemnum=rs("pitemnum")+1
sql="update items set pitemnum="&pitemnum&" where pid="&request("pid")&" and pitem="&request("pitem")
conn.Execute(sql)

else

pitem = Split(Request("pitem"), ", ")
For I=0 To UBound(pitem)
    sql="SELECT * from items where pid="&request("pid")&" and pitem="&pitem(I)
	Set rs=conn.Execute(sql)
	pitemnum=rs("pitemnum")+1
	sql="update items set pitemnum="&pitemnum&" where pid="&request("pid")&" and pitem="&pitem(I)
	conn.Execute(sql)
 
Next

end if

sql="update descrip set ip='"&Request.ServerVariables("REMOTE_HOST")&"' where ID="&request("pid")
conn.Execute(sql)
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect "pollvalue.asp?pid="&request("pid")

end if

%>