<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../config/db.asp"-->
<!--#include file="../config/function.inc.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
'on error resume next
dim rs,sql
if request.QueryString("act")="update" then
if isnumeric(request.QueryString("id")) and not isempty(request.QueryString("id")) then
if request.Form("f_code")="" then
msgboxu"密码不能未空"
else
sql="update tbl_user set u_code='"&request.Form("f_code")&"',u_name='"&request.Form("f_name")&"',u_sex='"&request.Form("f_sex")&"',u_tel='"&request.Form("f_tel")&"' where u_id="&request.QueryString("id")
conn.execute sql
set myErrors=conn.errors
if myErrors.count=0 then
msgboxU "修改成功！"
else
msgboxU "修改失败！原因："&myErrors.item(0).description
end if
end if
else
msgboxu "非法参数"
end if
end if
set rs= Server.CreateObject("adodb.recordset")
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")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
msgboxu "可能是参数错误！"
else
%>
<form id="form1" name="form1" method="post" action="admin_user_modify.asp?act=update&id=<%= request.QueryString("id") %>">
<table width="513" border="1" align="center">
<tr>
<td colspan="3">用户管理--用户资料修改</td>
</tr>
<tr>
<td width="63">用户名</td>
<td width="364"><%= rs("u_user") %></td>
<td width="64"> </td>
</tr>
<tr>
<td>密 码</td>
<td><input name="f_code" type="text" id="f_code" value="<%= rs("u_code") %>" /></td>
<td> </td>
</tr>
<tr>
<td>姓 名</td>
<td><input name="f_name" type="text" id="f_name" value="<%= rs("u_name") %>" /></td>
<td> </td>
</tr>
<tr>
<td>性 别</td>
<td><p>
<label>
<input type="radio" name="f_sex" value="男" checked="checked" />
男</label>
<label>
<input type="radio" name="f_sex" value="女"
<% if rs("u_sex")="女" then response.Write"checked" end if %> />
女</label>
<br />
</p></td>
<td> </td>
</tr>
<tr>
<td>电 话</td>
<td><input name="f_tel" type="text" id="f_tel" value="<%= rs("u_tel") %>"/></td>
<td> </td>
</tr>
<tr>
<td colspan="3" align="center"><input type="submit" name="Submit" value="提交" />
<input type="reset" name="Submit2" value="重置" /></td>
</tr>
</table>
</form>
<%
end if
else
msgboxu "参数错误"
end if
end if
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
为什么会有这样的错误“对象关闭时，不允许操作”
答案:2 悬赏:20 手机版
解决时间 2021-03-16 14:02
- 提问者网友：你挡着我发光了
- 2021-03-16 02:03
最佳答案
- 五星知识达人网友：迟山
- 2021-03-16 03:11
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
这里是关闭对象的
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
这里是关闭对象的
全部回答
- 1楼网友：刀戟声无边
- 2021-03-16 04:24
你好！
对象关闭后需要再次打开才能继续操作
打字不易，采纳哦！
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯