错误 '80020009' 无法解决
来源:百度知道 编辑:UC知道 时间:2024/05/31 00:28:44
错误 '80020009'
/xinxi/addxinxichk.asp,行 48
if username<>"" then
set rs=server.createobject("adodb.recordset")
if request("comper")="com" then
sql = "select * from [com] where username='"&username&"'"
else
sql = "select * from [user] where username='"&username&"'"
end if
rs.open sql,conn,1,3
rs("jf")=rs("jf")+jf_3
if len(request("a"))=6 and rs("a")>=1 then
rs("a")=rs("a")-1
end if
if request("b")>=1 and rs("b")>=1 then
rs("b")=rs("b")-int(request("b"))
end if
if request("tupian")<>"" and rs("c")>=1 then
rs("c")=rs("c")-1
end if
if request("d")="1"then
rs("d")=rs("d&
/xinxi/addxinxichk.asp,行 48
if username<>"" then
set rs=server.createobject("adodb.recordset")
if request("comper")="com" then
sql = "select * from [com] where username='"&username&"'"
else
sql = "select * from [user] where username='"&username&"'"
end if
rs.open sql,conn,1,3
rs("jf")=rs("jf")+jf_3
if len(request("a"))=6 and rs("a")>=1 then
rs("a")=rs("a")-1
end if
if request("b")>=1 and rs("b")>=1 then
rs("b")=rs("b")-int(request("b"))
end if
if request("tupian")<>"" and rs("c")>=1 then
rs("c")=rs("c")-1
end if
if request("d")="1"then
rs("d")=rs("d&
if request("comper")="com" then
sql = "select * from [com] where username='"&username&"'"
else
sql = "select * from [user] where username='"&username&"'"
end if
执行上面的SQL语句后没有找到数据~`所以没有办法执行你48行以后的程序~`
建议这样写
if username<>"" then
set rs=server.createobject("adodb.recordset")
if request("comper")="com" then
sql = "select * from [com] where username='"&username&"'"
else
sql = "select * from [user] where username='"&username&"'"
end if
rs.open sql,conn,1,3
if rs.eof then '*
response.write "数据不存在!" '*
else '*
rs("jf")=rs("jf")+jf_3
if len(request("a"))=6 and rs("a")>=1 then
rs("a")=rs("a")-1
en
编译器错误 错误 '800a0411'
错误 '80020009'
光驱代码39错误
Microsoft VBScript 编译器错误 错误 '800a03f6'是怎么回事?
Microsoft VBScript 运行时错误 错误 '800a000b'
Microsoft VBScript 运行时错误 错误 '800a000d'
Microsoft VBScript 编译器错误 错误 '800a03f6'
Microsoft VBScript 运行时错误 错误 '800a01ad'
Microsoft VBScript 编译器错误 错误 '800a0400'
Microsoft VBScript 编译器错误 错误 '800a0409'