Microsoft VBScript 运行时错误 (0x800A01A8)缺少对象: ''

错误类型：MicrosoftVBScript运行时错误(0x800A01A8)缺少对象:''/admin/admin_user.modify.asp,第76行以下是我的代... 错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/admin/admin_user.modify.asp, 第 76 行

以下是我的代码请大虾们帮我看看

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>



<%
dim sql,rst
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>用户管理-->修改用户资料</title>
</head>

<body>
<%
'显示需要修改密码表单
if request.QueryString("act")="modify" then
if isnumeric(request.QueryString("id")) and request.QueryString("id")<>0 then
sql="select * from tbl_user where u_id="&request.QueryString("id")
rst.open sql,conn,1,1
if rst.bof and rst.eof then
msgboxU "未找到用户,可能是参数有误!"
else
%>
<form id="form1" name="form1" method="post" action="admin_user_modify.asp?act=updat&id=<%=request.QueryString("id")%>">
<table width="460" height="192" border="1" cellpadding="0" cellspacing="0" align="center">
<tr>
<td height="29" colspan="2">用户管理-->修改用户资料</td>
</tr>
<tr>
<td width="124">用户名:</td>
<td width="200"><%=rst("u_user")%></td>
</tr>
<tr>
<td>密  码:</td>
<td>
<input type="text" name="f_code" id="f_code" value="<%=rst("u_code")%>" size="25" maxlength="50" />
</td>
</tr>
<tr>
<td>性  名:</td>
<td>
<input type="text" name="f_name" id="f_name" value="<%=rst("u_name")%>" size="25" maxlength="50" />
</td>
</tr>
<tr>
<td>性  别:</td>
<td>
<input type="radio" name="f_sex" value="男" checked=>
男
<input type="radio" name="f_sex" value="女" <% if rst("u_sex")="女" then response.Write "cheked"%>>
女</td>
</tr>
<tr>
<td>电  话:</td>
<td>
<input type="text" name="f_tel" id="f_tel" value="女"<%=rst("u_tel")%>" size="25" maxlength="50" />
</td>
</tr>
<tr>
<td colspan="2" align="center" valign="middle"><label>
<input type="submit" name="Submit" value="修改用户资料" />
<input type="reset" name="Submit2" value="重置" />
</label></td>
</tr>
</table>
</form>
<%
end if
else
msgboxU "非法参数!"
end if
end if
%>
<%
rst.close
set rst=nothing
conn.close
set conn=nothing
%>
</body>
</html>
加了 set rst=server.CreateObject("adodb.recordset")

还是不行啊，一样的错误

下边是我所引用的数据库页面

因为我前面先是判断act=modify 正确以后然后才显示表单

不过谢谢你的热情,我上面代码漏了好多..呵呵感谢你了
<%
dim conn,dbpath
set conn=server.CreateObject("adodb.connection")
dbpath="/db/"
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);DBQ="&Server.MapPath(dbpath & "fifasp.mdb")
%> 展开

 我来答

2个回答

#热议# 为什么说不要把裤子提到肚脐眼？

louhui1018
2008-03-12 · TA获得超过4824个赞

知道大有可为答主

回答量：2002

采纳率：0%

帮助的人：1751万

我也去答题访问个人页

关注

展开全部

'楼主的资料库连接页面,请检查一下,出现0x800A01A8,只有两种情况(仅供参考,可比照楼主的资料)
<%
set conn=server.createobject("ADODB.Connection")'注意这裏是否为conn
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("数据库路径")
conn.open connstr '注意这裏是否是conn
%>
'另一楼所提需要加上set rst=server.createobject("ADODB.Recordset")
'以下代码似乎也有一些需注意的
1.if request.QueryString("act")="modify" then
2.<form id="form1" name="form1" method="post" action="admin_user_modify.asp?act=updat&id=<%=request.QueryString("id")%>">
'以上表单写的是act=updat,为何出现modify呢

已赞过 已踩过<

评论收起

苏州拓巨信息科技有限公司

广告2024-12-25

程序错误0xc000007b，一键修复各类因dll缺失，异常等导致的游戏和软件不能运行的问题，工具适用于多种操作系统.Dll修复整合修复工具下载，一键快捷修复。适配各种电脑系统

dll.ali213.net

love2wllw
2008-03-12 · TA获得超过137个赞

知道小有建树答主

回答量：129

采纳率：100%

帮助的人：73.3万

我也去答题访问个人页

关注

展开全部

if isnumeric(request.QueryString("id")) and request.QueryString("id")<>0 then

set rst=server.CreateObject("adodb.recordset") '''少了这行

sql="select * from tbl_user where u_id="&request.QueryString("id")
rst.open sql,conn,1,1