checklogin.asp

中文bux点击站源码。配合其他站点用

<%
  AdminUserName = Request.Cookies("Admin" & DomainName & "")("AdminUserName")
  AdminPassWord = Request.Cookies("Admin" & DomainName & "")("AdminPassWord")
  FileName = Request.ServerVariables("script_name")
  Postion = InstrRev(fileName, "/") + 1
  FileName = Mid(FileName, Postion)
  If AdminUserName = "" or AdminPassWord = "" Then
     Conn.Close
     Set Conn = nothing
     Response.Redirect "login.asp?FileName=" & FileName & ""
     Response.End
  End if
  rs.Open "Select * From setup Where AdminUserName = '" & AdminUserName & "'",Conn
  If rs.Eof Then
     rs.Close
     Set rs = nothing
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您输入的管理员用户名并不存在。"
     Response.Redirect "error.asp"
     Response.End
  End if
  rs.Close
  rs.Open "Select * From setup Where AdminUserName = '" & AdminUserName & "' And AdminPassWord = '" & AdminPassWord & "'",Conn
  If rs.EOF Then
     rs.Close
     Set rs = nothing
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "管理员密码错误。"
     Response.Redirect "error.asp"
     Response.End
  End If
  rs.Close
%>