asp中可以保存参数值的分页代码
日期:2007年5月21日 作者:-
'============================================
'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
KeepUrl = KeepUrl & "&" & strName & "=" & Server.URLencode(Request.QueryString(strName))
End If
Next
KeepMove=KeepForm&KeepUrl
If (KeepMove <> "") Then
KeepMove = Right(KeepMove, Len(KeepMove) - 1) - 上一页 [1] [2] [3] [4] [5] [6] 下一页
-
- asp中可以保存参数值的分页代码 相关文章:
- ·QQ空间背景音乐代码
- ·ASP留言本教程
- ·QQ空间最新黄钻专用黑色皮肤代码
- ·QQ空间黄钻小窝皮肤代码
- ·对联广告代码效果大全
- ·qq空间皮肤背景代码:QQ空间不用Q币更换主页皮肤方法
- ·QQ空间植物代码
- ·QQ空间免费换皮肤代码
- asp中可以保存参数值的分页代码 相关软件
- ·Kaspersky(卡巴斯基) KIS 安全套装 V6.0.2.621 MP2 简体中文正式免激活版
- ·《三国群英传5》可以选择日本的补丁
- ·Kaspersky Internet Security 8.0.0.454 RC3 nct
- ·QQ聊天记录保存查看器 2008第五版
- ·ASPack V2.12 汉化版
- ·ASP Studio V2.13.1.1 简体中文
- ·RasPPPoE V0.99 Beta 汉化版
- ·ASP+SQL入门教程
- 特别声明:本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作
- 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转
- 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源:http://www.hackhome.com
上一篇:Webservice中使用Session、Application
下一篇:使用ffmpeg.exe转换flv格式的ASP函数 在asp中的调用
