ASP程序实现可以保存参数值的分页功能

<%''
''调用例子
'Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
'int_RPP=2 '设置每页显示数目
'int_showNumberLink_=8 '数字导航显示数目
'showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
'str_nonLinkColor_="#999999" '非热链接颜色
'toF_="<font face=webdings>9</font>" '首页
'toP10_=" <font face=webdings>7</font>" '上十
'toP1_=" <font face=webdings>3</font>" '上一
'toN1_=" <font face=webdings>4</font>" '下一
'toN10_=" <font face=webdings>8</font>" '下十
'toL_="<font face=webdings>:</font>" '尾页

'============================================
'这段代码一定要在VClass_Rs.Open 与 for循环之间
' Set VClass_Rs = CreateObject(G_FS_RS)
' VClass_Rs.Open This_Fun_Sql,User_Conn,1,1
' IF not VClass_Rs.eof THEN
' VClass_Rs.PageSize=int_RPP
' cPageNo=NoSqlHack(Request.QueryString("Page"))
' If cPageNo="" Then cPageNo = 1
' If not isnumeric(cPageNo) Then cPageNo = 1
' cPageNo = Clng(cPageNo)
' If cPageNo<=0 Then cPageNo=1
' If cPageNo>VClass_Rs.PageCount Then cPageNo=VClass_Rs.PageCount
' VClass_Rs.AbsolutePage=cPageNo
' FOR int_Start=1 TO int_RPP
''
'加循环体显示数据
''
' VClass_Rs.MoveNext
' if VClass_Rs.eof or VClass_Rs.bof then exit for
' NEXT
' END IF
'============================================
'response.Write "<p>"& fPageCount(VClass_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)

''
'*********************************************************
' 目的：分页的页面参数保持
' 提交查询的一致性
' 输入：moveParam：分页参数
' removeList：要移除的参数
' 返回：分页Url
'*********************************************************
Function PageUrl(moveParam,removeList)
dim strName
dim KeepUrl,KeepForm,KeepMove
removeList=removeList&","&moveParam
KeepForm=""
For Each strName in Request.Form
'判定form参数中的submit、空值
if not InstrRev(","&removeList&",",","&strName&",", -1, 1)>0 and Request.Form(strName)<>"" then
KeepForm=KeepForm&"&"&strName&"="&Server.URLencode(Request.Form(strName))
end if
removeList=removeList&","&strName
Next

KeepUrl=""
For Each strName In Request.QueryString
If not (InstrRev(","&removeList&",",","&strName&",", -1, 1)>0) Then
共4页: 上一页 1 [2] [3] [4] 下一页

评论加载中…