dovote.asp

来自「使用Asp+Access+FSO+Jmail+Servu开发」· ASP 代码 · 共 23 行

<!--#include file="config.asp"-->
<%
user=request("user")
if user="" then
  call alert("对不起，投票对象不能为空！","",0)
end if

sql="select * from [user] where username='"&user&"'"
rs.open sql,conn,1,3
if Request.Cookies("vote")<>user then
Response.Cookies("vote")=user
Response.Cookies("vote").Expires=date+1
rs("votenum")=rs("votenum")+1
rs.update
call alert("感谢您投下的一票！","javascript:window.close()",1)
else
rs("votenum")=rs("votenum")
rs.update
call mb("对不起，请不要重复投票！","javascript:window.close()",1)
end if
%>