绑定数据问题
<%
Set st = New list
Set rs = st.list01()
  Response.write rs(0) // 输出
If rs.eof Then //这里报错 rs .eof
Response.write "No data"
End If
Set st=Nothing
%>

<%
Class list

Public function list01()
Set objRs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM notice"
objRs.open sql, DbCon, 1, 3
list01=objRs
End function
End class

%>

------解决方案--------------------
Set list01 = objRs
------
另外没必要用Class, 直接用rs打开记录集就可以了。