管理员登录
登录 管理员
2023-06-13 09:13:46 时间
<!-- #include file="cls_main.asp" -->
<!-- #include file="cls_md5.asp" -->
<% 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 "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN""
""http://www.w3.org/TR/html4/loose.dtd"">" & vbCrLf
Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
Response.Write "<title>管理员登录 Powered By:Www.Mesky.Net </title>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<style type=text/css>" & vbCrLf
Response.Write "body {" & vbCrLf
Response.Write " background:#EFEFEF;" & vbCrLf
Response.Write " font-size: 12px;" & vbCrLf
Response.Write " margin-top:0px;" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write vbCrLf
Response.Write "INPUT {" & vbCrLf
Response.Write vbCrLf
Response.Write " FONT-SIZE: 12px;" & vbCrLf
Response.Write " font-family: ""宋体"";" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "SPAN {" & vbCrLf
Response.Write " FONT-SIZE: 12px; POSITION: static" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "a:link,a:visited {" & vbCrLf
Response.Write " color: #0033FF;" & vbCrLf
Response.Write " text-decoration: none;" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</style>" & vbCrLf
Response.Write "<p> </p>" & vbCrLf
Response.Write "<p> </p>" & vbCrLf
Response.Write "<table align=center width=380 style=""border: outset 3px;"" cellpadding=0 cellspacing=0
ID=""Table1"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td style=""padding:3px;background-color:blue;color:white;"">Login MeskyDMS V3
Powered By:Www.Mesky.Cn</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr valign=top>" & vbCrLf
Response.Write " <td><img src=""images/admin_title.gif"" width=""100%""></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td style=""padding:15px;"">" & 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 ("<br><br><< = <a href=""admin_login.asp"">返回管理员登录页</a>")
End If
Case "logout"
Call logout
Case Else
Call login
End Select
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr><td style=""padding:10px;"">" & vbCrLf
Set BrowserType = New Cls_Browser
Response.Write ("客户端操作系统:" & BrowserType.platform & "<br>客户端浏览器: " & BrowserType.Browser
& BrowserType.Version) & vbCrLf
Set BrowserType = Nothing
Response.Write "</td></tr>" & vbCrLf
Response.Write "</table><br><br>" & vbCrLf
Response.Write "</body>" & vbCrLf
Response.Write "</html>" & 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 "<script language=""Javascript""><!--" & vbCrLf
Response.Write "function VF_loginform(){ //v2.0" & vbCrLf
Response.Write "<!--start_of_saved_settings-->" & vbCrLf
Response.Write "<!--type,text,name,verifycode,required,true,isNum,errMsg,请填写右边的确认密码。-->" & vbCrLf
Response.Write "<!--type,password,name,password,required,true,errMsg,请填写登录密码!-->" & vbCrLf
Response.Write "<!--type,text,name,username,required,true,errMsg,请填写登录用户名!-->" & vbCrLf
Response.Write "<!--end_of_saved_settings-->" & vbCrLf
Response.Write " var theForm = document.loginform;" & vbCrLf
Response.Write " var numRE = /^\d+$/;" & vbCrLf
Response.Write " var errMsg = """";" & vbCrLf
Response.Write " var setfocus = """";" & vbCrLf
Response.Write vbCrLf
Response.Write " if (!numRE.test(theForm["verifycode"].value)){" & vbCrLf
Response.Write " errMsg = ""请填写右边的确认密码。"";" & vbCrLf
Response.Write " setfocus = ""["verifycode"]"";" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if (theForm["password"].value == """"){" & vbCrLf
Response.Write " errMsg = ""请填写登录密码!"";" & vbCrLf
Response.Write " setfocus = ""["password"]"";" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if (theForm["username"].value == """"){" & vbCrLf
Response.Write " errMsg = ""请填写登录用户名!"";" & vbCrLf
Response.Write " setfocus = ""["username"]"";" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if (errMsg != """"){" & vbCrLf
Response.Write " alert(errMsg);" & vbCrLf
Response.Write " eval(""theForm"" + setfocus + "".focus()"");" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " else theForm.submit();" & vbCrLf
Response.Write "}//-->" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write " <table border=""0"">" & vbCrLf
Response.Write " <form action=""?action=chklogin"" method=""post"" name=""loginform""
onsubmit=""VF_loginform();return false;""> " & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td><span style=""width:80px;"">用户名:</span></td>" & vbCrLf
Response.Write " <td><input maxlength=20 type=""text"" name=""username"" style=""width:200px;""
tabindex=""1""></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td><span style=""width:80px;"">密 码:</span></td>" & vbCrLf
Response.Write " <td><input maxlength=20 type=""password"" name=""password""
style=""width:200px;""></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td><span style=""width:80px;"">验证码:</span></td>" & vbCrLf
Response.Write " <td><input name=""verifycode"" type=""text"" style=""width:60px;"" value="""
If GetCode = 9999 Then Response.Write "9999"
Response.Write """ maxlength=4> " & vbCrLf
Response.Write " 请在验证码框输入:<img src=""GetCode.asp""></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td> </td>" & vbCrLf
Response.Write " <td align=""right""> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td> </td>" & vbCrLf
Response.Write " <td align=""right""><input type=""submit"" value=""登 录..."" name=""btnSubmit""
style=""width:80px;font:menu;"" ID=""Submit1""></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </form> " & vbCrLf
Response.Write " </table>" & 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 + "<br>" + "<li>请返回输入确认码。"
Founderr = True
ElseIf Session("getcode") = "9999" Then
Session("getcode") = ""
ElseIf Session("getcode") = "" Then
errmsg = errmsg + "<br>" + "<li>请不要重复提交,如需重新登陆请返回登陆页面。"
Founderr = True
ElseIf CStr(Session("getcode")) <> CStr(Trim(Request("verifycode"))) Then
errmsg = errmsg + "<br>" + "<li>您输入的确认码和系统产生的不一致,请重新输入。"
Founderr = True
End If
Session("getcode") = ""
If username = "" Or password = "" Then
Founderr = True
errmsg = errmsg + "<br>" + "<li>请输入您的用户名或密码。<li>"
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 + "<br>" + "<li>您输入的用户名和密码不正确或者您不是系统管理员。<br><li>请<a
href=admin_login.asp>重新输入</a>您的密码。"
Exit Sub
Else
If Trim(Rs("password")) <> password Then
Founderr = True
errmsg = errmsg + "<br>" + "<li>您输入的用户名和密码不正确或者您不是系统管理员。<br><li>请<a
href=admin_login.asp>重新输入</a>您的密码。"
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 "<script>location.href="" & Mesky.Setting(11) & "admin_index.asp"</script>"
End If
End If
End Sub
End Class %>
相关文章
- Ubuntu16.04忘记用户登录密码以及管理员密码,重置密码的解决方案[通俗易懂]
- 远程桌面无法登录,服务开了,系统防火墙也关了,怎么回事?
- Locust学习笔记3——模拟登录案例(非加密)
- 【新版】使用 go-cqhttp 扫码登录,一键接入 ChatGPT 机器人到 QQ 群
- WordPress 技巧:管理员快速登录其他用户账户
- SQLServer 错误 17194 服务器无法加载登录所需的 SSL 提供程序库;连接已关闭。 可以用 SSL 对登录序列或所有通信进行加密,具体取决于管理员配置服务器的方式。 有关以下错误消息的信息,请参阅联机丛书:0xXXXX。 [客户端:11.11.11.11] 故障 处理 修复 支持远程
- SQLServer 错误 18452 用户 “%.*ls” 登录失败。 该登录名为 SQL Server 登录名,不能与 Windows 身份验证一起使用。%.*ls 故障 处理 修复 支持远程
- 解锁Linux系统:精准掌握登录时间(linux登录时间)
- Linux登录失败:排查解决之道(linux登录不了)
- Linux登录:安全、便捷、无忧!(linux登录模式)
- Oracle DBA登录:管理数据库的关键环节(oracledba登陆)
- 实现Linux账户免密登录的方法(Linux免密登录)
- 出错MySQL管理员登录错误:排查与解决(mysql管理员登录)
- 18日登陆Oracle 18日登录,IMP等您来登!(imporacle)
- 如何使用管理员账户登录Oracle数据库系统(管理员登录oracle)
- Oracle 开启用户认证之门(oracle使用用户登录)
- SQLServer无法打开用户默认数据库登录失败错误4064的解决方法