admin_login.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 248 行
ASP
248 行
<!--#include file="../conn1.asp"-->
<!--#include file="../inc/class_sys.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
Response.expires = 0
Response.expiresabsolute = now() - 1
Response.addHeader "pragma","no-cache"
Response.addHeader "cache-control","private"
Response.cachecontrol = "no-cache"
If request("action")="logout" Then
session("AdminName")=""
Response.Redirect "../index.asp"
End If
dim oblog
set oblog=new class_sys
oblog.start
if request("action")<>"login" then
%>
<html>
<head>
<title>管理员登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/STYLE.CSS">
<script language=javascript>
<!--
function SetFocus()
{
if (document.Login.username.value=="")
document.Login.username.focus();
else
document.Login.username.select();
}
function CheckForm()
{
if(document.Login.username.value=="")
{
alert("请输入用户名！");
document.Login.username.focus();
return false;
}
if(document.Login.password.value == "")
{
alert("请输入密码！");
document.Login.password.focus();
return false;
}
if (document.Login.codestr.value==""){
alert ("请输入您的验证码！");
document.Login.codestr.focus();
return false;
}
}
function CheckBrowser()
{
var app=navigator.appName;
var verStr=navigator.appVersion;
if (app.indexOf('Netscape') != -1) {
alert("提示：\n 你使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
else if (app.indexOf('Microsoft') != -1) {
if (verStr.indexOf("MSIE 3.0")!=-1 || verStr.indexOf("MSIE 4.0") != -1 || verStr.indexOf("MSIE 5.0") != -1 || verStr.indexOf("MSIE 5.1") != -1)
alert("提示：\n 您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
}
//-->
</script>
</head>
<body class="bgcolor">
<p> </p>
<form name="Login" action="admin_login.asp?action=login" method="post" target="_parent" onSubmit="return CheckForm();">
<table width="585" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td width="280" rowspan="2"><div align="right"> </div></td>
<td width="344" background="Images/entry2.gif"> <table width="100%" border="0" cellspacing="8" cellpadding="0" align="center">
<tr align="center">
<td height="38" colspan="2" class="style1"><font size="3"><strong>网域高科博客后台管理员登录</strong></font> </td>
</tr>
<tr>
<td align="right">用户名称：</td>
<td><input name="username" type="text" id="username" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onMouseOver="this.style.background='#D6DFF7';" onMouseOut="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>
</tr>
<tr>
<td align="right">用户密码：</td>
<td><input name="password" type="password" id="password" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onFocus="this.select(); " onMouseOver="this.style.background='#D6DFF7';" onMouseOut="this.style.background='#FFFFFF'" maxlength="20"></td>
</tr>
<tr>
<td align="right">登录身份：</td>
<td><input name="logintype" type="radio" id="logintype" value="0" checked>系统管理员
<input name="logintype" type="radio" id="logintype" value="1" >内容管理员</td>
</tr>
<tr>
<td align="right">验 证 码：</td>
<td><input name="codestr" id="codestr" style="border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onFocus="this.select(); " onMouseOver="this.style.background='#D6DFF7';" onMouseOut="this.style.background='#FFFFFF'" size="6" maxlength="4">
<%=oblog.getcode%></td>
</tr>
<tr>
<td colspan="2"> <div align="center">
<input name="Submit" type="submit" value=" 确 认 ">
<input name="reset" type="reset" id="reset" value=" 清 除 " >
<br>
<br>
若验证码无法显示，请修改config.asp文件中的blogdir路径<br>
<strong> </strong> </div></td>
</tr>
</table></td>
</tr>
<tr><td height="3"></td></tr>
</table>
</form>
<script language="JavaScript" type="text/JavaScript">
SetFocus();
</script>
</body>
</html>
<%
else
dim sql,rs
dim username,password
dim founderr,errmsg
Dim logintype,strlogin
Dim WriteErrLog
Dim sIP
sIP=oblog.userIp
WriteErrLog = True
if not oblog.codepass Then
WriteErrLog = False
FoundErr=True
errmsg=errmsg & "<br><li>验证码错误！</li>"
end if
username=oblog.filt_badstr(trim(request("username")))
password=trim(request("password"))
logintype=Trim(request("logintype"))
If logintype<>"" Then
logintype = CLng (logintype)
If logintype > 1 Then logintype = 0
Else
logintype = 0
End If
If logintype = 0 Then
strlogin = "系统"
Else
strlogin = "内容"
End if
if username="" Then
WriteErrLog = False
FoundErr=True
errmsg=errmsg & "<br><li>用户名不能为空！</li>"
end if
if password="" Then
WriteErrLog = False
FoundErr=True
errmsg=errmsg & "<br><li>密码不能为空！</li>"
end if
if FoundErr<>True then
password=md5(password)
set rs=server.createobject("adodb.recordset")
sql="select * from oblog_admin where username='"&username&"'"
if not IsObject(conn) then link_database
rs.open sql,conn,1,3
if rs.bof and rs.eof then
FoundErr=True
errmsg=errmsg & "<br><li>用户名、密码错误或者权限不足！</li>"
else
if password<>rs("password") then
FoundErr=True
errmsg=errmsg & "<br><li>用户名、密码错误或者权限不足！</li>"
Else
If logintype = 0 Then
If rs("roleid") <> 0 Then
FoundErr=True
errmsg=errmsg & "<br><li>用户名、密码错误或者权限不足！</li>"
oblog.sys_err(errmsg)
Response.End
End If
Else
If rs("roleid") = -1 Then
FoundErr=True
errmsg=errmsg & "<br><li>用户名、密码错误或者权限不足！</li>"
oblog.sys_err(errmsg)
Response.End
End If
End if
rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("LoginTimes")=rs("LoginTimes")+1
rs.update
session.Timeout=60
If logintype = 0 Then
session("adminname")=rs("username")
session("adminpassword")=rs("password")
Else
Session("m_name")=rs("username")
session("m_pwd")=rs("password")
End if
Session("roleid")=rs("roleid")
rs.close
'---------------------------------------
'写日志
rs.Open "Select * From oblog_syslog Where 1=0",conn,1,3
rs.AddNew
If logintype = 0 Then
rs("username")=session("adminname")
Else
rs("username")=Session("m_name")
End if
rs("addtime")=Now()
rs("addip")=sIP
rs("desc")=session("adminname") & " 于 " & Now() & " 自 " & sIP & " (admin/admin_login.asp) 登入"&strlogin&"管理员界面"
rs("itype")=1 '2系统自动记录类/1:管理员操作类
rs.Update
rs.Close
'---------------------------------------
set rs=Nothing
If logintype = 0 Then
response.redirect "admin_index.asp"
Else
response.redirect "../manager/m_index.asp"
End if
end if
end if
rs.close
set rs=nothing
end if
if founderr=True Then
if WriteErrLog then
'---------------------------------------
'写日志
set rs=server.createobject("adodb.recordset")
rs.Open "Select * From oblog_syslog Where 1=0",conn,1,3
rs.AddNew
rs("username")=username
rs("addtime")=Now()
rs("addip")=sIP
rs("desc")=username & " 于 " & Now() & " 自 " & sIP & " (admin/admin_login.asp) 尝试登入"&strlogin&"管理员界面失败"
rs("itype")=0 '2系统自动记录类/1:管理员操作类/0:错误登录日志
rs.Update
rs.Close
'---------------------------------------
End if
oblog.sys_err(errmsg)
end if
end if
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?