⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 manageuser.asp

📁 该系统实现居域网网络考试和,系统平分轻松实现
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
if session("admin")="" or session("key")="" then
response.Write("<script>alert('您好!您还没有登陆');window.location.href('login.asp')</script>")
response.end
end if
%>
<%
dim kaohao,user
kaohao=request.Form("kaohao")
user=request.Form("user")
set rs=server.createobject("adodb.recordset")
cmd="select * from userlogin where kaohao like '%"&kaohao&"%' and user like '%"&user&"%'"
rs.open cmd,conn,1,1
if rs.eof  then
response.Write("<script>alert('没有该考生信息!');window.location.href('Manageuser.asp')</script>")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {font-size: 12px}
.style2 {color: #FFFFFF}
body {
	background-color: #3399CC;
}
.style4 {color: #000000}
.style5 {font-size: 18px}
.style6 {font-size: 14px}
.style7 {font-size: 12px; color: #000000; }
-->
</style>
</head>

<body>
<form name="form1" method="post" action="">
  <table width="777" border="0" align="center" bgcolor="#D4D0C8">
    <tr>
      <td colspan="6" bgcolor="#B5C1D6"><div align="center" class="style5">考 生 查 询</div></td>
    </tr>
    <tr>
      <td width="76"><span class="style6">考生考号:</span></td>
      <td colspan="3"><input name="kaohao" type="text" id="kaohao"></td>
      <td width="506">&nbsp;</td>
      <td width="3">&nbsp;</td>
    </tr>
    <tr>
      <td><span class="style6">考生姓名:</span></td>
      <td colspan="3"><input name="user" type="text" id="user"></td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="34">&nbsp;</td>
      <td width="50"><input type="submit" name="Submit" value="查询"></td>
      <td width="25">&nbsp;</td>
      <td width="91"><input type="reset" name="Submit2" value="重置"></td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
  </table>
  <table width="777" height="52" border="0" align="center" bgcolor="#D4D0C8">
    <tr bgcolor="#66CCFF">
      <td width="34" bgcolor="#B5C1D6"><div align="center"><span class="style1">考号</span></div></td>
      <td width="48" bgcolor="#B5C1D6"><div align="center"><span class="style1">姓名</span></div></td>
      <td width="156" bgcolor="#B5C1D6"><div align="center"><span class="style1">登陆时间</span></div></td>
      <td width="92" bgcolor="#B5C1D6"><div align="center"><span class="style1">登陆IP</span></div></td>
      <td width="151" bgcolor="#B5C1D6"><div align="center"><span class="style1">交卷时间</span></div></td>
      <td width="33" bgcolor="#B5C1D6"><div align="center"><span class="style1">成绩</span></div></td>
      <td colspan="4" bgcolor="#B5C1D6"><div align="center" class="style1">管理区域</div></td>
    </tr>
    <%
  do while not rs.eof
  dim ltime,etime,lip
  ltime=rs("logintime")
  etime=rs("endtime")
  lip=rs("ip")
  %>
    <tr bgcolor="#D4D0C8">
      <td><div align="center" class="style1 style2 style4">
          <% =rs("kaohao") %>
      </div></td>
      <td><div align="center" class="style7"><%=rs("user")%></div></td>
      <td><div align="center" class="style7">
          <%
if rs("logintime")="" then
response.write "未登陆"
else
response.write rs("logintime")
end if
%>
      </div></td>
      <td><div align="center" class="style7">
          <%
if rs("ip")="" then
response.write "未登陆"
else
response.write rs("ip")
end if
%>
      </div></td>
      <td><div align="center" class="style7">
          <%
if rs("endtime")="" then
response.write "未交卷"
else
response.write rs("endtime")
end if
%>
      </div></td>
      <td><div align="center" class="style1 style4"><%=rs("score")%></div></td>
      <td width="48"><div align="center" class="style1"><a href="edituser.asp?id=<%=rs("kaohao")%>" class="style4">修改</a></div></td>
      <td width="42"><div align="center" class="style1"><a href="deluser.asp?id=<%=rs("kaohao")%>" class="style4">删除</a></div></td>
      <td width="49"><div align="center" class="style1"><a href="bukao.asp?id=<%=rs("kaohao")%>" class="style4">补考</a></div></td>
      <td width="82"><div align="center" class="style1"><a href="quxiao.asp?id=<%=rs("kaohao")%>" class="style4">取消考试</a></div></td>
    </tr>
    <%
  rs.movenext
  loop
  %>
  </table>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -