此段代码为什么说我end if 有问题?急
ccgFT 2003-08-22 11:58:09 <%sub cxbj()
set dbconnection=Server.CreateObject("ADODB.Connection")
set drs=Server.CreateObject("adodb.recordset")
DBPath = Server.MapPath("选课.mdb")
dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
bj=request.Form("bj")
sql="select * from 选课表 where 班级='"&bj&"'"
set uplist=dbconnection.execute(sql)
response.write(" "+" "+bj+"实验时间表")%>
if uplist.eof then
response.write("对不起!")
response.write("同学, 您输入的班级:"+bj)
response.write(" 在数据库中并不存在。可能输入有误"+"<br>"+"正确的输入是如:电信本031。不能查询该班级!")
exit sub
else
%>
<table border="2"><tr>
<td align=center>学号</td>
<td align=center>姓名</td>
<td align=center>班级</td>
<td align=center>硬周</td>
<td align=center>硬星</td>
<td align=center>硬成绩</td>
<td align=center>网周</td>
<td align=center>网星</td>
<td align=center>网成绩</td>
</tr>
<% response.write(" "+" "+bj+"实验时间表") %>
<%do while not uplist.eof%>
<tr><td><%=uplist("学号")%></td>
<td align=center><%=uplist("姓名")%></td>
<td align=center><%=uplist("班级")%></td>
<td align=center><%=uplist("硬周")%></td>
<td align=center><%=uplist("硬星")%></td>
<td align=center><%=uplist("硬成绩")%></td>
<td align=center><%=uplist("网周")%></td>
<td align=center><%=uplist("网星")%></td>
<td align=center><%=uplist("网成绩")%></td>
</tr>
<%uplist.movenext%>
<%loop %>
</table>
<% end if
dbconnection.close
end sub
%>