%dim uid,password,lx,rs,sql
sub login '登陆判断
'lx=request.Form("lx")
'if lx="ment" then
'lx=0
'else
'lx=1
'end if
uid=request.Form("uid")
uid=replace(uid,"'","")
password=trim(request.Form("password"))
password=md5(password)
set rs=server.CreateObject("adodb.recordset")
sql="select * from [05fair_member] where username='"&uid&"' and password='"&password&"'"
rs.open sql,conn,1,1
if not rs.eof then
session("userid")=uid
if rs("lx") then
session("lx")=1
else
session("lx")=0
end if
if session("lx")=0 then
if session("url")<>"table_2_gov.asp" and session("url")<>"table_6.asp" and session("url")<>"table_7.asp" and session("url")<>"table_8.asp" then session("url")=""
else
if session("url")<>"table_2.asp" and session("url")<>"table_3.asp" and session("url")<>"table_4.asp" and session("url")<>"table_5.asp" then session("url")=""
end if
if session("url")="" or isnull(session("url")) then '登陆到记录的页面
response.Redirect("log.asp")
else
response.Redirect(session("url"))
session("url")=""
session.Contents.Remove("url")
end if
else
response.Write("")
response.End()
end if
rs.close
end sub
if request.Form("submit")="- [ 登 录 ] -" then call login
%>