关于ASP代码Microsoft VBScript 运行时错误 (0x800A01A8) 缺少对象: ✀requst✀

2025-01-05 09:38:11
推荐回答(1个)
回答1:

覆盖看结果:)



<%

set rs=server.CreateObject("adodb.recordset")

comname=request.form("comname")
bigclass=request.form("bigclass")
smallclass=request.form("smallclass")
server1=replace(request.form("serverid")," ","")
owner=request.form("owner")
IDcard=request.form("IDcard")
startdata=request.form("startdata")
sex=request.form("sex")
age=request.form("age")
tel=request.form("tel")
fax=request.form("fax")
phone=request.form("phone")
address=request.form("address")
house=request.form("house")
area=request.form("area")
totel=request.form("totel")
month=request.form("month")
gdbl=request.form("gdbl")
ldbl=request.form("ldbl")
cjzg=request.form("cjzg")
zjs=request.form("zjs")
ghother=request.form("ghother")
snbl=request.form("snbl")
swbl=request.form("swbl")
cppl1=replace(request.form("plid")," ","")
jycl1=replace(request.form("clid")," ","")
date1=request.form("date")
connet=request.form("connet")
level=request.form("level")
finder=request.form("finder")
resources=request.form("resources")
other=request.form("other")

set rs = server.createobject("adodb.recordset")
sql="select * from news where (comname='"&comname&"' or tel='"&tel&"') order by newsid desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
if not(rs.eof or rs.bof) then
response.write""
response.end
end if
rs.close

sql= "select * from news"
rs.open sql,conn,1,3
rs.addnew

rs("comname")=comname
rs("bigclass")=bigclass
rs("smallclass")=smallclass
rs("server")=server1
rs("owner")=owner
rs("IDcard")=IDcard
rs("startdata")=startdata
rs("sex")=sex
rs("age")=age
rs("tel")=tel
rs("fax")=fax
rs("phone")=phone
rs("address")=address
rs("house")=house
rs("area")=area
rs("totel")=totel
rs("month")=month
rs("gdbl")=gdbl
rs("ldbl")=ldbl
rs("cjzg")=cjzg
rs("zjs")=zjs
rs("ghother")=ghother
rs("snbl")=snbl
rs("swbl")=swbl
rs("cppl")=cppl1
rs("jycl")=jycl1
rs("date")=date1
rs("connet")=connet
rs("level")=level
rs("finder")=finder
rs("resources")=resources
rs("other")=other

rs.update
url="NewsAdd.asp?SmallClass="&smallclass&"&BigClass="&bigclass&""
response.write "


资料已经成功添加,本页1秒钟后返回.

谢谢您使用本系统
"
response.write ""
response.end
%>