UC知道请高手帮助一下！谢谢！
来源：百度知道 编辑：UC知道 时间：2024/05/10 14:14:29
asp程序在运行的时候出现下面的错误！
请帮忙看一下！
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'zbz'
/shop/bbs/bbs-xiugai.asp, 第 53 行
---------下面是源码内容：
</table>
<%set zbz=conn.execute("select lbid from bbs_vip where lx=1 and huiyuan='"&replace(Request.Cookies(my_url)("huiyuan"),"'","''")&"' and lbid=0")
if not zbz.eof then zbz=0 else zbz=1
zbz.close------------------------------------------------53行
'Response.Write zbz
'Response.end
'过滤脏话函数
nono=bbsinfo("nono")
FUNCTION bbsnono(String)
if not(isnull(nono) or isnull(String)) then
非常感谢
我对这不是很了解，还请这位高手说一下该如何修改呢〉？谢谢！！
请帮忙看一下！
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'zbz'
/shop/bbs/bbs-xiugai.asp, 第 53 行
---------下面是源码内容：
</table>
<%set zbz=conn.execute("select lbid from bbs_vip where lx=1 and huiyuan='"&replace(Request.Cookies(my_url)("huiyuan"),"'","''")&"' and lbid=0")
if not zbz.eof then zbz=0 else zbz=1
zbz.close------------------------------------------------53行
'Response.Write zbz
'Response.end
'过滤脏话函数
nono=bbsinfo("nono")
FUNCTION bbsnono(String)
if not(isnull(nono) or isnull(String)) then
非常感谢
我对这不是很了解，还请这位高手说一下该如何修改呢〉？谢谢！！
“if not zbz.eof then zbz=0 else zbz=1 ”
通过这句话你已经把zbz重定义成了Int类型
那 zbz.close 是什么意思呢？！
-----------------------------
那你说说你执行数据库查找的目的是什么？要显示什么吗？
-----------------------------
可以尝试做出如下的修改：
If zbz.Eof Then
Response.Write "没有找到任何纪录！"
Response.End
Else
Response.Write zbz("cUserName") 'cUserName应和你数据库表中的列名一致
End If
zbz.Close
Set zbz=Nothing