¡Estoy buscando urgentemente expertos que me proporcionen un sistema de código fuente de paginación ASP útil!
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;" p>
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;