鸟的天堂教材解读:Microsoft VBScript 运行时错误 (0x800A01A8)

来源：百度文库 编辑：高校问答 时间：2024/04/28 11:58:32
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: '[undefined]'
/cj612/SAVEUPDATE.asp, 第 41 行
代码用于更新信息
<META content="TEXT/HTML;CHARSET=GB2312">
<%@ codepage ="936" %>
<!-- #include file="inc/conn.asp" -->
<%
'定义接收UPDATE.ASP文件传送的值的临时变量
dim id

dim user
dim bj
dim xq
dim kc
dim cj
dim lx

'接收UPDATE.ASP文件传送的值
id=request("id")

user=request.Form("user")
bj=request.Form("bj")
xq=request.Form("xq")
kc=request.Form("kc")
cj=request.Form("cj")
lx=request.Form("lx")

'按照接收的学号产生记录集
set rs=server.createobject("adodb.recordset")
sql="select * from bbs1 where id="&id
response.write sql
rs.open sql,conn,1,3
'更新记录集中字段的值
rs("user")=user
rs("bj")=bj
rs("xq")=xq
rs("kc")=kc
rs("cj")=cj
rs("lx")=lx

'提交更新值
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
'返回查询显示页面DEFAULT.ASP
response.redirect "DEFAULT.ASP"
%>
41行是： set rs=noting

set rs=nothing

那是因为你没有装VB SP6的补丁.
你装上它就好了.

Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)