主题:  大家帮我看看这个搜索页面代码的错误在怎样改?

西川雨

职务:普通成员
等级:1
金币:3.0
发贴:153
注册:2004/7/27 12:32:35
#12004/12/21 8:55:45
我这个搜索页面运行时老是在如下代码处

---------------------------------------------------------
<% if rs.eof and rs.bof then
response.write "<p align='center'>【<a href='javascript:window.close()'>关闭窗口</a>】"
response.end
end if%>

------------------------------------------------
提示 rs缺少对象,我用如下代码更改:

---------------------------------------------------
<%
set rs=server.createobject("adodb.recordset"
sql ="select * from gengai
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>【<a href='javascript:window.close()'>关闭窗口</a>】"
response.end
end if%>

--------------------------------------------------------
却有出现网页无法显示,什么原因,怎样更改
(菜鸟问题)希望大家能帮忙解决!
下面是该页代码
-----------------------------------------------------
<html>
<head>
<title>搜索</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.p1 { font-size: 9pt; line-height: 150%; color: #000000}
.q { border: #000000 solid; border-width: 0px 0px 1px}
a:link { color: #000000; text-decoration: none}
a:visited { color: #000000; text-decoration: none}
a:active { color: #000000; text-decoration: none}
a:hover { color: #CC6600; text-decoration: underline}
BODY {
    SCROLLBAR-FACE-COLOR: #cccccc; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #ffffff; SCROLLBAR-3DLIGHT-COLOR: #999999; SCROLLBAR-ARROW-COLOR: #000000; SCROLLBAR-TRACK-COLOR: #cccccc; SCROLLBAR-DARKSHADOW-COLOR: #666666
}
.p2 { font-size: 9pt; color: #000000}
.qqqqqqqq { border: #000000; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px}
.aq { font-size: 9pt; line-height: 150%; color: #000000; filter: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1)}
.hghfdg { font-size: 9pt; color: #333333; line-height: 130%}
.saw { font-size: 9pt; line-height: 130%; color: #000000}
.gfdg { font-size: 9pt; line-height: 150%; color: #333333}
.ss { font-size: 9pt; line-height: 150%; color: #ffffff}
-->
</style>
</head>

<body stylesrc="index.asp" topmargin="0">
<div align="center">
<center>
<table width="753" border="1" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" height="1" bordercolor="#000000" style="border-collapse: collapse">
<tr bgcolor="#000066">
<td bgcolor="#808080" height="21" width="747">
<div align="center" class="unnamed1" style="width: 692; height: 14"><b>
<font size="3" color="#FFFFFF">搜
索 结 果</font></b></div>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1" width="747">
<p align="center"> <!--#include file="conn.asp"--> <!--#include file="chkstr.inc"--><%
mmm=request("mmm"
if mmm="" then mmm=0
sss=request("sss"
ttt=request("ttt"
ttt=LTRIM(RTRIM(ttt))
if sss="按生产单号" then
set rs=server.createobject("adodb.recordset"
sql ="select * from gengai where (scdh like '%"&checkStr(ttt)&"%') order by sija Desc"
rs.open sql,conn,1,1%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="99%" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" class="unnamed2" >
<tr>
<td width="100%">
<p align="left"><font color="#FF0000">&nbsp;【<%=sss%>】共有(<%=rs.recordcount%>)条记录符合关键词:<%=ttt%></font>
</td>
</tr>
</table>
</div>
<% end if %>
<%if sss="按产品种类" then
set rs=server.createobject("adodb.recordset"
sql ="select * from gengai where (zole like '%"&checkStr(ttt)&"%') order by sija Desc"
rs.open sql,conn,1,1%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="99%" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" class="unnamed2" >
<tr>
<td width="100%">
<p align="left"><font color="#FF0000">&nbsp;【<%=sss%>】共有(<%=rs.recordcount%>)条记录符合关键词:<%=ttt%></font>
</td>
</tr>
</table>
</div>
<% end if%>
<%if sss="按更改者" then
set rs=server.createobject("adodb.recordset"
sql ="select * from gengai where (gaze like '%"&checkStr(ttt)&"%') order by sija Desc"
rs.open sql,conn,1,1%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="99%" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" class="unnamed2" >
<tr>
<td width="100%">
<p align="left"><font color="#FF0000">&nbsp;<%=ttt%>共有记录<%=rs.recordcount%>条,以下是记录列表:</font>
</td>
</tr>
</table>
</div>
<%end if%>
<% if rs.eof and rs.bof then
response.write "<p align='center'>【<a href='javascript:window.close()'>关闭窗口</a>】"
response.end
end if%>
<%i=0 %>
<div align="center">
<table border="1" width="741" bordercolor="#000000" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#FFFFFF" class="unnamed2" height="43" style="border-collapse: collapse">
<tr>
<td width="445" bgcolor="#C0C0C0" height="22">
<p align="center"><font size="3">记&nbsp;&nbsp;&nbsp;
录&nbsp;&nbsp; 编&nbsp;&nbsp; 号</font>
</td>
<td width="157" bgcolor="#C0C0C0" height="22">
<p align="center"><font size="3">更改者</font>
</td>
<td width="131" bgcolor="#C0C0C0" height="22">
<p align="center"><font size="3">更改时间</font>
</td>
</tr>
<td width="445" height="1"><form method=Post action="search.asp"> <%
if mmm<>0 then
    for iisf=1 to mmm *28
        if rs.eof then exit for
        rs.movenext
    next
end if
do while not rs.eof
%>

<tr bgcolor="#FFFFFF">
<td width="445" align="left" bgcolor="#F8F8F8" height="16"><font size="2">&nbsp;<a href="openarticle.asp?id=<%=rs("id"%>"><b>.</b><%=rs("title"%></a>
</font>
</td>
<td width="157" bgcolor="#F7F7F7" align="center" height="16"><font size="2"><%=rs("gaze"%></font></td>
<td width="131" align="center" bgcolor="#F8F8F8" height="16"><font size="2"><%=rs("sija"%></font></td>
</tr>
<% i=i+1
rs.movenext
if i=18 then exit do
loop
%>
</table>
</div>
<p align="center"> <span class="unnamed1"><!--上页--> <%if mmm<>0 then%> <%="<a href=search.asp?mmm=" & mmm-1 & "&sss=" & sss & "&ttt=" & ttt & ">上页</a>"%>
<%end if%> <!--下页--> <%if not rs.eof then%> <%="<a href=search.asp?mmm=" & mmm+1 & "&sss=" & sss & "&ttt=" & ttt & ">下页</a>"%>
<%end if%></span></p>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing %>
<p align="center"><%
rs.close
set rs=nothing
conn.close
set conn=nothing %>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>



蓝鲸

职务:版主
等级:5
金币:42.1
发贴:2614
注册:2001/12/20 15:57:57
#22004/12/21 9:07:44
建议不要用一个rs,应该为各个记录分取一个名字,如rsName1,rsName2这样不容易出错,并且容易看懂。这样写rs我竭力反对,上次给一个政务内网改版,代码是别人写的,也是这样错误,我找遍了整个页面(代码是非常长的,比这个还眼花),还是没找到。结果是什么,原来在include文件里也有个rs打开着,并且没有关闭。


非常大鱼

西川雨

职务:普通成员
等级:1
金币:3.0
发贴:153
注册:2004/7/27 12:32:35
#32004/12/21 12:59:23
谢谢上面两位兄弟!