Microsoft VBScript 运行时错误 (0x800A01A8)缺少对象: ''
错误类型：MicrosoftVBScript运行时错误(0x800A01A8)缺少对象:''/admin/admin_user.modify.asp,第76行以下是我的代...
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/admin/admin_user.modify.asp, 第 76 行
以下是我的代码 请大虾们帮我看看
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--后台用户管理-->
<!-- #include file="../config/db.asp" -->
<!-- #include file="../config/function.inc.asp" -->
<%
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")
%> 展开
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/admin/admin_user.modify.asp, 第 76 行
以下是我的代码 请大虾们帮我看看
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--后台用户管理-->
<!-- #include file="../config/db.asp" -->
<!-- #include file="../config/function.inc.asp" -->
<%
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")
%> 展开
展开全部
'楼主的资料库连接页面,请检查一下,出现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呢
<%
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呢
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
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
set rst=server.CreateObject("adodb.recordset") '''少了这行
sql="select * from tbl_user where u_id="&request.QueryString("id")
rst.open sql,conn,1,1
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
