| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 833 人关注过本帖
标题:ASP网页中的查询结果分页显示代码如何修改
只看楼主 加入收藏
sftc168
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2008-11-18
收藏
 问题点数:0 回复次数:0 
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="&currentpage&">"  
                    Response.Write "&nbsp;<input type='submit'  class='contents' value='GO' name='cndok'></form>"  
                End Function  
            %>
请看下面两张截图:
第一张为查询界面,
图片附件: 游客没有浏览图片的权限,请 登录注册


第二张为查询结果
图片附件: 游客没有浏览图片的权限,请 登录注册


[[it] 本帖最后由 sftc168 于 2008-11-19 00:29 编辑 [/it]]
搜索更多相关主题的帖子: ASP 网页 
2008-11-19 00:21
快速回复:ASP网页中的查询结果分页显示代码如何修改
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035940 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved