Question

关于asp代码的问题（高手来！）

小弟有段代码，弄的有点晕，希望高手给解答下
这是一个带翻页的选号系统代码，选择项有两种 一直按照想要的要号码选号，二是按照消费额度选择，问题是选择消费额度搜索后 在点下一页就返回全部号码段选择了， 小弟想实现按消费额度选择后 点下一页还是查询这一消费额度的号码 谢谢高手！
<%page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)

set rs=server.createobject("adodb.recordset")
hm=trim(request("num"))
xf=trim(request("classid"))
if hm="" and xf="" then
sql="select * from haoma order by id desc"

elseif hm="" and xf="0" then
sql="select * from haoma order by id desc"

else sql="select * from haoma where haoma like '%"&hm&"%' and xiaofei like '%"&xf&"%' order by id desc"
end if

rs.open sql,conn,1,1

if rs.eof then
%>暂无内容
<%else
rs.pagesize=200
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize
i=0
do while not rs.eof and (i<rs.pagesize)
i=i+1%>

<LI><A
onmouseover="ddrivetip('<ul><li><strong>当  前  号  码：</strong><span style=color:blue;font-size:14px;><b><%=rs("haoma")%></b></span></li><li><strong>每月最低消费：</strong><span style=color:#ff0000>￥<%=rs("xiaofei")%></span> 元</li><li><strong>接听全国来电：</strong><span style=color:#ff0000>￥<%=rs("zifei")%></span> 元/分钟</li></ul>','', 300)"
onmouseout=hideddrivetip()
href="shenqing.asp?hm=<%=rs("haoma")%>"><%=rs("haoma")%></A></LI>
<% rs.movenext
loop
rs.close
set rs=nothing
i=i+1
%>

</UL><br>
共<font color=red><%=totalpage%></font>页 第<%=page%>页
<%if page-1>0 then%><a href="xuanhao.asp?page=<%=page-1%>">上一页</a> <%else%>上一页 <%end if%>
<%if page+1<=totalpage then%><a href="xuanhao.asp?page=<%=page+1%>">下一页</a> <%else%>下一页 <%end if%>
<%end if%>

Answer 1

因为你的下一页链接没加条件，只有分页号，当然数据显示就有问题了,改成这样：
<%if page-1>0 then%><a href="xuanhao.asp?page=<%=page-1%>&num=<%=request("num"))%>&classid=<%=request("classid"))%>">上一页</a> <%else%>上一页 <%end if%>
<%if page+1<=totalpage then%><a href="xuanhao.asp?page=<%=page+1%>&num=<%=request("num"))%>&classid=<%=request("classid"))%>">下一页</a> <%else%>下一页 <%end if%>
<%end if%>

追问

谢谢朋友，可是改过之后网页无法打开 提示

Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/xuanhao.asp, line 139, column 30
Response.Write(request("num")))

追答

Response.Write(request("num")))
多了一个右括号，这个你认真看下应该就看的到

Answer 2

根据你的问题，也就是说搜索完毕后只要不翻页都没有问题的，既然如此那只需要在翻页这里加上相应参数应该就可以了
<%if page-1>0 then%><a href="xuanhao.asp?page=<%=page-1%>&num=<%=hm%>&classid=<%=xf%>">上一页</a> <%else%>上一页 <%end if%>
<%if page+1<=totalpage then%><a href="xuanhao.asp?page=<%=page+1%>&num=<%=hm%>&classid=<%=xf%>">下一页</a> <%else%>下一页 <%end if%>
<%end if%>

Answer 3

把分页重新定义一个页面 或者加上＆带参数