www.gusucode.com > ASP+ACCESS在线考试系统设计(源代码+论文) > ASP+ACCESS在线考试系统设计(源代码+论文)\郭晓璇论文第二稿\papermanage\selectuser.asp
<html>
<head>
<title>选择用户</title>
</head>
<body bgproperties="fixed" background="../images/bkg35.jpg">
<h1 align=center><font face="楷体_GB2312" color="#FF0080">试 卷 维 护</font></h1>
<%@ Language=VBScript %>
<form action="papaermanage.asp" id="FORM1" method="post" name="FORM1">
<div align="center"><center>
<table border="1" width="90%" height="136">
<tr>
<th width="10%" height="16"><font color="#0000FF">用户名</font></th>
<th width="10%" height="16"><font color="#0000FF">改 卷</font></th>
<th width="10%" height="16"><font color="#0000FF">总分</font></th>
<th width="10%" height="16"><font color="#0000FF">成绩</font></th>
<th width="10%" height="16"><font color="#0000FF">密码</font></th>
<th width="10%" height="16"><font color="#0000FF">当前状态</font></th>
<th width="10%" height="16"><font color="#0000FF">删除用户答卷</font></th>
<th width="10%" height="16"><font color="#0000FF">删除试卷</font></th>
</tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb")
set rs= server.createobject("adodb.recordset")
sql="select * from 成绩登记表"
set base=conn.execute(sql)
name=request.querystring("1name")
session("name")=name
sj=0
'base.movefirst
do while not base.eof
sj=sj+1
zhh=base("用户名")
papername=base("试卷名称")
chji=base("成绩")
danwei=base("密码")
dqzt=base("当前状态")
zf=base("总分")
sjt=base("试卷")
%>
<tr>
<td width="10%" height="20" align="center"><%=zhh%></td>
<td width="15%" height="20" align="center"><a href="papermanage.asp?papername=<%=papername%>"><%=papername%></a></td>
<td width="10%" height="20" align="center"><%=zf%></td>
<td width="10%" height="20" align="center"><%=chji%></td>
<td width="10%" height="20" align="center"><%=danwei%></td>
<td width="12%" height="20" align="center"><%=dqzt%></td>
<td width="18%" height="20" align="center"><a href="delete2.asp?delete2=<%=papername%>"><%=papername%></a></td>
<td width="15%" height="20" align="center"><a href="delete1.asp?delete1=<%=sjt%>"><%=sjt%></a></td>
</tr>
<%
base.movenext
loop
%>
</table>
</center></div>
</form>
<div align="center"><center>
<a href="../mainselect.asp"><img src="../Images/back.bmp" alt="b5.jpg (1795 bytes)"></a>
</center></div>
</body>
</html>