这是我找的一个搜索的源码。其他方面都非常好。
但当你直接点搜索时，再点“下一页”，BUG就出现了。跳不到下一页。显示“没有物品”。
可能是search.asp分页没有设置好。有没有高人帮我一下。
演示页面 www.zh-expo.com/asp4
源码 www.zh-expo.com/asp4/wwwroot.rar
下面是search.asp页（也就是搜索页）的源码
<!-- #Include File=Conn.asp -->
<!-- #Include File=setup.asp -->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title>
<link rel="stylesheet" type="text/css" href="style.css">
<style fprolloverstyle>a:hover { color: #FF0000 }
</style>
</head>
<%Set rst= Server.CreateObject ("ADODB.RecordSet")
sql = "select * from type"
rst.open sql,conn,1,3
%>
<!--#include file="head.asp"-->
<%
'-------------------------------------------
typeid=request("typeid")
Province=request("Province")
keyword=trim(request("name"))
wanttime=request("wanttime")
dim sql,typeid
dim rs '实例
dim totalPut '总记录数
dim CurrentPage '当前页
dim TotalPages '总页数
dim i,j
if keyword="关键字可以不输入" then
keyword=""
else
findword="name like '%"&keyword&"%' "
end if
Set rs= Server.CreateObject ("ADODB.RecordSet")
if typeid<>"b" and province<>"a" and keyword<>"" then
sql = "select * from goods where typeid='"&typeid&"'and name like '%"&keyword&"%' and province='"&province&"' and savetime>=date()-'"&wanttime&"'order by savetime desc"
elseif typeid="b" and province="a" and keyword="" and wanttime<>"" then
sql = "select * from goods where savetime>=date()-'"&wanttime&"'order by savetime desc"
elseif typeid="b" and province="a" and keyword<>"" then
sql = "select * from goods where name like '%"&keyword&"%' and savetime>=date()-'"&wanttime&"'order by savetime desc"
elseif typeid="b" and province<>"a" and keyword="" then
sql = "select * from goods where province='"&province&"'and savetime>=date()-'"&wanttime&"'order by savetime desc"
elseif typeid<>"b" and province="a" and keyword="" then
sql = "select * from goods where typeid='"&typeid&"'and savetime>=date()-'"&wanttime&"'order by savetime desc"
elseif typeid<>"b" and province<>"a" and keyword="" then
sql = "select * from goods where typeid='"&typeid&"'and province='"&province&"' and savetime>=date()-'"&wanttime&"'order by savetime desc"
elseif typeid<>"b" and province="a" and keyword<>"" then
sql = "select * from goods where typeid='"&typeid&"'and name like '%"&keyword&"%' and savetime>=date()-'"&wanttime&"'order by savetime desc"
elseif typeid="b" and province<>"a" and keyword<>"" then
sql = "select * from goods where province='"&province&"' and name like '%"&keyword&"%' and savetime>=date()-'"&wanttime&"'order by savetime desc"
end if
rs.open sql,conn,1,3
'----------------------------------
if rs.bof then
response.write " <br><br><br><br>"
response.write "<p align='center'> 没有物品 !</p>"
response.end
end if
rs.MoveFirst '到第一条记录
rs.pagesize=MaxPerPage '定义每页记录数
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs.PageCount then
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1
End If
if rs.eof then
response.write " <br><br><br><br>"
response.write "<p align='center'> 没有物品 !</p>"
response.end
else
totalPut=rs.recordcount 'totalput=总记录数
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage < totalPut then
rs.move(currentPage-1)*MaxPerPage
end if
end if
end if
%>
<body topmargin="1" leftmargin="1" link="#000000" vlink="#000000">
<table border="0" cellpadding="0" cellspacing="0" width="770" align="center">
<tr>
<td width="64"><img src="image/home.gif" width="16" height="16">
<a href="index.asp">回首页</a></td>
<td width="411" valign="bottom">
<%
if rs.pagecount <= 6 then
for j=1 to rs.pagecount
response.write "[<a href='index.asp?typeid="&typeid&"&page="&j&"'>"&j&"</a>]"
next
else
for j=1 to 8
response.write "[<a href='index.asp?typeid="&typeid&"&page="&j&"'>"&j&"</a>] "
next
response.write "[<a href='index.asp?typeid="&typeid&"&page="&rs.pagecount&"' title='最后一页'>>></a>]"
end if
%> </td>
<td width="291">
<p align="right">
<img border="0" src="image/inboxno.gif" width="16" height="16">页数:<%=CurrentPage%>/<%=rs.pagecount%> <img border="0" src="image/jinghua.gif" width="13" height="16"> 商品数量: <%=totalPut%>
<img border="0" src="image/userlist1.gif" width="16" height="16"> <a href="login.asp">版主管理</a></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="1" width="776" align="center" height="80" bgcolor="#BB0B48">
<tr align="center">
<td class="td1" height="20" width="59" bgcolor="#00659C" align="center">
<p align="center"><font color="#FFFFFF">供或求</font></td>
<td class="td1" height="20" width="95" bgcolor="#00659C" align="center">
<font color="#FFFFFF">类型</font></td>
<td class="td1" height="20" width="261" bgcolor="#00659C" align="center">
<font color="#FFFFFF">商品名称</font></td>
<td class="td1" height="20" width="113" bgcolor="#00659C" align="center">
<font color="#FFFFFF">地区</font></td>
<td class="td1" height="20" width="58" bgcolor="#00659C" align="center">
<font color="#FFFFFF">价格</font></td>
<td class="td1" height="20" width="50" bgcolor="#00659C" align="center">
<font color="#FFFFFF">浏览</font></td>
<td class="td1" height="20" width="138" bgcolor="#00659C" align="center">
<font color="#FFFFFF">登记时间</font></td>
</tr>
<%
do while not rs.eof
%>
<tr>
<td width="59" align="center" bgcolor="#FFF3EE" height="18">
<font color="#808000"><%=rs("buyorsell")%></font></td>
<td width="95" align="center" bgcolor="#FFF3EE" height="18"><%=rs("typeid")%></td>
<td width="261" align="center" bgcolor="#FFF3EE" height="18">
<a href="list.asp?id=<%=rs("id")%>" target="_blank"><%=rs("name")%></a><%if rs("image")<>"" then%><img border="0" src="image/tu.gif" align="absMiddle"><%end if%></td>
<td width="113" align="center" bgcolor="#FFF3EE" height="18"><%=rs("province")%>/<%=rs("city")%></td>
<td width="58" align="center" bgcolor="#FFF3EE" height="18"><%=rs("money")%></td>
<td width="50" align="center" bgcolor="#FFF3EE" height="18"><%=rs("hit")%></td>
<td width="138" align="center" bgcolor="#FFF3EE" height="18"><%=rs("savetime")%></td>
</tr>
<tr>
<td width="746" colspan="7" bgcolor="#FFF3EE" height="18">
<img border="0" src="image/inboxnonew.gif" width="16" height="16"><%=rs("conter")%></td>
</tr>
<tr>
<td width="746" colspan="7" height="16" bgcolor="#FFFFFF"> </td>
</tr>
<%i=i+1
if i>=25 then exit do
rs.movenext
loop
%>
</table>
<table border="0" cellspacing="1" width="773" align="center">
<tr>
<td class="td1" bgcolor="#00659C" width="760">
<div align="right">
<select size="1" name="D1" onchange="MM_goToURL('parent',this.value);return document.MM_returnValue">
<option>跳转页数</option>
<%
soonhost=0
DO WHILE NOT soonhost = rs.pageCount %>
<option value="view.asp?Page=<% =soonhost+1 %>"><% =soonhost+1 %></option>
<% soonhost=soonhost+1
loop
%></select>
<%
dim n,k
if (totalPut mod MaxPerPage)=0 then 'n表示总页数
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
k=currentPage
if k<>1 then
response.write "<b>"+"<a href='index.asp?page=1'><font color=""#FFFFFF"">[首页]</font></a></b> "
response.write "<b>"+"<a href='index.asp?typeid="+typeid+"&page="+cstr(k-1)+"'><font color=""#FFFFFF"">[上一页]</font></a></b> "
else
Response.Write "<font color=""#FFFFFF"">[首页] [上一页]</font>"
end if
if k<>n then
response.write "<b>"+"<a href='index.asp?typeid="+typeid+"&page="+cstr(k+1)+"'><font color=""#FFFFFF"">[下一页]</font></a></b> "
response.write "<b>"+"<a href='index.asp?typeid="+typeid+"&page="+cstr(n)+"'><font color=""#FFFFFF"">[尾页]</font></a></b> "
else
Response.Write "<font color=""#FFFFFF"">[下一页] [尾页]</font>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</div>
</td>
</tr>
</table>
<p><br>
</p>
</body>
</html>
