关于ASP的错误类型：(0x80020009)发生意外。

错误类型：
(0x80020009)
发生意外。 
/pgl.asp, 第 52 行
<%
sql = "select * from Stu order by id desc"
Set rs=Server.Createobject("ADODB.RECORDSET")
rs.Open sql, conn, 1, 1
if not rs.eof then
pages = 20 '定义每页显示的记录数
rs.pageSize = pages '定义每页显示的记录数
allPages = rs.pageCount'计算一共能分多少页
page = Request.QueryString("page")'通过浏览器传递的页数
'if语句属于基本的排错处理
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages 
end if
rs.AbsolutePage = page
Do while not rs.eof and pages > 0 %> 
 <tr>
   <td width="20%" align="left" valign="middle" bgcolor="#efefef" class="link2"><%=rs("name")%></td>
    <td width="20%" align="center" valign="middle" bgcolor="#efefef" class="link2"><%=rs("sex")%></td>
    <td width="20%" align="center" valign="middle" bgcolor="#efefef" class="link2"><%=rs("username")%></td>

    <td width="20%" height="25" align="center" valign="middle" bgcolor="#efefef" class="link2"><%
	aaf=rs("name")
	sql1="Select * from kscj where xsh='"&aaf&"'"
Set ts1=Server.CreateObject("ADODB.Recordset")
ts1.Open sql1,conn,1,3
if ts1("cj")=0 then
%>
<a href="pg.asp?use=<%=rs("name")%>">批改</a>
<%else
response.Write("已批改")

end if
ts1.Close
Set ts1=Nothing
%>
提示错误的是if ts1("cj")=0 then这行

答案：错误类型：(0x80020009)发生意外。 /ebuy/admin/editorder.asp, 第 142 行日,小气的要死,1分都舍不得给. 正确的代码应该是这样的 ==========

其他：首先要确定你的表里有没有cj这个字段，然后看下此字段是什么类型的数据。
最后改成 if ts1.fields("cj")=0 then 为毛你的 if ts1.fields("cj")=0 then  的上面 不检验 ts1的数据集 是不是空捏？
if ts1.eof and ts1.bof then
xxxx 

上一个：asp 表单中文本区输入大量文字提交后会出现HTTP 400错误，怎么解决。
下一个：关于asp 和本地程序的操作