<html>
<head>
<title>查询页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#00CC33" text="#000000">
<table width="1024" border="1" height="585" bordercolor="#666666">
<tr>
<td height="82" background="images/MBump2.jpg" align="center"><font size="+7" face="经典细等线繁"><b>考试成绩查询系</b></font><b><font size="+7" face="经典图案字">统</font></b></td>
</tr>
<tr>
<td background="images/MBump2.jpg" height="193" align="center">
<form name="form" method="post" action="query.asp">
<p><font face="黑体">请输入学号</font>
<input type="text" name="ID">
</p>
<p>
<input type="submit" name="Submit" value="确认">
<input type="submit" name="Submit2" value="重设">
</p>
<p> </p>
</form>
</td>
</tr>
<tr>
<td background="images/MBump2.jpg">
<%
set dbconnection=server.createobject("adodb.connection")
dbconnection.open "member"
set rs=server.createobject("adodb.recordset")
rs.open "student",dbconnection
if request.form("ID") <>empty then
rs.find="学号=' "& request.form("ID") & " ' "
if rs.eof then
response.write "很抱歉，没有 " & request("ID") & "的数据"
else
response.Write"查询到的数据如下:" & "<br>"
for i=0 to rs.fields.count-1
response.write rs(i) & "<br>"
next
end if
end if
%>
</td>
</tr>
</table>
</body>
</html>