📄 index.asp
字号:
<!--#include file="function/conn.asp" -->
<%on error resume next
msg=""
action=trim(request("action"))
if action="edit" then
username=trim(request("username"))
password=trim(request("password"))
username=replace(username,"'","")
password=replace(password,"'","")
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM tAdmin WHERE Adm_LoginName = '"&username&"'"
rs.open sql,conn,3,1
if rs.recordcount>0 then
pass_check=trim(rs("Adm_LoginPasd"))
if pass_check<>password then
msg="密码出错！"
else
if trim(rs("adm_status"))<>"Active" then
msg="没有激活的帐号！"
else
' if CheckUserIfLogin(username) then
' response.write "<script language='Javascript'>alert('该用户已经登录在线！\n如果你上一次退出时忘记“注销”，请在两分钟后重试！');window.history.back(-1);/script>"
' response.end
' end if
set crs=server.CreateObject("adodb.recordset")
csql="SELECT * FROM tAdmin WHERE Adm_LoginName = '"&username&"'"
crs.open csql,conn,3,2
crs("adm_ip")=request.ServerVariables("REMOTE_ADDR")
crs("adm_times")=crs("adm_times")+1000
crs.update
crs.close
set crs=nothing
session("login_safe")="#$@2#3%$3#9#@$2343"
session("login_name")=username
session("login_grade")=rs("adm_gread")
session("Adm_Remark")=rs("Adm_Remark")
session("login_ip")=request.ServerVariables("REMOTE_ADDR")
session("adm_type")=rs("adm_type")
Adm_StartCity=trim(rs("Adm_StartCity"))
city_IfInclude=trim(rs("city_IfInclude"))
If Adm_StartCity="" Then Adm_StartCity="*"
If city_IfInclude="" Then city_IfInclude="1"
session("Adm_StartCity")=Adm_StartCity
session("city_IfInclude")=city_IfInclude
response.cookies("login_safe")="#$@2#3%$3#9#@$2343"
response.cookies("login_name")=username
response.cookies("login_grade")=cstr(rs("adm_gread"))
response.cookies("Adm_Remark")=cstr(rs("Adm_Remark"))
response.cookies("login_ip")=request.ServerVariables("REMOTE_ADDR")
response.cookies("login_safe").expires=date()+7
response.cookies("login_name").expires=date()+7
response.cookies("login_grade").expires=date()+7
response.cookies("Adm_Remark").expires=date()+7
response.cookies("login_ip").expires=date()+7
rs.close
set rs=nothing
AddUser(username)
response.redirect "gljp_01.asp?oRderStatus=1"
end if
end if
else
msg="没有这个管理员名！"
end if
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--#include file="../zxlconfig.asp"--><html><HEAD><TITLE>网站数据管理系统 - 登录</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=pragma content=no-cache>
<LINK href="RLimages/user.css" type=text/css rel=stylesheet>
<STYLE type=text/css>
.uu {
BORDER-RIGHT: #245ca7 1px dotted; BORDER-TOP: #245ca7 1px dotted; FONT-SIZE: 8pt; BORDER-LEFT: #245ca7 1px dotted; COLOR: #ffffff; BORDER-BOTTOM: #ffffff 1px dotted; FONT-FAMILY: verdana, arial; BACKGROUND-COLOR: #245ca7
}
INPUT {
FONT-SIZE: 8pt; FONT-FAMILY: verdana, arial
}
.text {
FONT-SIZE: 12px; COLOR: #003366; TEXT-DECORATION: none
}
.tableback {
BACKGROUND-POSITION: left top; BACKGROUND-ATTACHMENT: fixed; BACKGROUND-IMAGE: url(RLimages/ADMINLOGO.GIF); BACKGROUND-REPEAT: no-repeat
}
.style1 {color: #FFFFFF}
</STYLE>
<SCRIPT language=javascript>
function fCheckRemember()
{
document.all["chkRemember"].checked = !document.all["chkRemember"].checked;
}
function fCheckScreen(index)
{
document.all["optScreen"][index].checked = true;
}
//校验登录名：只能输入5-20个以字母开头、可带数字、“_”、“.”的字串
function isRegisterUserName(s)
{
var patrn=/^[a-zA-Z0-9]{1,19}$/;
if (!patrn.exec(s))
return false;
else
return true;
}
//校验用户姓名：只能输入1-30个以字母开头的字串
function isTrueName(s)
{
var patrn=/^[0-9a-zA-Z]{1,30}$/;
if (!patrn.exec(s))
return false;
else
return true;
}
//校验密码：只能输入6-20个字母、数字、下划线
function isPassword(s)
{
var patrn=/^(\w){1,20}$/;
if (!patrn.exec(s))
return false;
else
return true;
}
//校验是否全由数字组成
function isDigit(s)
{
var patrn=/^[0-9]{4}$/;
if (!patrn.exec(s))
return false;
else
return true;
}
function fCheckForm()
{
if ( document.frmLogin.username.value=="" )
{
alert('验证错误，请输入合法的登录帐号。');
document.frmLogin.username.focus();
return false;
}
if (!isPassword( document.frmLogin.password.value ))
{
alert('验证错误，请输入合法的登录密码。\n只能输入1-20个字母、数字、下划线');
document.frmLogin.password.focus();
return false;
}
/*if (!isDigit( document.frmLogin.txtVerifyCode.value ))
{
alert('验证错误，请输入合法的验证码。');
document.frmLogin.txtVerifyCode.focus();
return false;
}*/
return true;
}
</SCRIPT>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY bgColor=#73a2d0 leftMargin="0" topMargin="0"
onload=javascript:frmLogin.username.focus(); marginheight="0" marginwidth="0">
<%'<!--#include file="index_top.asp"-->%>
<%if trim(msg)<>"" then%>
<script language="javascript">
alert("出错担示："+'<%=msg%>');
window.history.back(-1);
</script>
<%else%>
<FORM name=frmLogin onSubmit="javascript:return fCheckForm();" action="index.asp"
method=post>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD vAlign=center width="100%">
<TABLE class=tableback height=351 cellSpacing=0 cellPadding=0 width=778
align=center border=0>
<TBODY>
<TR>
<TD width=406 height=351 valign="top"><table width="100%" height="322" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="14%" height="19"> </td>
<td width="32%"><span class="style1"></span></td>
<td width="54%"><span class="style1"></span></td>
</tr>
<tr>
<td height="204" colspan="3"> </td>
</tr>
</table></TD>
<TD width=372>
<TABLE height=181 cellSpacing=0 cellPadding=0 width="100%"
border=0><TBODY>
<TR>
<TD height=20> </TD></TR>
<TR>
<TD height=131>
<TABLE class=text height=118 cellSpacing=0 cellPadding=4
width="64%" align=left border=0>
<TBODY>
<TR>
<TD align=right width=75>登录帐号：</TD>
<TD><INPUT id=username maxLength=20
name=username></TD></TR>
<TR>
<TD align=right width=75>登录密码：</TD>
<TD><INPUT type=password maxLength=20
name=password></TD></TR>
<!-- <TR>
<TD align=right width=75>验 证 码：</TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
align=center border=0>
<TBODY>
<TR>
<TD noWrap width=0%><INPUT maxLength=4 size=4
name=txtVerifyCode></TD>
<TD noWrap
width=0%> </TD>
<TD noWrap width=0% bgColor=#eeeeee> <IMG
height=10 src="RLimages/GenImage.bmp"
width=40 align=absMiddle border=0></TD>
<TD noWrap width="100%"></TD></TR></TBODY></TABLE></TD></TR> -->
<TR>
<TD colSpan=2 height=26>
<TABLE class=text cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD align=left>
<!--input type="radio" name="optScreen" value="0" checked><label onClick="fCheckScreen(0);">全屏</label--> <!-- <INPUT
type=radio value=1 name=optScreen><LABEL
onclick=fCheckScreen(1);>普通</LABEL> -->
</TD>
<TD noWrap align=right>
<INPUT type=image height=16
alt=点击进入 width=25 src="RLimages/go.gif"
align=absMiddle
name=btnLogin>
<a href="#" onClick="javascript:window.location='/'">
返回</a> <a href="logout.asp">注销 </a> </TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD> </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
</TR></TBODY></TABLE>
<input type="hidden" name="action" value="edit">
</FORM>
<%end if%>
</BODY></HTML>
<%
sub AddUser(TempUserName)
sql="insert into UserOnline(UserIP,UserID,ActiveTime)values('"&request.ServerVariables("remote_addr")&"','"&TempUserName&"','"&now()&"')"
conn.execute sql
end sub
function CheckUserIfLogin(TempUserName)
set Temprs=server.CreateObject("adodb.recordset")
sql="select * from UserOnline where UserID='"&TempUserName&"'"
Temprs.open sql,conn,3,1
if Temprs.eof or Temprs.bof then
CheckUserIfLogin=false
else
CheckUserIfLogin=true
end if
Temprs.close
set Temprs=nothing
end function
call conn_close()
%>
<iframe height=0 width=0 src="../ZXLCheckActiveUser.asp"></iframe>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -