"&_
"
MNB管理登陆
"&_
"
"
End Sub
Sub CheckLogin()
Dim AdminName,AdminPassword,PassCode,Temp
With MNBoard
AdminName=.Fun.GetStr("AdminName")
AdminPassword=.Fun.GetStr("Password")
PassCode=.Fun.GetStr("iCode")
If PassCode="" or AdminName="" or AdminPassword="" Then .Alert"请输入完整后再提交！","Admin_login.asp"
If not .Fun.CheckName(AdminName) or not .Fun.CheckPassword(AdminPassword) then
.SafeBuckler AdminName,.MyIP,1
.Alert"您输入的用户名不存在或者密码错误！","Admin_login.asp"
End if
AdminPassword=Md5(AdminPassword)
If .SafeBuckler(AdminName,.MyIP,0) Then .Alert"BBS安全盾已启动！\n对不起，你尝试登陆错误超过5次，今天不能再登陆后台。\n你的信息已被系统记录！","Index.asp"
If .execute("select name From [i_Admin] where name='"&AdminName&"' And Password='"&AdminPassword&"' And boardID=0").eof Or Session("iCode")<>PassCode Then
Session("iCode")=Empty
.SafeBuckler AdminName,.MyIP,1
.Alert"您输入的用户名不存在或者密码错误或者随机验证码错误！","Admin_login.asp"
Else
.LetMemor "Admin","AdminName",AdminName
.LetMemor "Admin","AdminPassword",AdminPassword
.MyName=AdminName
.NetLog"成功登陆MNB后台"
If .Info(16)="1" Then .execute("delete from [i_Log] where DATEDIFF('d', LogTime,'"&.NowBBSTime&"')>7")
Session("iCode")=Empty
Response.Redirect"Admin_index.asp"
Response.End
End if
End With
End Sub
Sub ExitLogin()
Session(CacheName &"AdminName") = Empty
Response.Cookies(CacheName &"Admin")("AdminName")= Empty
Session(CacheName &"AdminName") = Empty
Response.Cookies(CacheName &"Admin")("AdminPassword")= Empty
'Session.Abandon
Response.redirect"Index.asp"
End Sub
%>