Esta es la lista de paginación ASP para generar páginas estáticas y obtener el script ASP Applet
La copia del código es la siguiente:
<!-#includeFile = "conn.asp"->
<html> <fead> <title> Pagination Test </title> <linkhref = "inc/style.css" type = text/cssrel = stylesheet> </head>
<%strhead = strhead & "<html>"
strhead = strhead & "<head>"
strhead = strhead & "<title> Test Pagination </title>"
strhead = strhead & "<linkhref =" "inc/style.css" "type = text/cssrel = stylesheet>"
strhead = strhead & "</head>"
%>
<%
sql = "Seleccionar*FromNews"
setrs = server.createObject ("ADODB.Recordset")
Rs.opensql, Conn, 1,1
%> <%
rs.pagesize = 2
TotalPage = Rs.PageCount
rs.
SETRS = nada
forj = 1TototalPage
sql = "Seleccionar*FromNews"
setrs = server.createObject ("ADODB.Recordset")
Rs.opensql, Conn, 1,1
whatpage = j
rs.pagesize = 2
TotalPage = Rs.PageCount
Rs.AbsolutePage = Whatpage
HowManyRecs = 0
%> <%
str0 = ""
str0 = str0 y "</p>"
str0 = str0 & "<tableBGColor =#cecfcealign = centerBorder = 0Width = 800CellPadding = 2CellPacing = 1>"
%> <%
dowhilenotrs.eofandhowmanyrecs <rs.pagesize
%> <%
str0 = str0 y "<trbgcolor =#f7f7f7>"
str0 = str0 & "<tdbgcolor =#f7f7f7Align =" "Center" ">" & rs (0) y "</td>"
str0 = str0 & "<tdbgcolor =#f7f7f7Align =" "Center" ">" & rs (1) & "</td>"
str0 = str0 & "<tdbgcolor =#f7f7f7Align =" "Center" ">" & rs (2) y "</td>"
str0 = str0 & "<tdbgcolor =#f7f7f7Align =" "Center" ">" & rs (3) y "</td>"
str0 = str0 y "</tr>"
%> <%
Rs.Movenext
HowManyRecs = HowManyRecs+1
bucle
rs.
SETRS = nada
%> <%str0 = str0 y "</table>"
%> <%
'Sección de paginación
ref = ""
ref = ref & "<br>"
ref = ref & "<tableBgColor =#cecfcealign = centerBorBorder = 0Width = 800CellPadding = 0CellSpacing = 1>"
ref = ref & "<trbgcolor =#f7f7f7>"
ref = ref & "<td>"
ref = ref & "<b> páginas:" & j & "/" & TotalPage & "</b>"
ref = ref & "</td>"
ref = ref & "<td>"
ref = ref & "<ahref = list_1.html" & ">" & "<fontface = webdings> 9 </font>" & "</a>" "
Si qué página = 1
ref = ref & "<fontface = webdings> 7 </font>"