'============================================ '这段代码一定要在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 KeepUrl = KeepUrl & "&" & strName & "=" & Server.URLencode(Request.QueryString(strName)) End If Next
