| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 622 人关注过本帖
标题:关于“对象关闭,不允许操作”的问题?
只看楼主 加入收藏
w136290854
Rank: 1
等 级:新手上路
帖 子:138
专家分:0
注 册:2008-10-11
结帖率:96.3%
收藏
 问题点数:0 回复次数:2 
关于“对象关闭,不允许操作”的问题?
<!-- #include file="Include/Chk.asp" -->
<!-- #include file="Conn.asp" -->
<%
dim name,sid
name=Trim(Request.Form("name"))
sid=Trim(Request.Form("sid"))
cate=Request.Form("cate")

if   sid="" or name="" or cate=""  then
    Response.Write "<script language='javascript'>alert('请填写完所有项目!');history.go(-1);</script>"
    Response.End()
end if

set rs=server.createobject("Adodb.Recordset")
sql="Select * from Staff where name='"&name&"' and sid='"&sid&"' and cate="&cate
rs.open sql,conn,1,3
if rs.eof then
    Response.Write "<script language='javascript'>alert('对不起!查询不到你的记录!你的贷可能还没有发,请不要急,我们会尽快给你发出去!详询:0571-81752522 13575719233 或者给我们留言我们会尽快给你回复!');history.go(-1);</script>"
    Response.End()
else
    bid=rs("bid")
    name=rs("name")
    sid=rs("sid")
    cate=rs("cate")
    dep=rs("dep")
    source=rs("source")
    bs=rs("bs")
    sj=rs("sj")
    cname=rs("cname")
    pingzhong=rs("pingzhong")
    fhtime=rs("fhtime")
    rs.Close
end if
%>    
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>查询结果</title>
<link href="Images/default.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
.STYLE2 {
    font-size: 36px;
    font-weight: bold;
}
.STYLE3 {
    color: #FF0000;
    font-weight: bold;
}
.STYLE4 {color: #FF0000}
.STYLE5 {color: #000000}
-->
</style>
</head>

<body>
<form id="form1" name="form1" method="post" action="">
  <div align="center">
    <table width="259" border="0">
      <tr>
        <td width="84"><img src="Images/l20071016131943.jpg" width="84" height="61" /></td>
        <td width="165"><span class="STYLE2">查询结果</span></td>
      </tr>
    </table>
    <table width="320" border="0" cellspacing="1" bgcolor="#666633">
      <tr>
        <td width="101" height="30" align="center" bgcolor="#006666">&nbsp;</td>
        <td width="212" height="30" bgcolor="#CCCCCC">&nbsp;</td>
      </tr>
      <tr>
        <td width="101" height="30" align="center" bgcolor="#006666">&nbsp;</td>
        <td height="30" bgcolor="#CCCCCC">&nbsp;</td>
      </tr>
      <tr>
        <td height="30" align="center" bgcolor="#006666">&nbsp;</td>
        <td height="30" bgcolor="#CCCCCC">&nbsp;</td>
      </tr>
      <tr>
        <td height="30" align="center" bgcolor="#006666">&nbsp;</td>
        <td height="30" bgcolor="#CCCCCC">&nbsp;</td>
      </tr>
      <tr>
        <td height="30" align="center" bgcolor="#006666">&nbsp;</td>
        <td height="30" bgcolor="#CCCCCC">&nbsp;</td>
      </tr>
      <tr>
        <td height="30" align="center" bgcolor="#006666"><span class="STYLE1">发货类型:</span></td>
        <td height="30" bgcolor="#CCCCCC">
          <%
set fs=server.createobject("adodb.recordset")
fs.open "select * from Cate where id="&cate,conn,1,1
if fs.eof then
    Response.Write "<option value=''>类别设置错误</option>"
else
    Response.Write(Trim(fs("Catename")))
end if
fs.close
Set fs=nothing
%>
        </td>
      </tr>
      <tr>
        <td height="30" align="center" bgcolor="#006666">&nbsp;</td>
        <td height="30" bgcolor="#CCCCCC">&nbsp;</td>
      </tr>
      <tr>
        <td height="30" align="center" bgcolor="#006666"><p class="STYLE1">贷物品种:</p>        </td>
        <td height="30" bgcolor="#CCCCCC"><span class="STYLE4"><%=pingzhong%></span></td>
      </tr>
    </table>
    <table width="842" height="57" border="1">
      <tr>
        <td align="center">公司编号</td>
        <td align="center"><span class="STYLE5">公司名称</span></td>
        <td align="center"><span class="STYLE1 STYLE5">发贷时间</span></td>
        <td align="center"><span class="STYLE1 STYLE5">发片时间</span></td>
        <td align="center"><span class="STYLE1 STYLE5">是否发贷</span></td>
        <td align="center"><span class="STYLE1 STYLE5">快递公司</span></td>
        <td align="center">查贷电话</td>
        <td align="center">查看详细</td>
      </tr>
      <tr>
        <td align="center"><%=sid%></td>
        <td align="center"><%=name%></td>
        <td align="center"><%=fhtime%></td>
        <td align="center"><%=source%></td>
        <td align="center"><span class="STYLE3"><%=dep%></span></td>
        <td align="center"><%=cname%></td>
        <td align="center"><%=bs%></td>
        <td align="center">查看<td>
      </tr>
    </table>
    <p>&nbsp;</p>
    <p>         杭州摩格科技有限公司</p>
  </div>
</form>
</body>
</html>
我想在“查看”那加一个<a href="Staff_View.asp?id=<%=Trim(rs("id"))%>" target="_blank"> 这样的链接,为什么会提示"对象关闭,不允许操作"或者提示“对象打开,不允许操作”啊?
我应该怎么改才正确啊!

[[it] 本帖最后由 w136290854 于 2008-11-27 13:29 编辑 [/it]]
搜索更多相关主题的帖子: 对象 
2008-11-27 13:26
sunfishy
Rank: 3Rank: 3
等 级:论坛游侠
威 望:5
帖 子:311
专家分:163
注 册:2007-6-29
收藏
得分:0 
rs.Close
已经被你关闭了

.cn
2008-11-27 14:10
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
在每次Open记录集ADODB.RecordSet之前判断State属性如果等于0再Open否则要先Close
2008-11-27 14:23
快速回复:关于“对象关闭,不允许操作”的问题?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031833 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved