📄 login.asp

📁 1、采用4.5修改而成。 2、添加了求片区
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%'====================================================================
'=              Copyright (c) 2005-2007,马克斯(QQ448265)开发             =
'=                      All rights reserved.                        =
'=------------------------------------------------------------------=
'=                     文件名称：login.asp                   =
'=                     摘    要：后台—管理登录                 =
'=------------------------------------------------------------------=
'=                     用   途：免费电影系统                         =
'=                     最后更新：2007-07-10                         =
'===================================================================%><html>
<head>
<title>管理员登陆</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body topmargin="0" leftmargin="0" rightmargin="0">
<div align="center"><BR>
<%
maxz_do=Request.ServerVariables("url")
maxz_do=LCase(maxz_do)
If InStr(maxz_do,"/admin/")>0 Then 
response.write"<script>alert('请将默认管理目录admin改名！');</script>"
End If 


dim FoundErr,ip,errmsg
FoundErr=False 
select case request("action")
case "logout"   '退出系统
	call logout()
case else
	call main()
end select

sub main()
If request("action")="login" then
		Call chklogin()
		Error_msg(Errmsg)
	Else
		Dim num1
		Dim rndnum
		Randomize
		Do While Len(rndnum)<4
		num1=CStr(Chr((57-48)*rnd+48))
		rndnum=rndnum&num1
		Loop
		response.cookies("verifycode")=rndnum
		
%>
<form method="post" action="login.asp?action=login" target="_top">
    <table border="0" align=center cellpadding="5" cellspacing="1" class=tableBorder width="60%">
     <tr> <th colspan=2>管理员登陆</th>
     </tr>
      <tr>
        <td align=center class="forumRowHighlight" width="30%" >用户名：</td><td class=forumRow width="70%"><input name="AdminName" maxlength="10" size="25" class="tableBorder" value="admin"></td>
      </tr>
      <tr>
        <td align=center class="forumRowHighlight">密&nbsp;&nbsp;码：</td><td class=forumRow><input type="password" name="PassWord" maxlength="30" size="25" class="tableBorder"></td>
      </tr>
      <tr>
        <td align=center class="forumRowHighlight">附加码：</td><td class=forumRow><input name="verifycode" maxlength="20" size="12" class="tableBorder" value="<%=request.cookies("verifycode")%>"> 请输入附加码:<B><font color=RED><%=request.cookies("verifycode")%></font></B>
</td>
      </tr>
      <td colspan=2 align=center class=forumRowHighlight>
    <input type="submit" name="Submit" value="登 陆..." class=button>&nbsp;&nbsp;<input onclick=window.location.reload() type=button value=刷新本页 name=refresh class=button>&nbsp;
    <input type="button" name="Submit1" onclick="javascript:location.href='../'" value="返回首页" class=button></td></tr>
    </table></form>
<%
end if
end sub
sub logout()
'清除COOKIES中管理员身份的验证信息.
response.cookies("AdminName")=""
response.cookies("adminid")=""
Response.Redirect "login.asp"
end sub
sub chklogin()
dim adminname,password
adminname=trim(replace(request("adminname"),"'",""))
password=md5(trim(replace(request("password"),"'","")))
	if request("verifycode")="" then
		errmsg=errmsg+"<br>"+"<li>请返回输入确认码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
		founderr=true
	elseif request.cookies("verifycode")="" then
		errmsg=errmsg+"<br>"+"<li>请不要重复提交，如需重新登陆请返回登陆页面。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
		founderr=true
	elseif request.cookies("verifycode")<>trim(request("verifycode")) then
		errmsg=errmsg+"<br>"+"<li>您输入的确认码和系统产生的不一致，请重新输入。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
		founderr=true
	end if
	response.cookies("verifycode")=""
	if adminname="" or password="" then
		founderr=true
		Errmsg=Errmsg+"<br>"+"<li>请输入您的用户名或密码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
	end if
 if founderr then exit sub
	ip=Request.ServerVariables("REMOTE_ADDR")
	set rs=conn.execute("select * from [zt_admin] where adminname='"&adminname&"'")
	if rs.eof and rs.bof then
		rs.close
		set rs=nothing
		errmsg= "您输入的用户名和密码不正确或者您不是系统管理员。请<a href=admin_login.asp>重新输入</a>您的密码。<b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
		exit sub
	else
               if rs("isActive")=0 then
			errmsg= "你的用户名已被锁定,你不能登陆!请联系管理员."
                exit sub
		end if
		if trim(rs("password"))<>password then
			errmsg= "您输入的用户名和密码不正确或者您不是系统管理员。请<a href=login.asp>重新输入</a>您的密码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
		exit sub
                else
       response.cookies("AdminName")=rs("adminname")
		response.cookies("adminid")=rs("id")
		conn.execute("update [zt_admin] set Logintime='"&Now()&"',loginip='"&ip&"' where adminname='"&adminname&"'")
		rs.close
		set rs=nothing
		response.redirect("admin_index.asp")
		end if
	end if
        
end sub
sub Error_Msg(ErrMsg)
response.write "    <table width=""65%"" align=""center"" border=""0"" cellpadding=""5"" cellspacing=""1"" class=""tableBorder"">"& vbCrLf
response.write "    <tr> "& vbCrLf
response.write "      <th>错误提示信息!</th>"& vbCrLf
response.write "    </tr>"& vbCrLf
response.write "    <tr> "& vbCrLf
response.write "      <td width=""100%"" class=""forumRow""><b>　　产生错误的可能原因：</b><BR>"&ErrMsg &" "& vbCrLf
response.write "   <p align=""center""><a href='"&Request.ServerVariables("HTTP_REFERER")&"'>返回上一页...</a></p></td>"& vbCrLf
response.write "    </tr>"& vbCrLf
response.write "      </table><BR>"& vbCrLf
end sub
%>
</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -