[求助}asp论坛增加uid登陆
以下是代码:Sub Mian()
Dim S
S=Request.ServerVariables("HTTP_REFERER")
If instr(lcase(S),"login.asp")>0 or instr(lcase(S),"error.asp")>0 then
Else
Session(CacheName&"BackURL")=S
End If
S="<form method=""post"" style=""margin:0px"" action=""login.asp?action=login"">"
S=S&BBS94KK.Row("<b>请输入您的用户名:</b>","<input name=""name"" type=""text"" class=""submit"" size=""20"" /> <a href=""Register.asp"">没有注册?</a>","65%","")
S=S&BBS94KK.Row("<b>请输入您的密码:</b>","<input name=""Password"" type=""password"" size=""20"" /> <a href=""UserSetup.asp?Action=ForgetPassword"">忘记密码?</a>","65%","")
If BBS94KK.Info(14)="1" Then
S=S&BBS94KK.Row("<b>请输入右边的验证码:</b>",BBS94KK.GetSafeCode,"65%","")
Else
S=S&"<input name=""safecode"" type=""hidden"" value=""94kk"" />"
End If
S=S&BBS94KK.Row("<b>Cookie 选项:</b>","<input type=radio name=""cookies"" value=""0"" checked />不保存<br /><input type=radio name=cookies value=""1"" />保存一天<br /><input type=radio name=cookies value=""30"" />保存一月<br /><input type=radio name=cookies value=""365"" />保存一年","65%","")
S=S&BBS94KK.Row("<b>选择登陆方式:</b>","<input type=radio value=""1"" checked name='hidden' />正常登陆<br /><input type='radio' value='2' name='hidden' />隐身登陆","65%","")
S=S&"<div style="" padding:5px;BACKGROUND: "&BBS94KK.SkinsPIC(2)&";"" align=""center""><input Class='login' type=""submit"" value="" 登 陆 "" /></div></form>"
BBS94KK.ShowTable"用户登陆",S
End Sub
Sub CheckLogin()
With BBS94KK
Dim Rs,UserName,Password,IsHidden,CookiesDate,Content,SafeCode,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")
SafeCode=Request.Form("safecode")
CookiesDate=.CheckNum(Request.Form("cookies"))
If UserName="" or Password="" Then .GoToErr(6)
If .Info(14)="1" Then
If SafeCode<>Session("Safecode") or Session("SafeCode")="" 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"94KKBBS安全盾已启动!\n\n对不起,你尝试登陆错误超过3次,今天不能再登陆论坛。\n你的信息已被系统记录!","Index.asp"
Password=MD5(Password)
Set Rs = .Execute("select top 1 Id,Name,Password,Isdel,LastTime From [KK_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)
If Int(CookiesDate)>0 Then Response.Cookies(CacheName).Expires=date+Int(CookiesDate)
.Execute("update [KK_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="<meta http-equiv=refresh content=2;url=index.asp /><div style='margin: 15px;line-height: 150%'><li><b>3</b> 秒钟后将自动返回首页</li><li><a href='index.asp'>立即进入论坛首页</a></li><li><a href="&S&">返回刚才浏览的页面</a><br></div>"
End if
Rs.Close
Set Rs=Nothing
Session(CacheName&"BackURL")=""
.ShowTable"登陆成功",Content
End With
End Sub
Dim S
S=Request.ServerVariables("HTTP_REFERER")
If instr(lcase(S),"login.asp")>0 or instr(lcase(S),"error.asp")>0 then
Else
Session(CacheName&"BackURL")=S
End If
S="<form method=""post"" style=""margin:0px"" action=""login.asp?action=login"">"
S=S&BBS94KK.Row("<b>请输入您的用户名:</b>","<input name=""name"" type=""text"" class=""submit"" size=""20"" /> <a href=""Register.asp"">没有注册?</a>","65%","")
S=S&BBS94KK.Row("<b>请输入您的密码:</b>","<input name=""Password"" type=""password"" size=""20"" /> <a href=""UserSetup.asp?Action=ForgetPassword"">忘记密码?</a>","65%","")
If BBS94KK.Info(14)="1" Then
S=S&BBS94KK.Row("<b>请输入右边的验证码:</b>",BBS94KK.GetSafeCode,"65%","")
Else
S=S&"<input name=""safecode"" type=""hidden"" value=""94kk"" />"
End If
S=S&BBS94KK.Row("<b>Cookie 选项:</b>","<input type=radio name=""cookies"" value=""0"" checked />不保存<br /><input type=radio name=cookies value=""1"" />保存一天<br /><input type=radio name=cookies value=""30"" />保存一月<br /><input type=radio name=cookies value=""365"" />保存一年","65%","")
S=S&BBS94KK.Row("<b>选择登陆方式:</b>","<input type=radio value=""1"" checked name='hidden' />正常登陆<br /><input type='radio' value='2' name='hidden' />隐身登陆","65%","")
S=S&"<div style="" padding:5px;BACKGROUND: "&BBS94KK.SkinsPIC(2)&";"" align=""center""><input Class='login' type=""submit"" value="" 登 陆 "" /></div></form>"
BBS94KK.ShowTable"用户登陆",S
End Sub
Sub CheckLogin()
With BBS94KK
Dim Rs,UserName,Password,IsHidden,CookiesDate,Content,SafeCode,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")
SafeCode=Request.Form("safecode")
CookiesDate=.CheckNum(Request.Form("cookies"))
If UserName="" or Password="" Then .GoToErr(6)
If .Info(14)="1" Then
If SafeCode<>Session("Safecode") or Session("SafeCode")="" 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"94KKBBS安全盾已启动!\n\n对不起,你尝试登陆错误超过3次,今天不能再登陆论坛。\n你的信息已被系统记录!","Index.asp"
Password=MD5(Password)
Set Rs = .Execute("select top 1 Id,Name,Password,Isdel,LastTime From [KK_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)
If Int(CookiesDate)>0 Then Response.Cookies(CacheName).Expires=date+Int(CookiesDate)
.Execute("update [KK_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="<meta http-equiv=refresh content=2;url=index.asp /><div style='margin: 15px;line-height: 150%'><li><b>3</b> 秒钟后将自动返回首页</li><li><a href='index.asp'>立即进入论坛首页</a></li><li><a href="&S&">返回刚才浏览的页面</a><br></div>"
End if
Rs.Close
Set Rs=Nothing
Session(CacheName&"BackURL")=""
.ShowTable"登陆成功",Content
End With
End Sub