ASP万用分页程序(2)

原作者:admin 添加时间:2007-05-17 原文发表:2007-05-17 人气:134 来源：转载

本文章共1229字，分3页，当前第2页，快速翻页：

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《ASP万用分页程序(2)》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

　End if
　rs.Close
　Set rs = Nothing %＞

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

＜% 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?")%＞

本文章更多内容：<<上一页 - 1 - 2 - 3 - 下一页>>

本页地址

收藏到：[收藏夹] [百度搜藏] [新浪ViVi] [POCO网摘] [ 和讯网摘] [好哦网摘] [Google书签]
[Yahoo书签] [搜狐网摘] [365Key网摘] [天极网摘] [我摘] [博采网摘] [igooi网摘]

• ASP在InterDev中实现网上购物推车

• 用ASP制作张扬个性的调查系统

• 用ASP设计一个留言薄

• 用asp实现一个真正的注册页面

• 推荐阅读：php技术生成静态页面的实现

• 快速启动学习HTML初级指南