管理员登录　　　　　　　　Powered By：Www.Mesky.Net　　　　　　

管理员登录复制代码代码如下: <% dim obj set obj = New admin_login call obj.Main() set obj = nothing class admin_login Private Founderr, errmsg,Mesky Private Sub Class_Initialize() Founderr = False Set Mesky = New Cls_Main End Sub Private Sub Class_Terminate() Set Mesky = Nothing End Sub Public Sub Main() Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "管理员登录　　　　　　　　Powered By：Www.Mesky.Net　　　　　　" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & vbCrLf Response.Write "

" & vbCrLf Response.Write "" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "

" & vbCrLf Dim username Dim password Dim ip Dim BrowserType Select Case Request("action") Case "chklogin" Call chklogin If Founderr Then Response.Write (errmsg) Response.Write ("

<< = 返回管理员登录页") End If Case "logout" Call logout Case Else Call login End Select Response.Write "

" & vbCrLf Set BrowserType = New Cls_Browser Response.Write ("客户端操作系统:" & BrowserType.platform & "
客户端浏览器: " & BrowserType.Browser & BrowserType.Version) & vbCrLf Set BrowserType = Nothing Response.Write "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf End Sub Sub logout() '用户退出 Session("adminName") = "" Session("adminPass") = "" Call login End Sub Sub login() '用户登录 On Error Resume Next Dim Ados, GetCode ' Ados = Server.CreateObject("Adodb.Stream") If Err Then GetCode = 9999 End If Response.Write "" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "

用户名：
密　码：
验证码：	" & vbCrLf Response.Write " 请在验证码框输入：

" & vbCrLf End Sub '检验用户登录 Sub chklogin() Dim UserName,Password,IP username = Trim(Replace(Request("username"), "'", "")) password = MD5(Trim(Replace(Request("password"), "'", "")), 16) If Request("verifycode") = "" Then errmsg = errmsg + "
" + "

请返回输入确认码。" Founderr = True ElseIf Session("getcode") = "9999" Then Session("getcode") = "" ElseIf Session("getcode") = "" Then errmsg = errmsg + "
" + "

请不要重复提交，如需重新登陆请返回登陆页面。" Founderr = True ElseIf CStr(Session("getcode")) <> CStr(Trim(Request("verifycode"))) Then errmsg = errmsg + "
" + "

您输入的确认码和系统产生的不一致，请重新输入。" Founderr = True End If Session("getcode") = "" If username = "" Or password = "" Then Founderr = True errmsg = errmsg + "
" + "

请输入您的用户名或密码。

" End If If Founderr Then Exit Sub ip = Replace(Request.ServerVariables("REMOTE_ADDR"), "'", "") Dim Rs Set Rs = Mesky.Execute("select * from Mesky_SiteManager where username='" & username & "'") If Rs.EOF And Rs.BOF Then Set Rs = Nothing Founderr = True errmsg = errmsg + "
" + "

您输入的用户名和密码不正确或者您不是系统管理员。

请重新输入您的密码。" Exit Sub Else If Trim(Rs("password")) <> password Then Founderr = True errmsg = errmsg + "
" + "

您输入的用户名和密码不正确或者您不是系统管理员。

请重新输入您的密码。" Set Rs = Nothing Exit Sub Else Session("adminName") = Rs("UserName") Session("adminPass") = Rs("Password") Session.Timeout = 45 Mesky.Execute ("update Mesky_SiteManager set LastLogin= " & SqlNowString & ",LastLoginIP='" & ip & "',LastActive=" & SqlNowString & ",Logins=Logins+1 where username='" & username & "'") Set Rs = Nothing Call Mesky.LoadSetting() Response.Write "" End If End If End Sub End Class %>