ASP网页中的查询结果分页显示代码如何修改
s.rar
(3.9 KB)
(是hsearch.asp和research.asp两文件的压缩文件)这是一个查询页面(hsearch.asp)的结果显示页面(research.asp)的一段代码,应该正常显示“ 首页 上一页 下一页 尾页 ”,可是却显示“首页 上一页 &sz=1 >下一页 &sz=1 >尾页”(1为我所付的值),当点击连接时就出错。请各位大师帮忙,谢谢!
//取得hsearch.asp页面的值
<%
dim luoji,xm1,ys1,sz,xm2,ys2,sz2
xm2=request("xm2")
ys2=request("ys2")
sz2=request("sz2")
luoji=request("luoji")
xm1=request("xm1")
ys1=request("ys1")
sz=request("sz")
%>
//一段查询语句
已证明无问题,略。
//分页程序
<%
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write "<form method=Post action="&filename&"?xm2="&xm2&"&ys2="&ys2&"&sz2="&sz2&"&luoji="&luoji&"&xm1="&xm1&"&ys1="&ys1&"&sz="&sz&">"
Response.Write "<p align='center' class='contents'> "
If CurrentPage<2 Then
Response.Write "<font class='contents'>首页 上一页</font> "
Else
Response.Write "<a href="&filename&"?page=1&xm2="&xm2&"&ys2="&ys2&"&sz2="&sz2&"&luoji="&luoji&"&xm1="&xm1&"&ys1="&ys1&"&sz="&sz&">首页</a> "
Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&xm2="&xm2&"&ys2="&ys2&"&sz2="&sz2&"&luoji="&luoji&"&xm1="&xm1&"&ys1="&ys1&"&sz="&sz&" >上一页</a> "
End If
If n-currentpage<1 Then
Response.Write "<font class='contents'>下一页 尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&xm2="&xm2&"&ys2="&ys2&"&sz2="&sz2&"&luoji="&luoji&"&xm1="&xm1&"&ys1="&ys1&"&sz="&sz&" >"
Response.Write "下一页</a> <a href="&filename&"?page="&n&"&xm2="&xm2&"&ys2="&ys2&"&sz2="&sz2&"&luoji="&luoji&"&xm1="&xm1&"&ys1="&ys1&"&sz="&sz&" >尾页</a>"
End If
Response.Write "<font class='contents'> 页次:</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "
Response.Write "<font class='contents' color='#0000FF'> 共查询到"&totalnumber&"条记录。</font> "
Response.Write "<font class='contents'>转到:</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="¤tpage&">"
Response.Write " <input type='submit' class='contents' value='GO' name='cndok'></form>"
End Function
%>
请看下面两张截图:
第一张为查询界面,
第二张为查询结果
[[it] 本帖最后由 sftc168 于 2008-11-19 00:29 编辑 [/it]]