技术问题请高人指点，谢谢！ - ASP技术论坛

qiguai99

等　级：新手上路
帖　子：8
专家分：0
注　册：2006-1-25

楼主

问题点数：0 回复次数：5

技术问题请高人指点，谢谢！

这是一段条件搜索代码，执行第一次（搜索结果第一页）时正常，问题出在无法显示第2页及以后的搜索结果，点击“下一页”，不显示任何搜索结果。以下是代码：


<%on error resume next%>
<%
sql = "select * from trade order by id "
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("trade"))%>","<%= trim(rs("bigtrade"))%>","<%= trim(rs("trade"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
set rs=nothing
%>
onecount=<%=count%>;

function changelocation(bigtrade)
{
document.search.trade.length = 0;

<table border="0" cellspacing="1" cellpadding="0" align="center" width="100%" bgcolor="#CCCCCC">
<%
trade=request("trade")
sql="select * from comp where trade='"&trade&"' and icheck=True order by imember"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
n=0

if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if

rs.pagesize=15
rs.AbsolutePage=pagecount

do while not rs.eof
%>
<tr bgcolor="#E2EDF1">
<td width="60" height="20">
<div align="center"><%if rs("ichecktime")=date() then%>
<%end if%></div>
</td>
<td width="400"> <a href="showcomp.asp?id=<%=rs("id")%>"><%=rs("company")%></a></td>
<td width="90">
<div align="center"><%=rs("name")%></div>
</td>
<td>
<div align="center"> <%if rs("imember")=True then response.write "∧"%>
</div>
</td>
</tr>
<%
rs.movenext
n=n+1
if n>=rs.pagesize then exit do
loop
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form action="showtrade2.asp" method="post">
<tr bgcolor="#B0CCDC">
<td height="35" bgcolor="#B0CCDC">
<div align="center"> 共 <b><%=rs.recordcount%></b> 条记录, 页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>,
当前从第 <%
if pagecount<=1 then
response.write "<font color=red>1</font>"
else
response.write "<font color=red>" & pagecount*rs.pagesize-rs.pagesize+1 & "</font>"
end if
%> 条开始。 <% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
<a href="showtrade.asp?trade=<%=trade%>&page=<%=cstr(pagecount+1)%>">[下一页]</a>
<img src="image/yellowp3-arrowlast.gif" width="9" height="8">
<% end if %> <% if rs.pagecount>1 and rs.pagecount=pagecount then %>
<img src="image/yellowp3-arrowfirst.gif" width="9" height="8">
<a href="showtrade.asp?trade=<%=trade%>&page=<%=cstr(pagecount-1)%>">
[上一页]</a> <%end if%> <% if pagecount<>1 and rs.pagecount<>pagecount then%>
<img src="image/yellowp3-arrowfirst.gif" width="9" height="8">
<a href="showtrade.asp?trade=<%=trade%>&page=<%=cstr(pagecount-1)%>">
[上一页]</a> <a href="showtrade.asp?trade=<%=trade%>&page=<%=cstr(pagecount+1)%>">
[下一页]</a> <img src="image/yellowp3-arrowlast.gif" width="9" height="8">
<% end if%> 
直接到第
<select name="page">
<%for i=1 to rs.pagecount%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
页
<input type="submit" name="go" value="Go">
<input type="hidden" name="trade" value="<%=trade%>">
<%
rs.close
set rs=nothing
%>
</div>
</td>
</tr></form>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="20"> </td>
</tr>
<tr>
<td height="20"> </td>
</tr>
</table>
</td>
<td width="147" valign="top"> </td>
</tr>
<tr>
<td colspan="2" height="4" bgcolor="#006699"></td>
</tr>
</table>
<script language="javascript">
changelocation(document.search.bigtrade.options[document.search.bigtrade.selectedIndex].value);
</script>
</body>
</html>