<% BBS.Head"login.asp","","论坛登陆" Dim Action Action=Lcase(Request.querystring("action")) If len(Action)>10 Then BBS.GotoErr(1) Select Case Action Case"exit" If Request.ServerVariables("request_method") <> "POST" then Response.write "
" Response.End End If ExitLogin() Case"login":CheckLogin() Case else:Mian() End select BBS.Footer() Set BBS =Nothing Sub Mian() Dim S S=Request.ServerVariables("HTTP_REFERER") If instr(lcase(S),"login.asp")>0 or instr(lcase(S),"err.asp")>0 then Else Session(CacheName&"BackURL")=S End If S="
" S=S&BBS.Row("请输入您的用户名:"," 没有注册?","65%","") S=S&BBS.Row("请输入您的密码:"," 忘记密码?","65%","") If BBS.Info(14)="1" Then S=S&BBS.Row("请输入右边的验证码:",BBS.GetiCode,"65%","") Else S=S&"" End If S=S&BBS.Row("Cookie 选项:","不保存 保存一天 保存一月","65%","") S=S&BBS.Row("选择登陆方式:","正常登陆 隐身登陆","65%","") S=S&"
" BBS.ShowTable"用户登陆",S End Sub Sub CheckLogin() With BBS Dim Rs,UserName,Password,IsHidden,CookiesDate,Content,iCode,S .CheckMake If .Info(10)<>"0" Then If Session(CacheName&"LoginTime")+.Info(10)/1440>now() then .GotoErr(5) End If UserName=Request.Form("name") Password=Request.Form("password") IsHidden=Request.Form("hidden") iCode=Request.Form("iCode") CookiesDate=.CheckNum(Request.Form("cookies")) If UserName="" or Password="" Then .GoToErr(6) If .Info(14)="1" Then If iCode<>Session("iCode") or Session("iCode")="" Then .GotoErr(8) End If If Not .Fun.Checkname(UserName) OR Not .Fun.CheckPassword(Password) then .GotoErr(16) If .SafeBuckler(UserName,.MyIP,0) Then .Alert"BBS安全盾已启动!\n\n对不起,你尝试登陆错误超过3次,今天不能再登陆论坛。\n你的信息已被系统记录!","Index.asp" Password=MD5(Password) Set Rs = .Execute("select top 1 Id,Name,Password,Isdel,LastTime From [User] where name='"&UserName&"' and password='"&Password&"' and (Isdel=0 or Isdel=2)") If Rs.Eof then .SafeBuckler UserName,.MyIP,1 .GotoErr(9) ElseIf Rs(3)=2 Then .GotoErr(78) Else .LetMemor "","MyID",Rs(0) .LetMemor "","MyName",Rs(1) .LetMemor "","MyPassword",Password .LetMemor "","MyHidden",IsHidden .LetMemor "","CookiesDate",CookiesDate .LetMemor "","LastTime",Rs(4) Session(CacheName & "login")="1" If Int(CookiesDate)>0 Then Response.Cookies(CacheName).Expires=date+Int(CookiesDate) .Execute("update [user] set LastTime='"&.NowBbsTime&"',LastIp='"&.MyIp&"' where ID="&Rs(0)) Session(CacheName&"LoginTime")=now() S=Session(CacheName&"BackURL") If S="" Then S="Index.asp" Content="
  • 3 秒钟后将自动返回首页
  • 立即进入论坛首页
  • 返回刚才浏览的页面
  • " End if Rs.Close Set Rs=Nothing .ShowTable"登陆成功",Content End With End Sub Sub ExitLogin() BBS.SetMemorEmpty() BBS.ShowTable "退出论坛","
  • 已经成功的退出论坛
  • 重新登陆
  • 进入论坛首页
  • " End Sub %>