求解答，菜鸟问题快来呀，谢谢

Question

<%   leixing=lcase(trim(request("lx")))   if InStr(leixing,"'")>0 then    response.write"<script>alert(""非法访问!"");location.href=""index.asp"";</script>"    response.end   end if   'leixing=replace(leixing,"'","")   select case leixing   case "big"    anclassid=trim(request("anid"))   if not isnumeric(anclassid) then    response.write"<script>alert(""非法访问!"");location.href=""index.asp"";</script>"    response.end   else   if not isnumeric(anclassid) then    response.write"<script>alert(""非法访问!"");location.href=""index"";</script>"   else    set rs=server.createobject("adodb.recordset")    rs.open "select * from bsort where anclassid="&anclassid,conn,1,1    anclassname=rs("anclass")  %>     上面是代码，报错如下：请问是啥原因，在哪里加判断，加在哪，怎么加，谢谢 ADODB.Field 错误 '800a0bcd' BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。 /chanpin/chanpin1.asp，行 48  

Answer 1

set rs=server.createobject("adodb.recordset")
rs.open "select * from bsort where anclassid="&anclassid,conn,1,1
if  not rs.eof then
  anclassname=rs("anclass")
else
  response.write "没有记录"
end if

记录集中没有记录的情形，要做判断！！