ASP万用分页程序_web开发_ASP_Web开发_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

ASP万用分页程序_web开发_ASP

作者：闵涛文章来源：闵涛的学习笔记点击数：672 更新时间：2009/4/23 10:27:55

　　这只是个asp小技巧类的东西，它虽然适合在每个不同文件名里调用这个函数，但是也是有前提的，下面让我们来仔细看看其中的原委。

　　下面这段是基本的分页代码：

　　系统已经为数据分页了，下面就看看这次探讨的关键问题分页函数的定义

＜% SUB pageUrl(pUrl)
　Dim eUrl
　txts = Request.ServerVariables("URL")
　txts = left(txts,instrrev(txts,"/",len(txts))-1)
　eUrl = "http://"; & Request.ServerVariables("server_name") & txts
　For i =1 to allpages
　　txt = ""
　　txt = "＜strong＞"
　　txt = txt & "＜a href=" & eUrl & pUrl & "page="&i & "＞"
　　if i = Cint(Page) then txt = txt & "＜font color=’bb0000’＞"
　　　txt = txt & (i)
　　　if i = Cint(Page) then txt = txt & "＜/font＞"
　　　　txt = txt & "＜/a＞ ∥ ＜/strong＞"
　　　　Response.Write(txt)
　Next
END sub %＞
　　把上面这个分页函数代码COPY存成一个ASP文件，在需要使用的页面里用include来引入他调用的时候只要 Call("/你调用的文件名?")就ok了，比如我的 news页面里要调用那么就是＜%Call("/news.asp?")%＞
刚才我们所到这是有限制的意思就是说第一段代码里除了sql查询内容和输出内容可以更改，其他的声明记录集的对象，page, pages, allpages这些变量都不能更改，否则将无法运行~其实这个程序是无关紧要的，最主要的就是，这个分页函数可以在任何一个asp叶面里调用。分页做的还不漂亮，高手们可以修改修改，能发给我的话我会负责给您发表出来！

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： ASP数据库编程SQL常用技巧

下一篇教程：用ASP实现支持附件的EMail系统

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· Web开发  · 网页制作
· 平面设计  · 网站运营
· 网站推广  · 搜索优化
· 建站心得  · 站长故事
· 互联动态

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……