Question

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

<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<%

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=requst.form("IDcard")
startdata=requst.form("startdata")
sex=requst.form("sex")
age=requst.form("age")
tel=request.form("tel")
fax=request.form("fax")
phone=requst.form("phone")
address=requst.form("address")
house=requst.form("house")
area=requst.form("area")
totel=requst.form("totel")
month=requst.form("month")
gdbl=requst.form("gdbl")
ldbl=requst.form("ldbl")
cjzg=requst.form("cjzg")
zjs=requst.form("zjs")
ghother=requst.form("ghother")
snbl=requst.form("snbl")
swbl=requst.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"<SCRIPT language=JavaScript>alert('对不起，该客户已经存在,请核实！');"
response.write"javascript:history.go(-1)</SCRIPT>"
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 "<br><br><br><center><font size=-1>资料已经成功添加,本页1秒钟后返回.<br><br>谢谢您使用本系统</font></center>"
response.write "<meta http-equiv=refresh content=1;url=" & url & ">"
response.end
%>

Answer 1

覆盖看结果：）

<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<%

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"<SCRIPT language=JavaScript>alert('对不起，该客户已经存在,请核实！');"
response.write"javascript:history.go(-1)</SCRIPT>"
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 "<br><br><br><center><font size=-1>资料已经成功添加,本页1秒钟后返回.<br><br>谢谢您使用本系统</font></center>"
response.write "<meta http-equiv=refresh content=1;url=" & url & ">"
response.end
%>