¿Cuáles son los códigos para la página anterior, la página siguiente, la página de inicio y la última página en la página dinámica?

Código de visualización de página:

<%

Dimpage_no'Visualización de página

IfRequest.QueryString("page_no")=""Entonces

page_no="1"

Else

page_no=CInt(Request.QueryString("page_no"))'La función CInt significa convertir una cadena en un número entero

EndIfSetrs=Server.CreateObject("ADODB .Recordset")

rs.Open"Select*Fromguizhangorderbyadd_timedesc",conn,3,3

y=0

ifnotrs.eofandnotrs.bofthen

rs.PageSize=20

dimpage_total

page_total=rs.PageCount

rs.AbsolutePage=page_no

DimI

I=20

y=0

DoWhileNotrs.EofAndI>0

I=I-1

y=y+1

%>

<%=y%>."><%=left(rs("title"),25)%>

< /tr>

<%rs.movext

bucle%>

<%Response.Write"

***Hay una página "&page_total&", "

Response.Write" actualmente muestra la página "&page_no&", DimnumPre,numNext

numPre=page_no-1

numNext=page_no+1

Respuesta.Escribir"Primera página"

IfnumPre=0Luego

Respuesta.Escribir"Página anterior"

De lo contrario

Respuesta.Escribir"

="&numPre&"'>Página anterior"

EndIf

IfnumNext>page_totalThen

Respuesta.Escribir"Página siguiente"

Else

Response.Write"Página siguiente "

EndIf

Respuesta.Escribir" Última página"

%>

<% else%>

No se han agregado las reglas y regulaciones correspondientes

<%

endif

rs.close

%>