Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e37'
[Microsoft][ODBC SQL Server Driver][SQL Server]对象名 'spzs' 无效。
/admin/user/vip.asp，行 211
我看了VIP.ASP的代码 第211行 是rs.open sql,conn,3,2
代码如下：
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</form>"
end function
sub deleteannounce(id)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from [Qyml] where id="&cstr(id)
rs.open sql,conn,3,2
imgs="/manage/qyml/"
file2=imgs&rs("cimg")
set fs=server.CreateObject("scripting.filesystemobject")
file2=server.MapPath(file2)
if fs.FileExists(file2) then
fs.DeleteFile file2,true
end if
rs.delete
rs.update
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from [spzs] where gsid="&cstr(id)
rs.open sql,conn,3,2
if not rs.eof then
do while not rs.eof
if rs("picture")<>"no.gif" then
pic="/picture/"
file2=pic&rs("Picture")
'response.write file2
set fs=server.CreateObject("scripting.filesystemobject")
file2=server.MapPath(file2)
if fs.FileExists(file2) then
fs.DeleteFile file2,true
end if
end if
rs.movenext
loop
rs.close
end if
set rs=server.createobject("adodb.recordset")
sql="delete from [spzs] where gsid="&cstr(id)
conn.execute sql
set rs=server.createobject("adodb.recordset")
sql="delete from [info] where gsid="&cstr(id)
conn.execute sql
set rs2=server.createobject("adodb.recordset")
sql2="delete from [book] where bookid="&cstr(id)
conn.execute sql2
set rs=server.createobject("adodb.recordset")
sql="delete from [qynews] where gsid="&cstr(id)
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
end if
End sub
%>