chkusern.asp

来自「一个非常优秀的自动建站程序」· ASP 代码 · 共 71 行

<!--#include file="encrypt.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="checkpost.asp"-->
<%
action = request("action")
if Trim(Request.Form("UserId"))="" or Trim(Request.Form("PassWd"))="" then response.redirect "index.asp"
if (action="login") then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select ID,PassWd,ExpDate from [Agent_User] where UserId='" & Trim(Request.Form("UserId")) & "'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.redirect "default.asp"
response.end
else
if EncryptPass=1 then
Set Autohost = Server.CreateObject("autohost.Createhost")
passwd=autohost.md5(Trim(Request.Form("PassWd")))
Set Autohost=nothing
else
passwd=Trim(Request.Form("PassWd"))
end if
if passwd=rs("PassWd") then
session("ID")=rs("ID")
rs("ExpDate")=date()
rs.update
response.redirect "admin.asp"
response.end
else
response.redirect "default.asp"
response.end
end if
end if
rs.close
Set rs = Nothing
end if
if (action="relogin") then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select ID,PassWd,ExpDate from [Agent_User] where UserId='" & Trim(Request.Form("UserId")) & "'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.redirect "default.asp"
response.end
else
if EncryptPass=1 then
Set Autohost = Server.CreateObject("autohost.Createhost")
passwd=autohost.md5(Trim(Request.Form("PassWd")))
Set Autohost=nothing
else
passwd=Trim(Request.Form("PassWd"))
end if
if passwd=rs("PassWd") then
session("ID")=rs("ID")
rs("ExpDate")=Date()
rs.update
response.redirect "welcome.asp"
response.end
else
response.redirect "default.asp"
response.end
end if
end if
rs.close
Set rs = Nothing
end if
if (action="out") then
session.abandon()
response.redirect "default.asp"
response.end
end if
%>