Recomendado: Función de operación de archivo ASP establecida % ') direcciones '========================================================================== =========================================================================================================
<%@ idioma = VBScript CodePage = 936%>
<%
Opción Explícita 'Definición obligatoria de variables
Dim idcount'total Número de registros
Dim Pages'Number of Por Page
Dim pagec'total número de páginas
Número de página de Dim Page
Dim Pagenc 'El número de números de página que se muestran por página = Pagenc*2+1
Pagenc = 2
Dim Pagenmax 'Número de página máximo de páginas que se muestran por página
Dim pagenmin 'El número mínimo de página de páginas que se muestran por página
página = CLNG (Solicitud (página))
Dim inicio 'tiempo de inicio del programa
Dim Endt 'Tiempo de finalización del programa
DIM DATOS DEL NAME DATATABLE
DataFrom = Tabla1
Dim Conn, RS
Pase de la base de datos Dim Datapath '
Dim SQLid 'ID requerida para esta página
Dimido por mí mismo de esta página
yo mismo = request.servervariables (path_info)
DiM -DiM -SQL'SQL Declaración
Declaración de clasificación de Dim Taxis
'taxis = orden por id asa' sort positivo
Taxis = orden por identificación Desc 'se invertida
Dim I 'Integer usado para bucle
start = timer ()
datapath = db.mdb 'base de datos
Páginas = 30
'Conexión para abrir la base de datos
DB DB
db = db.mdb 'Defina la ruta y el nombre de la base de datos
Establecer conn = server.createObject (ADODB.Connection)
Conn.open Provider = Microsoft.Jet.OLEDB.4.0; Data Source = & Server.Mappath (DB)
Si err.number <> 0 entonces
Respuesta. ¡Error de enlace de base de datos de escritura!
respuesta.end ()
final si
'Obtenga el número total de registros
sql = select count (id) como idcount de [& dataFrom &]
establecer rs = server.createObject (ADODB.RecordSet)
Rs.open SQL, Conn, 0,1
idcount = rs (idcount) 'Obtenga el número total de registros
if (idcount> 0) entonces 'si el número total de registros = 0, no se procesará
if (IDCount Mod Pages = 0), entonces, si el número total de registros se divide por el número restante de cada página, entonces = el número total de registros/número de cada página + 1
pagec = int (idcount/páginas) 'Obtenga el número total de páginas
demás
PAGEC = int (idcount/páginas)+1'cle el número total de páginas
final si
'Obtenga la identificación necesaria para esta página ================================================================
Los valores de identificación de 'leer todos los registros', porque solo hay ID, por lo que la velocidad es muy rápida
SQL = Seleccionar ID de [& DataFrom &] & Taxis
establecer rs = server.createObject (ADODB.RecordSet)
Rs.open SQL, Conn, 1,1
rs.pagesize = páginas 'Número de registros que se muestran por página
if página <1 entonces página = 1
If Page> Pagec entonces Page = Pagec
si pagec> 0 entonces rs.absolutePage = página
para i = 1 a rs.pagesize
Si rs.Eof entonces salga por
if (i = 1) entonces
sqlid = rs (id)
demás
sqlid = sqlid &, & rs (id)
final si
Rs.Movenext
próximo
'Fin de ID requerido para obtener esta página =================================================================
final si
%>
<! Doctype html público -// w3c // dtd html 4.01 transitional // en>
<html>
<Evista>
<meta http-oquiv = content-type content = text/html; Charset = GB2312>
<title> Paging rápido </title>
<link rel = stylesheet href = page.css type = text/css>
</ablo>
<Body bgcolor =#f2f2f2 LeftMargin = 0 topmargin = 0 marginwidth = 0 marginheight = 0>
<ancho de tabla = 100% altura = 100% borde = 0 CellPadding = 20 CellPacing = 0>
<tr>
<TD Valign = Middle> <Tabla Width = 100% Height = 100% Border = 0 CellPadding = 0 CellPacing = 1 BGColor =#CCCCCC>
<tr>
<td valign = top bgcolor =#ffffff> <br> <table width = 90% border = 0 align = Center CellPading = 0 CellPacing = 0 class = Zw>
<tr>
<TD> <strong> <font color =#ff6600> Paging rápido </font> </strong> </td>
</tr>
</table>
<br>
<ancho de tabla = 90% border = 0 align = Center CellPadding = 3 CellPacing = 1 BGColor = CCCCCCCC Class = ZW>
<tr align = Center bgcolor =#9fcb07>
<td width = 9%> <strong> id </strong> </td>
<td width = 37%> <strong> tema </strong> </td>
<td width = 33%> <strong> content </strong> </td>
<td width = 21%> <strong> tiempo </strong> </td>
</tr>
<%
if (idcount> 0 y sqlid <>), entonces, si el número total de registros = 0, no se procesará
'Use en seleccionar los datos en el idioma de esta página, y solo lea los datos requeridos para esta página, por lo que la velocidad es rápida
sql = select [id], [aaaa], [bbbb], [cccc] de [& dataFrom &] donde id en (& sqlid &) & taxis
establecer rs = server.createObject (ADODB.RecordSet)
Rs.open SQL, Conn, 0,1
mientras que (no rs.eof) 'llene los datos en la tabla
%>
<tr bgcolor =#ffffff>
<td align = center> <%= rs (0)%> </td>
<td> <%= rs (1)%> </td>
<td> <%= rs (2)%> </td>
<td align = center> <%= rs (3)%> </td>
</tr>
<%
Rs.Movenext
encaminarse a
%>
</table>
<br>
<ancho de tabla = 90% border = 0 align = Center CellPadding = 2 CellPacing = 0 class = zw>
<TR align = Center>
<td align = izquierda> Hay un total de <strong> <font color =#ff6600> <%= idcount%> </font> </strong> registros, <strong> <font color =#ff6600> <%= page%> </font> </strong>/<%= pagec%>, y cada página es <strong> <font> <font> <font> <font> <font> <font> <font> color =#ff6600> <%= páginas%> </font> </strong> registros. </td>
</tr>
</table>
<ancho de tabla = 90% border = 0 align = Center CellPadding = 2 CellPacing = 0 class = zw>
<TR align = Center>
<td align = right>
<%
'Establezca el número de página para comenzar ==============================================
Pagenmin = Page-Pagenc 'Calcule el valor de inicio del número de página
Pagenmax = Page+Pagenc 'Calcule el valor final del número de página
if (pagenmin <1), entonces, si el valor de inicio del número de página es menor que 1, entonces = 1
pagenmin = 1
final si
if (página> 1) entonces, si el número de página es mayor que 1, se mostrará (primera página)
Response.write (<a href = '& yougo &? Page = 1'> <font color = '#000000'> Página 1 </font> </a>)
final si
if (pagenmin> 1), entonces, si el valor de inicio del número de página es mayor que 1, se mostrará (actualización)
Response.Write (<a href = '& yougo &? Page = & Page- (Pagenc*2+1) &'> <font color = '#000000'> avance </font> </a>)
final si
if (pagenmax> pagec), entonces, si el valor final del número de página es mayor que el número total de páginas, entonces = número total de páginas
pagenmax = pagec
final si
para i = pagenmin a pagenmax 'número de página de salida de bucle
if (i = página) entonces
Response.Write (<font color = '#ff6600'> <strong> & i & </strong> </font>)
demás
Response.Write ([<a href = & yo mismo &? Page = & i &> <font color = '#000000'> & i & </font> </a>])
final si
próximo
Si (Pagenmax <pagec), entonces, si el valor final del número de página es menor que el número total de páginas, se mostrará (después)
Response.Write (<a href = '& yougo &? Page = & Page+(Pagenc*2+1) &'> <font color = '#000000'> después de </font> </a>)
final si
if (página <pagec) entonces 'si el número de página es menor que el número total de páginas, se mostrará (última página)
Response.Write (<a href = '& yougo &? Page = & Pagec &'> <font color = '#000000'> Última página </font> </a>)
final si
'Establezca el número de página para finalizar ================================================
%> <Script Language = JavaScript>
<!-
función gopage () {
Window.location.href = <%= yo mismo%>? Page =+ page.value;
}
//->
</script>
Ir a
<input name = page type = text value = <%= página%> size = 5> página
<input type = button name = enviar value = salto> </td>
</tr>
</table>
<%
final si
%>
<br>
<ancho de tabla = 90% border = 0 align = Center CellPadding = 2 CellPacing = 0 class = zw>
<tr>
<td align = centro>
<p>
<%
endt = Timer ()
rs.
establecer RS = nada
Conn.clar
establecer conn = nada
%>
<%= formatNumber ((endt-start)*1000,3)%> ms </p>
<P> <a href = http://stone-stone.vip.sina.com/ target = _blank> Stone Space </a> </p> </td>
</tr>
</table>
<br> </td>
</tr>
</table> </td>
</tr>
</table>
</body>
</html>
Compartir: Consejos de configuración de ASP para usar FCKEditor 1. Abra el archivo fckconfig.js en el idioma predeterminado (relativo a la carpeta fckeditor, lo mismo a continuación), cambie el lenguaje de detección automático a la no detección y cambie el idioma predeterminado a chino simplificado: código de programa fckconfig.autodetectLanguage = false; Fckconfig.defaultLanguage = 'zh-cn'; 2. Abra el archivo fckconfig.js en la lista de fuentes, en la lista de fuentes