登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>ASP教程>>ASP基础>>函数型显示翻页连接
函数型显示翻页连接
来源:不详 ‖ 作者:佚名 ‖ 点击: ‖ 时间:13-07-02 15:06:40 ‖ 【 】‖ 我要投稿
这个程序将显示翻页连接功能单独抽出,而不涉及其它操作,可内置翻页效果,方便灵活。

pagehanshu.asp
<%
’设置页码及URL
’value1 翻页地址 
’value2 page的值 
’value3 地址标签 eg:第一页、下一页
’value4 根据vaule1而定
’如果 value1 = "page.asp" 时,value4 = 1; value1 = "page.asp?id=1" 时,value4 = 0;

function page_url(value1,value2,value3,value4)
dim result
dim val 
if value4 = 1 then
val = "?"
else
val = "&"
end if
result = "" & value3 & ""
page_url = result
end function 



’取得翻页的page参数 即为当前页 
function page_request() 
dim page

page = request("page") 
if ( page <> "" and IsNumeric(page) = false ) or page = "" then
page = 1
end if 
page_request = page
end function



’设置最常用的翻页模式,任意添加和修改
’第一种效果 写的有点繁琐
’n为总页数
function pagemode1(value1,value2)
dim out

val1 = value1
val4 = value2
page = page_request()
page = CInt(page)

val2_1 = 1
val2_2 = page - 1
val2_3 = page + 1
val2_4 = n

val3_1 = "第一页"
val3_2 = "上一页"
val3_3 = "下一页"
val3_4 = "最后页" 

if page = 1 then
out1 = val3_1
out2 = val3_2
else
out1 = page_url(val1,val2_1,val3_1,val4) 
out2 = page_url(val1,val2_2,val3_2,val4) 
end if

if page = n then
out3 = val3_3
out4 = val3_4
else
out3 = page_url(val1,val2_3,val3_3,val4) 
out4 = page_url(val1,val2_4,val3_4,val4)
end if

out = out1 & "&nbsp;&nbsp;" & out2 & "&nbsp;&nbsp;" & out3 & "&nbsp;&nbsp;" & out4

pagemode1 = out
end function 


’第二种效果
’n 为总页数
function pagemode2(value1,value2)
dim out
val1 = value1 
val4 = value2

for i = 1 to n
val2 = i
val3 = "第" & i & "页"
out = out & page_url(val1,val2,val3,val4) & "&nbsp;&nbsp;"
next

pagemode2 = out
end function
%> 



使用举例(借用一下SunLine朋友的程序)

<%

sql="……………………"
rs.open sql,conn,1,1 ’连接表
rs.pagesize=10 ’这是每页显示几条记录10代表是10条
n = rs.pagecount ’取得总页数

page=page_request()&nb
|<< << < 1 2 > >> >>|
加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:admin
相关文章列表
请文明参与讨论,禁止漫骂攻击。  
网友评论