我要评论复制代码 代码如下:
<!-- #include file="conn.asp" -->
<!-- #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 %>
<!-- #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 %>
您可能感兴趣的文章:
如您对本文有疑问或者有任何想说的，请点击进行留言回复，万千网友为您解惑！
网友评论