错误类型:(0x80020009) 发生意外

代码是这样的:
dim TemppID,TemppSql,EndClassIDList
If ClassEName<>"" then
If SoonClassStr="1" then
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList= "'" & TemppID(0) & "'" & AllChildClassIDStrList(TemppID(0))
Else
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList="'" & TemppID(0) & "'"
End if
Else
EndClassIDList=""
end if

提示第七行有错,EndClassIDList= "'" & TemppID。。。

if rs("vipdate")<>"" then

改成
if not rs.EOF then
if rs("vipdate")<>"" then

因为可能根被没有搜索出记录
希望我的回答能够帮到你
祝好运!
温馨提示:内容为网友见解,仅供参考
无其他回答

错误'80020009'
错误类型:(0x80020009)发生意外。原因:也是在利用SQL查找数据库记录时,查找结果为空,而且你在后面的代码中调用了rs("aa")之类的记录 解决:要么同上,加上rs.eof的判断和处理,要么就是你的SQL语句有误,导致记录查不出来,也就无法在后来使用rs("aa")的记录了。如果不是上述原因,请再检查表字...

错误类型:(0x80020009)发生意外。
内存读写错误或运用程序错误,重新安装程序,或跟换内存就能解决

关于ASP (0x80020009)发生意外。 的问题
(0x80020009)发生意外。出现上述错误的原因:资料库中没有符合条件的资料 < sql1=("select * from member where [user]='" & session("memberID") & "'")set rs1=conn.execute (sql1)> 去掉括号,另member表中含有ASP关键字user,不建议用关键字,换为其它的字段名 ...

关于ASP的错误类型:(0x80020009)发生意外。
'rs1.movenext 此处用上就出现:错误类型:(0x80020009)发生意外 next 改为 do while not rs1.eof Response.write "强:" & rs1("name") & ""rs1.movenext loop

关于ASP的错误类型:(0x80020009)发生意外问题
if not shop.eof and not shop.bof then'最好加上这句,这样就不会出现意外了,如果没有查到数据你在下面调用shop记录集的值,那必错不疑 username=trim(shop("username"))end if shop.close wend '这里要结束你上面的while循环,好像你也没有,真惨 rs.close === 网站名称:唯创网络 网站域名...

错误类型:(0x80020009)发生意外。\/admin\/tjgg.asp, 第 37 行_百度知 ...
rs.open rspl,conn,1,2 错误 改成:rs.open rspl,conn,3,3 即可 参考资料:酒鬼的乐趣

asp类型:(0x80020009)发生意外的解决,请高手帮帮忙!
错误的是判断 Request.Cookies 是否为空 If Request.Cookies<>"" Then 错误的是这个代码,我也遇到了。。。 是由于客户的浏览器中存储的你的网站的cookie内容超出了你的iis最大请求实体主体限制 ASPMaxRequestEntityAllowed iis最大请求实体主体限制 改成200M 或者可能是在对你的网站进行攻击 ...

金山词霸2007安装弹出错误0x80020009
一般有三种可能 一是你的光驱不好用 二是你的光盘质量问题

急啊!高手帮忙!错误类型:(0x80020009)发生意外
for i=0 to ubound(CCcart,2)if CCcart(CC_ProductID,i) = cstr(Recordset1("gift_id")) then CCcart(CC_Quantity,i) = CCcart(CC_Quantity,i) + 1 isFound=true exit for end if 这里面有错误

(0x80020009) 发生意外 卡住了高手拉一把
这句错了~`<input type="checkbox" name="f_stype" value="<%if request.QueryString("act")="modify" and rs("v_stype") then response.write(checked)%>" checked\/>多选 应该是 <input type="checkbox" name="f_stype" value="" <%if request.QueryString("act")="modify" and rs...

相似回答
大家正在搜