UC知道ASP对象关闭
来源：百度知道 编辑：UC知道 时间：2024/06/05 14:49:14
<!--#include file="conn.asp"-->
<%if session("adminname")="" then
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
dim action
action=request.QueryString("action")
set rs=server.CreateObject("adodb.recordset")
select case action
case "add"
rs.Open "select * from users where name='"&session("adminname")&"'",conn,1,3
dim i,rs1
i=rs("number1")
if i=0 then
response.Write "<script>alert('你的添加数目满！请于管理员联系！');history.go(-1);</script>"
else
rs("number1")=rs("number1")-1
rs.update
set rs1=server.CreateObject("adodb.recordset")
rs1.Open "select * from info",conn,1,3
rs1.AddNew
rs1("client")=trim(request.for
<%if session("adminname")="" then
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
dim action
action=request.QueryString("action")
set rs=server.CreateObject("adodb.recordset")
select case action
case "add"
rs.Open "select * from users where name='"&session("adminname")&"'",conn,1,3
dim i,rs1
i=rs("number1")
if i=0 then
response.Write "<script>alert('你的添加数目满！请于管理员联系！');history.go(-1);</script>"
else
rs("number1")=rs("number1")-1
rs.update
set rs1=server.CreateObject("adodb.recordset")
rs1.Open "select * from info",conn,1,3
rs1.AddNew
rs1("client")=trim(request.for
主要原因就是在程序还没有执行完时，你就已经把数据库close了，rs1.close和rs.close的位置不对，你调一下
response.Write "<script language=javascript>alert('添加成功！');window.location.href='adminword.asp';</script>"
rs1.Close
set rs1=nothing
response.End
end if
conn.close
rs.close
set rs=nothing
set conn=nothing
end select
%>
rs.close
set rs=nothing
conn.close
set conn=nothing
conn.close
rs.close
set rs=nothing
set conn=nothing
end select
改成
rs.close
set rs=nothing
conn.close
set conn=nothing
end select
rs.close 去掉这行试试