Red de conocimiento informático - Conocimiento del nombre de dominio - ¡Estoy buscando urgentemente expertos que me proporcionen un sistema de código fuente de paginación ASP útil!

¡Estoy buscando urgentemente expertos que me proporcionen un sistema de código fuente de paginación ASP útil!

lt;

dim MaxPerPage

MaxPerPage=25

dim totalPut

dim CurrentPage

si no está vacío( request("page")) entonces

currentPage=cint(request("page"))

else

currentPage=1

end if

gt;

...

lt;

función showpage(número total, maxperpage, nombre de archivo)

dim n

si número total mod maxperpage=0 entonces

n= número total \ maxperpage

else

n= número total \ maxperpage 1

end if

response.write "lt;table cellpacing=1 width=' 100' border=0 colspan='4'gt;lt;form método=Publicar action="""amp; filenameamp;"?id="amp;idamp;"amp;cid="amp;cidamp;"amp;where=""amp;"amp;keyword="amp; "" gt;lt;trgt;lt;td align=rightgt;"

si CurrentPagelt;2 entonces

respuesta .escribir "***Hay:lt;color de fuente = redgt;"amp;totalnumberamp;"lt;/fontgt; ¿elementos para hacer una pregunta?Página de inicio¿Página anterior?

else

response.write "***Hay: lt; color de fuente = redgt; ="amp;cidamp;"amp;"amp;where="amp;whereamp;"amp;keyword="amp.

response.write "lt;a href="amp ;nombre de archivoamp;" ?page="amp CurrentPage-1amp;"amp;id="amp;idamp;"amp;cid="amp;cidamp;"amp;where="amp;palabra claveamp;" class=graygt;/agt ;? amp;where="amp;whereamp;"amp;keyword="amp;keywordamp;" class=graygt;previouslt;/agt;?"

finalizar

if n- página actual

;1 entonces

response.write "página siguiente última página"

else

response.write "lt;a href="amp;nombre de archivo amp;" ?page="amp;(CurrentPage 1)amp;"amp;id="amp;idamp;"amp;cid="amp;cidamp;"amp;where="amp;"amp;whereamp;"amp;keyword= "&keywordamp;" class=graygt;"

Respuesta. escribe "nextlt;/agt;lt;a href="amp;filenameamp;"?page="amp;namp;"amp;id =" amp;idamp;"amp;cid="amp;cidamp;"amp;where="amp;whereamp;"amp;keyword="amp;keywordamp;" class=graygt;end pagelt;/agt;"

end if

response.write "?Pagelt;stronggt;lt;font color=redgt;"amp;CurrentPageamp;"lt;/fontgt;/"amp;namp;"lt; /stronggt ;"

respuesta.write "?lt;bgt;"amp; maxperpageamp;"lt;/bgt;Mensaje/página de problema"

gt;

Ir a:

lt; select name='page' size='1' style="font-size: 9pt" onChange='javascript:submit()'gt;

lt; para i = 1 a ngt;

lt; opción value='lt;=igt;' si CurrentPage=cint(i) entonces gt seleccionado; ;=igt;/optiongt;

lt;nextgt;

lt;/selectgt;

lt;

respuesta. Escribe "lt;/tdgt;lt;/trgt;lt;/FORMgt;lt;/tablegt;"

Finalizar función

gt;