关于ASP的错误类型:(0x80020009)发生意外问题

发布网友 发布时间：2024-10-24 02:31

我来回答

共2个回答

热心网友 时间：2024-11-07 12:32

日,小气的要死,1分都舍不得给.

正确的代码应该是这样的
====================================================
option explicit
dim conn,connstr,db,rs
db="database/#TimesShop.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

rs.open "查询语句",conn,1,1 '在此打开你的rs的记录集下面才能循环,你看你上面什么都没有

dim shop,username,rs2
while not rs.eof and not rs.bof

set shop=server.CreateObject("adodb.recordset")
shop.open "select username from [user] where userid="&rs("userid"),conn,1,1
if not shop.eof and not shop.bof then'最好加上这句,这样就不会出现意外了,如果没有查到数据你在下面调用shop记录集的值,那必错不疑
username=trim(shop("username"))

end if
shop.close

wend '这里要结束你上面的while循环,好像你也没有,真惨

rs.close

=============================================================

网站名称：唯创网络
网站域名：www.93cn.net
唯创网络主要为企业提供域名注册、虚拟主机、网站建设、网站优化、网站推广、网站维护等一条龙服务。
我们的经营理念 --- 服务创造效益
我们的服务宗旨 --- 您的需要 就是我们努力的方向!

热心网友 时间：2024-11-07 12:37

Server.MapPath(""&db&"")
错了
Server.MapPath('"&db&"')

userid="&rs"userid"

好象也错了~~
不知道你前面怎么获取的
应该是
userid='"&userid&"'

好象还有错...
你前面的rs都没定义成记录集呀..大哥~~怎么就使用
do while not rs.eof

还得修改一次..
username=trim(shop("username"))
这是什么东东?
应该是
trim(request.form("username"))