'============================================ '这段代码一定要在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)
