chklogin.asp.bak

一个公司营销系统

<!--#include file="../conn.asp"-->
<%
username=request("m_username")
password=request("m_password")
Set rs_login = Server.CreateObject("ADODB.Recordset")
sql="select * from user where username like '" & username & "' and password like '" & password & "'"
rs_login.open sql,conn,3,2
if rs_login.eof and rs_login.bof then
   response.write "<script language='javascript'>"
   response.write "alert('账号或密码错误！');"
   response.write "history.go(-1);"
   response.write "</script>"
   response.end
else if rs_login("key1")=0 or rs_login("key2")=0 or rs_login("key3")=0 or rs_login("key4")=0 or rs_login("key5")=0 then
   response.write "<script language='javascript'>"
   response.write "alert('你没有完全被激活！');"
   response.write "</script>"
   response.redirect "../temporary.asp"
   response.end
end if
end if
sql="update  user set logintime=now() where username like '" & username & "' " 
conn.execute sql
  
session("username")=rs_login("username")
session("password")=rs_login("password")
session.timeout=5
rs_login.close
response.redirect "manager.asp"
%>