📄 login.asp
字号:
<!--#include file="a25175_top.asp"-->
<!--#include file="Function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="25175css_pro.css" rel="stylesheet" type="text/css" />
<script language="JavaScript">
function checkdata() {
if (document.frm.username.value=='') {
window.alert ("请输入登录ID！")
return false}
if (document.frm.password.value=='') {
window.alert ("请输入您密码！")
return false}
if (document.frm.reg.value=='') {
window.alert ("请输入附加码！")
return false}
return true
}
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="970" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><!--#include file="top.asp"-->
</td>
</tr>
<tr>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" rowspan="10" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#A5BEC6"><table width="200" border="0" cellspacing="1" cellpadding="0">
<tr>
<td bgcolor="#FFFFFF"><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" bgcolor="#F7F7F7"> <img src="images/QQ_d.gif" alt="25175" width="15" height="15" /> <a href="index.asp">前台管理区</a></td>
</tr>
<tr>
<td bgcolor="#ADD7FF"><!--#include file="left.asp"--></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="21"> </td>
</tr>
</table></td>
<td width="10"><div align="center"></div></td>
<td rowspan="10" valign="top" bgcolor="#A5BEC6"><table width="758" border="0" cellspacing="1" cellpadding="0">
<tr>
<td bgcolor="#E7F3FF"><table width="750" border="0" cellspacing="4" cellpadding="0">
<tr>
<td valign="top"><table width="751" border="0" cellspacing="0" cellpadding="10">
<tr>
<td height="300" valign="top" bgcolor="#FFFFFF">
<form name="frm" method="post" action="" onSubmit="return checkdata()">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="15%"><div align="right"><img src="images/admin0.gif" alt="25175" width="30" height="27"></div></td>
<td width="15%"><div align="right">请选择身份：</div></td>
<td width="70%" height="30"><input name="typed" type="radio" value="3" checked>
学生
<input type="radio" name="typed" value="2">
督导
<input type="radio" name="typed" value="1">
领导</td>
</tr>
<tr>
<td colspan="2" align="right">登录ID：</td>
<td height="30"><font color="#FFFFFF">
<input name="username"
type="text" class="bginput" id="username2"
size="20" maxlength="20">
</font></td>
</tr>
<tr>
<td colspan="2" align="right">登录密码：</td>
<td height="30"><font color="#FFFFFF">
<input name="password" type="password" class="bginput" id="password2"
size=20 maxlength="20">
</font></td>
</tr>
<tr>
<td colspan="2" align="right">附加码：</td>
<td height="30"><font color="#FFFFFF">
<input name="reg" type="text" class="bginput" id="password"
size=10 maxlength="4">
</font>
<%
FOR i=1 to 4
suiji=suijishu()
suiji1=suiji1&suiji
response.Write "<img src='images/suiji/"&cstr(suiji)&".gif'>"
next
%>
<input name="reg1" type="hidden" id="reg1" value=<%=suiji1%>></td>
</tr>
<tr>
<td colspan="2"> </td>
<td height="40"><input type="submit" name="Submit" value="登录">
<input type="reset" name="Submit2" value="重置"></td>
<%
username=trim(request.Form("username"))
password=trim(request.Form("password"))
reg=trim(request.Form("reg"))
reg1=trim(request.Form("reg1"))
typed=trim(request.Form("typed"))
if username<>"" and password<>"" and reg<>"" then
if reg<>reg1 then
ShowMessage("附加码错误！")
else
'''''''*************附加码错误，不能登录！
if username=admin and password=adminpassword then
session("Admin")="ADMINHRBU"
response.write"<script>alert('登录成功\n欢迎管理员的到来');location='admin/admin.asp'</script>"
end if
'''''''*************是管理员！登录转向管理
strsql="select * From USERInfo Where typedok=1 and username='"&username&"' and password='"&password&"'"&"and typed="&cint(typed)
set rs=db.execute(strsql)
if not rs.eof then
session("UserID")=rs("username")
session("usertype")=rs("typed")
session("Userclass")=rs("class1")
session("Userdepartment")=rs("depart")
session("UserNAME")=rs("REALNAME")
IP=request.ServerVariables("REMOTE_ADDR")
strsql="insert into userlog(realname,submitdate,ip,typed,depart) values('"&rs("realname")&"','"&now()&"','"&IP&"',"&rs("typed")&",'"&rs("depart")&"')"
db.execute(strsql)
response.write"<script>alert('登录成功\n欢迎"&rs("realname")&"的到来');location='userInfo.asp?UserID="&rs("username")&"'</script>"
else
response.write"<script>alert('对不起，访客无权访问，请登录！\n或你填写的用户名，密码有错误！');location='login.asp'</script>"
end if
'''''''*************附加码错误，不能登录！
end if
end if
%>
</tr>
</table>
</form>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="21"> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
</tr>
<tr>
<td height="25">
<% databaseclose() %>
<!--#include file="foot.asp"--></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -