Buscando código de paginación ASP

es;

'--------------------------------- -------

'?Obtener la dirección de la página actual a través de parámetros

'----------------- -- ---------------------

Función?Urladdress()

Dim?uAddress, ItemUrl, Mitem, Get_Url, get_c, getstr uAddress?=?CStr(Request.ServerVariables("SCRIPT_NAME")) ItemUrl?=?"" if (Request.QueryString?lt;gt;?"") entonces uAddress?=?uAddress?amp;? "? " Para?Cada?Mitem?En?Request.QueryString

Si?LCase(MItem)lt;gt; "página"?y?LCase(MItem)lt;gt "pageno"?

ItemUrl?ItemUrl?amp;?MItem?amp;"="amp;?trim(Server.URLEncode(Request.QueryString(""amp;MItemamp;"))? amp;?" amp; "

end?if Siguiente fin?if Get_Url?=?uAddress?amp;?ItemUrl if?LCase(right(Get_Url, 3))lt;gt; "asp"?then Get_Url=left( Get_Url, len(Get_Url)-1) end?if urladdress=urladdressamp;"amp;" Else urladdress=urladdressamp;"? end?if

end?function

'-- -------------------------------------------------- -- ---------

'?función de código de paginación

'?Parámetros:?rscount: entradas totales, pagecount: total de páginas, pageno: página actual

'------------------------------------------- -- ------------------

Función?Pageshow(rscount, pagecount, pageno)

Dim?TemplatePage, page2, s TemplatePage ?=?"lt;div?class=""page""gt;***?" &?rscount?amp;"?Información del artículolt;! --Botón gt; OKlt; / Botón gt; spangt; Página lt; saltar a página lt;/span--gt;"? amp;?vbcrlf if?pageno=1?then

Plantilla

¿Página?=?TemplatePage?amp;?"??lt;a?href=""#""gt;Homelt;/agt;? ?lt;a?href=""#""gt;Anteriorlt;/agt; ?"vbcrlf else

TemplatePage?=?TemplatePage?*lt;a?href="""amp;urladdressamp;"page=1"amp;"""gt;Homelt;/agt;?" " * amp;?vbcrlf?amp;?"?lt;a?href="""amp;urladdressamp; "page="?amp;?pageno-1?amp;?"" gt;previouslt;/agt;? "" ?&?vbcrlf end?if página2?=?(pageno?-? (pageno?mod?5))?/?5 if?page2?lt;?1?then?page2?=?0 for?s ? =?page2?*?5?-?1?to?page2?*?5??lt;a?class=""pagea?pageselect""?href="""amp;?urladdress?amp;?" =1""gt;"amp;?s?amp;?" lt;/agt;"?amp;?vbcrlf

si no?s=1?entonces TemplatePage?=?TemplatePage?amp ; ?" ? Plantilla de página s?=?Pagecount?luego salir?for

end?if

end?if siguiente if?cint(pageno)?=?Pagecount?then< / p>

TemplatePage?=?TemplatePage??lt;a?href=""#""gt;Siguiente páginalt;/agt;?lt;a?href=""#""gt;lastlt;/agt ; "?&?vbcrlf else

TemplatePage?=?TemplatePage?amp;?"* lt;a?href="""amp;?urladdress?amp;?" page="?amp; ?pageno 1?amp;"""gt;Nextlt;/agt;?"" * amp;?vbcrlf?amp;?"*lt;a?href="""amp;urladdress?amp;?" ;?Pagecountamp;"""gt;end pagelt;/agt;""?amp;?vbcrlf end?if?

TemplatePage?=?TemplatePage?amp;?"lt;spangt;? ** *"amp; pagecountamp; "pagelt;/spangt;lt;/divgt;"amp; vbcrlf Pageshow?=?TemplatePage

¿Fin?