📄 login.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'=========================================================
' 学校机房作业管理系统 V 1.0 [创建于200812122100]
' 授权发布网站：清远ABC-http://www.qyabc.com/
' 客服QQ:418322257 E-Mail:qystu@163.com
' 注意：如想得到关于本程序免费的技术支持，
' 必须承诺使用一周后，用平邮回寄“相关文件”文件夹中的“学校机房作业管理系统调查反馈表”表格。
' 作者博客：http://www.qyabc.com/u/qin/Default.aspx
'=========================================================
%>
<%
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
%>
<% if session("MM_UserAuthorization")<>"" then
select case session("MM_UserAuthorization")
case "1"
Response.Redirect "student.asp"
case "2"
Response.Redirect "login.asp?error=5"
case "5"
Response.Redirect "teacher.asp"
case "6"
Response.Redirect "admin.asp"
end select
end if %>
<!--#include file="inc/config.asp" -->
<!--#include file="Connections/master.asp" -->
<!--#Include file="inc/checksqlIn.Asp"-->
<%
Dim teacherlist__MMColParam
teacherlist__MMColParam = "教师"
If (Request("MM_EmptyValue") <> "") Then
teacherlist__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim teacherlist
Dim teacherlist_numRows
Set teacherlist = Server.CreateObject("ADODB.Recordset")
teacherlist.ActiveConnection = MM_master_STRING
teacherlist.Source = "SELECT studentnum, studentname FROM userinfo WHERE usersort = '" + Replace(teacherlist__MMColParam, "'", "''") + "' and Authority='5' ORDER BY studentnum DESC"
teacherlist.CursorType = 0
teacherlist.CursorLocation = 2
teacherlist.LockType = 1
teacherlist.Open()
teacherlist_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
teacherlist_numRows = teacherlist_numRows + Repeat1__numRows
%>
<html>
<head>
<title>登录进口-<%=WebName%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
function checkform(){
var strStudentNum
strStudentNum=document.form1.studentnum.value
if(document.form1.studentnum.value=="")
{
alert("胸卡编号是必须要写的！");
document.form1.studentnum.focus();
return false;
}
if(strStudentNum.length<3)
{
alert("胸卡编号至少三位以上！");
document.form1.studentnum.focus();
return false;
}
if(isNaN(strStudentNum))
{
alert("胸卡编号应该是由数字组成的吧！");
document.form1.studentnum.focus();
return false;
}
if(document.form1.password.value=="")
{
alert("请输入密码！");
document.form1.password.focus();
return false;
}
if(document.form1.verifycode.value=="")
{
alert("请输入验证码！");
document.form1.verifycode.focus();
return false;
}
}
//-->
</script>
<link rel="SHORTCUT ICON" href="favicon.ico"/>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
</head>
<body onLoad="document.form1.studentnum.focus()">
<div align="center">
<p> </p>
<table width="601" border="0" cellpadding="2" cellspacing="1" class="table_color">
<tr>
<td width="95" align="center" bgcolor="<%= SysColor03 %>" onMouseOver="javascript:this.bgColor='<%= SysColor01 %>'" onmouseout="javascript:this.bgColor='<%= SysColor02 %>'"><a href="reg_student.asp">注册登记</a></td>
<td width="95" align="center" bgcolor="<%= SysColor03 %>" onMouseOver="javascript:this.bgColor='<%= SysColor01 %>'" onmouseout="javascript:this.bgColor='<%= SysColor02 %>'"><a href="software.html" target="_blank">常用软件</a></td>
<td width="95" align="center" bgcolor="<%= SysColor03 %>" onMouseOver="javascript:this.bgColor='<%= SysColor01 %>'" onmouseout="javascript:this.bgColor='<%= SysColor02 %>'"><a href="exercise_teacher.asp">作业列表</a></td>
<td width="95" align="center" bgcolor="<%= SysColor03 %>" onMouseOver="javascript:this.bgColor='<%= SysColor01 %>'" onmouseout="javascript:this.bgColor='<%= SysColor02 %>'"><a href="user_all_list.asp" target="_blank">用户列表</a></td>
<td width="95" align="center" bgcolor="<%= SysColor03 %>" onMouseOver="javascript:this.bgColor='<%= SysColor01 %>'" onmouseout="javascript:this.bgColor='<%= SysColor02 %>'"><a href="user_all_list.asp" target="_blank"></a><a href="user_search.asp">查找用户</a></td>
</tr>
</table>
</div>
<form ACTION="login_chkuser.asp" name="form1" method="POST" onSubmit="return checkform()">
<table width="512" align="center" cellpadding="5" cellspacing="2" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" class="table_color">
<tr>
<td height="25" colspan="2" align="left" class="big_table_td"><strong>
<%
select case Request("error")
case ""
Response.Write "<font color='red'>系统登录进口</font>"
case "1"
Response.Write "<b><font color='red' size='3'>你的用户名或密码不对。如没登记，请先登记信息!</font></b>"
case "2"
Response.Write "<b><font color='red' size='3'>你还没有登录，请你先登录系统！</font></b>"
case "3"
Response.Write "<b><font color='red' size='3'>你的权限不够，请你先登录系统！</font></b>"
case "4"
Response.Write "<b><font color='red' size='3'>你的登记[管理员]还没审核，请催促[管理员]审批。如没通过审核系统部分功能将不可使用。 </font></b>"
case else
Response.Write "<b><font color='red' size='3'>你已被锁定，你将不可使用系统。可能原因是你违反了网站的规定。</font></b>"
end select
%>
</strong></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="87" height="25" align="right">胸卡编号：</td>
<td width="396" height="25">
<input name="studentnum" type="text" id="name2" size="20" maxlength="<%= MaxNumDigit %>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="right">进入密码：</td>
<td height="25">
<input name="password" type="password" id="password" size="20"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="right">验证码：</td>
<td height="25"><span class="forumRow">
<input name="verifycode" type="text" size="20" maxlength="5">
请在左框输入 <img src="inc/GetCode.asp" alt="验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onClick="this.src='inc/GetCode.asp'" /></span></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" colspan="2">
<div align="right"> <font color="#FF0000">
</font>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="left"><font color="#FF0000">
<input type="button" name="Submit2" value="登记信息" onClick="top.location='reg_student.asp';">
<%
dim accessdenied
accessdenied= Request.QueryString("accessdenied") %>
<% if accessdenied<>"" then%>
<input name="accessdenied" type="hidden" id="accessdenied" value="<%= Request.QueryString("accessdenied") %>">
<% else %>
<input name="accessdenied" type="hidden" id="accessdenied" value="1">
<% end if %>
</font></div></td>
<td> </td>
<td><div align="right">
<input type="submit" name="Submit" value="进入系统">
</div></td>
</tr>
</table>
</div></td>
</tr>
</table>
</form><br><br>
<!--#include file="inc/bot2.asp" -->
</body>
</html>
<%
teacherlist.Close()
Set teacherlist = Nothing
%>
<%
'end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -