pass.asp

来自「商务网络站点程序」· ASP 代码 · 共 21 行

<%
user=request("user")
dim rs,sql
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from user where username ='"&user&"'"
rs.open sql,conn,3,2
if rs.eof and rs.bof then
   response.write "<script language='javascript'>"
   response.write "alert('该用户不存在，请检查输入是否正确！');"
   response.write "</script>"
   response.redirect"index.asp?user="&webname&""      
   response.end
else
  rs("count") = rs("count") + 1
  rs.Update 
  if rs("key1")=0 or rs("key2")=0 or rs("key3")=0 or rs("key4")=0 or rs("key5")=0 then
  response.redirect"temporary.asp?user="&user&""
  response.end
end if
end if
%>