Microsoft VBScript 运行时错误 错误 '800a000d'

来源：百度知道 编辑：UC知道 时间：2024/07/02 10:50:55
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'rs2'

/photo/admin/main8_sh1.asp，行51
------------------------------------------
源文件：
<!--#include file="conn.asp"-->
<!--#include file="../config.asp"-->
<!--#include file="login1.asp"-->
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" href="Style.css">
<%dim picid,picidd
picid=request("picid")
if picid="" then
call photoxx("picid参数传递错误。")
response.end
end if

picidd=split(picid,",")
for i=0 to ubound(picidd)
if trim(picidd(i))<>"" then

sql="select * from picmap where id="&trim(picidd(i))
rs.open sql,connphoto,1,3
if rs.eof then
call photoxx("ID所对应的相片信息未找到。")
response.end
end if

<!--#include file="conn.asp"-->
<!--#include file="../config.asp"-->
<!--#include file="login1.asp"-->
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" href="Style.css">
<%dim picid,picidd
picid=request("picid")
if picid="" then
call photoxx("picid参数传递错误。")
response.end
end if

picidd=split(picid,",")
for i=0 to ubound(picidd)
if trim(picidd(i))<>"" then

sql="select * from picmap where id="&trim(picidd(i))
rs.open sql,connphoto,1,3
if rs.eof then
call photoxx("ID所对应的相片信息未找到。")
response.end
end if
if rs("sh")=1 then
rs("sh")=0
else
rs("sh")=1
end if
rs.update
sql="select * from xc where id="&rs("xci