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>