请问:Microsoft VBScript 运行时错误 错误 '800a01b6' 在线等!
出错信息:
Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'rs.new'
/xxx.asp,行 34
全部代码如下:
<!--#include file="XX/XX.asp" -->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆!');window.location.href='XXX.asp';</script>"
response.End
else
if session("flag")=3 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限!</b></font></div>"
response.End
end if
end if
dim c_name1,dw1,zws1,sd1,tuijian1,sm1,jsj1,yj1,lang1,back1,img1,poho1
c_name1=Request("c_name2")
dw1=request("dw2")
zws1=request("zws2")
sd1=request("sd2")
tuijian1=request("tuijian2")
sm1=request("sm2")
jsj1=request("jsj2")
yj1=request("yj2")
lang1=request("lang2")
back1=request("back2")
img1=request("img2")
poho1=request("poho2")
if img1="" then
img1="images/nophoto.gif"
end if
if poho1="" then
poho1="images/nophoto.gif"
end if
set rs=server.createobject("adodb.recordset")
sql="select * From car"
rs.open sql,conn,3,3
rs.new
rs("c_name")=c_name1
rs("dw")=dw1
rs("zws")=zws1
rs("sd")=sd1
rs("tuijian")=tuijian1
rs("sm")=sm1
rs("jsj")=jsj1
rs("yj")=yj1
rs("lang")=lang1
rs("back")=back1
rs("img")=img1
rs("poho")=poho1
rs.update
rs.close
conn.close
response.Write "<script language='javascript'>alert('该车型记录添加成功!');window.location.href='XXXX.asp';</script>"
response.End
%>