reset.asp

自动投票系统

<% Response.Buffer=True %>
<% if session("flag")="" then
response.write"<SCRIPT language=JavaScript>alert('操作超时，请重新登录！');"
response.write"this.location.href='../';</SCRIPT>"
end if %>
<% Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dns.asp") %>
<% set rs=server.createobject("adodb.recordset")
sql="update research set selecta=0,selectb=0,selectc=0,selectd=0 where id=1"
rs.open sql,conn,3,3
set rs=nothing
conn.close
set conn=nothing
response.write"<SCRIPT language=JavaScript>alert('调查引擎数据成功重置为0!');"
response.write"javascript:history.go(-1);</SCRIPT>" %>