📄 selfscore.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>selectuser</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
</head>
<body bgproperties="fixed" background="../images/bkg35.jpg">
<div align="center"><center>
<table border="0" width="100%" height="66">
<tr>
<th width="100%" height="39">
<h1><font face="楷体_GB2312" color="#FF0000">查 询 个 人 成 绩</font></h1>
</th>
</tr>
</table>
</center></div>
<%@ Language=VBScript %>
<form action="评阅试卷.asp" id="FORM1" method="post" name="FORM1">
<div align="center"><center><table border="1" width="475">
<tr>
<th width="10%" height="10%"><font color="#0000FF">用户名</font></th>
<th width="30%" height="10%"><font color="#0000FF">试 卷 名</font></th>
<th width="10%" height="10%"><font color="#0000FF">总 分</font></th>
<th width="10%" height="10%"><font color="#0000FF">成 绩</font></th>
</tr>
<%
name=session("user")
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 成绩登记表 where 用户名='" &name& "'"
set base=conn.execute(sql)
'base.movefirst
do while not base.eof
zhh=base("用户名")
papername=base("试卷名称")
chji=base("成绩")
danwei=base("总分")
%>
<tr>
<td width="10%" height="10%" align="center"><%=zhh%></td>
<td width="30%" height="10%" align="center"><%=papername%></td>
<td width="10%" height="10%" align="center"><%=danwei%></td>
<td width="10%" height="10%" align="center"><%=chji%></td>
</tr>
<%
base.movenext
loop
%>
</table>
</center></div>
</form>
<div align="center"><center>
<table border="0" width="100%">
<tr>
<th width="100%"><a href="../test/allselect.asp"><img src="../Images/back.bmp" alt="b5.jpg (1795 bytes)"></a></th>
</tr>
</table>
</center></div>
<br>
<%
if name<>"guest" then
%>
<center>你想产看<a href="liulan.asp">所有的分数</a>吗？</center>
<%
else
%>
<center>你无权查看别人的分数！sorry。</center>
<%
End if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -