纠错，谢谢
[这个贴子最后由minifei在 2003/04/01 09:19pm 第 2 次编辑]
<% dim xdzy()
school=request.Form("school")
set rs=server.CreateObject("adodb.recordset")
sqlstmt="select distinct 修读专业 from 专业情况表 where 开设学校='"&school&"'"
rs.open sqlstmt,conn,1,1
if rs.eof then
set rs1=server.CreateObject("adodb.recordset")
sqlstmt="delete * from 专业情况表 where 开设学校='"&school&"'"
set rs1=conn.execute(sqlstmt)
end if
rs1.close
set rs1.nothing
i=0
do while not rs.eof
xdzy(i)=rs("修读专业")
i=i+1
rs.movenext
loop
session("num")=ubound(xdzy)
rs.close
set rs=nothing
response.Redirect"sub4.asp"
%>
出错提示：/erzhuan/school/sub3.asp, 第 27 行，就是：xdzy(i) =rs("修读专业")
