Question

asp 错误 '80020009'， ADODB.Field 错误 '800a0bcd' ，请教下高手！在线等！

错误 '80020009'代码：

Set pRs = Server.CreateObject( "ADODB.Recordset" )
pSql = "SELECT TOP "&T_Num&" * FROM NewsData WHERE D_CataID LIKE '"&T_CataID&"%' And D_Picture<>'' ORDER BY D_SortID DESC"
pRs.Open pSql,oConn,0,1

TempContent=TempContent&" <tr>"
TempContent=TempContent&" <td>"
if pRs("m_url")<>"" then ‘这里就是447行
TempContent=TempContent&" <a href='"&pRs("m_url")&"' target=_blank><img src="&prs("D_Picture")&" width=80 height=60 border=0></a>"
TempContent=TempContent&" </td>"
TempContent=TempContent&" <td valign=top align=left><table><tr><td>"
TempContent=TempContent&" <a href='"&pRs("m_url")&"' target=_blank>"&left(prs("D_title"),bzishu)&"</a></td></tr><tr><td align=left class=hj><font color=#666666>"
else
TempContent=TempContent&" <a href='news_Show.asp?id="&pRs("D_ID")&"&cataid="&pRs("D_CataID")&"' target=_blank><img src="&prs("D_Picture")&" width=80 height=60 border=0></a>"
TempContent=TempContent&" </td>"
TempContent=TempContent&" <td valign=top align=left><table><tr><td>"
TempContent=TempContent&" <a href='news_Show.asp?id="&pRs("D_ID")&"&cataid="&pRs("D_CataID")&"' target=_blank>"&left(prs("D_title"),bzishu)&"</a></td></tr><tr><td align=left class=hj><font color=#666666>"
end if
TempContent=TempContent&left(prs("E_title"),jzishu)
TempContent=TempContent&" </font></td></tr></table></td>"
TempContent=TempContent&" </tr>"

ADODB.Field 错误 '800a0bcd' 代码 ：Dim bRs, bSql,C_Title
Set bRs = Server.CreateObject( "ADODB.Recordset" )
bSql = "SELECT * FROM NewsCata Where C_RootID = '"&s_cataid&"'"
bRs.Open bSql, oConn, 0, 1
C_Title=brs("C_Title")
If bRs.Eof Then
GoError "请通过页面上的链接进行操作，不要试图进行任何非法操作。"
End If
bRs.Close
Set bRs = Nothing
Dim Pmcount,Pageno

如果需要全部代码，请hi我！

Answer 1

可能是对象出错了，你在执行SQL后，直接就去取数据了，但是这个数据如果为空的话就有可能出现错误，改成下面试试
pSql = "SELECT TOP "&T_Num&" * FROM NewsData WHERE D_CataID LIKE '"&T_CataID&"%' And D_Picture<>'' ORDER BY D_SortID DESC"
pRs.Open pSql,oConn,0,1
TempContent=TempContent&" <tr>"
TempContent=TempContent&" <td>"
if not pRs.eof and not pRs.bof then '新添加判断部分
if pRs("m_url")<>"" then '这里就是447行
...剩余代码
end if
TempContent=TempContent&left(prs("E_title"),jzishu)
end if '结束判断
TempContent=TempContent&" </font></td></tr></table></td>"
TempContent=TempContent&" </tr>"

Answer 2

把你完整的代码发到我邮箱给你分析下，大概需要十五分钟
yx_5612@qq.com

追问

好！