asp中可以保存参数值的分页代码_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