[求助]成绩查询系统制作遇到问题
这个是完整的文件。里面有数据库
nZ9xOt1n.rarindex.asp
我的问题是，我在top.asp中查询，不能查询，但在页面加载时，自动查询到数据库中的第一条记录出来了。请好心人帮帮分析分析。
<html><head><title>淳口中心学校成绩查询系统</title></head>
<frameset rows=100,* border=1>
<frame name=top src=top.asp scrolling=no noresize>
<frame name=bottom src=1.asp>
</frameset>
</html>
conn.asp
%
set myconn=Server.Createobject("Adodb.connection")
mypath=Server.mappath("data\chengji.mdb")
myconn.open "driver={Microsoft Access driver (*.mdb)};dbq=" & mypath
%>
top.asp
<html><head><title>淳口中心学校成绩查询系统</title></head>
<body background=images\bgcolor.gif>
<center>
<font size=5 face=黑体>淳口中心学校成绩查询系统</font>
<form name=frm1 method=post action=1.asp target=bottom>
<table>
<tr>
<td>
<select name=select1 id=select1 style="width:60px">
<option value=0>年份</option>
<option value=2006>2006</option>
<option value=2005>2005</option>
<option value=2004>2004</option>
</select>
</td>
<td><select name=select3 id=select3 style="width:60px">
<option value="班级" selected>班级</option>
<option value="160">160</option>
<option value="161">161</option>
<option value="162">162</option>
<option value="163">163</option>
<option value="164">164</option>
<option value="165">165</option>
<option value="166">166</option>
<option value="167">167</option>
<option value="168">168</option>
<option value="169">169</option>
<option value="170">170</option>
<option value="171">171</option>
<option value="172">172</option>
<option value="173">173</option>
<option value="174">174</option>
</select></td>
<td>姓名<input type=text name=xm size=9></td>
<td>学号<input type=text name=xh size=9></td>
<td><input type=submit name=submit value=查询></td>
<td><input type=reset name=reset value=重填></td>
</tr>
</table>
<%
i1=frm1.select1.selectedindex
f1=frm1.select1.option(i1).value
%>
</center>
</form>
</body>
1.asp
<!--#include file=conn.asp-->
<html>
<body>
<%
bj=request.form("f1")
xm=request.form("xm")
xh=request.form("xh")
if bj="班级" then bj=""
set rs=Server.CreateObject("Adodb.Recordset")
sqlstr=""
if bj <> "" then
sqlstr="where 班级=bj"
end if
if xm <> "" then
if sqlstr="" then
sqlstr="where 姓名=xm"
else
sqlstr=sqlstr & "and 姓名=xm"
end if
end if
if xh <> "" then
if sqlstr="" then
sqlstr="where 学号=xh"
else
sqlstr=sqlstr & "and 学号=xh"
end if
end if
sql="select * from 2006" & sqlstr
rs.open sql,myconn,1,3
if rs.eof then
response.write "<script language=javascript> alert('没有相关内容,请重新输入!')</script>"
else
response.write "<center><table border=1 width=600><tr align=center>"
for i=0 to rs.fields.count -1
response.write "<td>" & rs.fields(i).name
next
response.write "<tr align=center>"
for i=0 to rs.fields.count -1
response.write "<td>" & rs.fields(i).value
next
response.write "</table>"
end if
%>
</body></html>
