Recomendado: Conjunto de funções de operação de arquivo ASP % '=====================================================' Compilado por: Zhang Hui 'Código de programador: WJ008' Hora compilada: 1 de junho '2008' Soltar Endereço: WWW.W.W.WJ008.W.W.J00.W.J00.W.J00.W.J00.W.J00. Endereços '======================================================================== ===================================================================================
<%@ idioma = vbscript codePage = 936%>
<%
opção explícita 'Definição obrigatória de variáveis
Dim IdCount'Total Número de registros
Páginas obscuras do número de por página
Pagec'Total Número de páginas
Número da página da página dim diminua
Dim Pagenc 'o número de números de página exibidos por página = Pagenc*2+1
pagenc = 2
Página máxima de Dim Pagenmax Número de páginas exibidas por página
Dim pagenmin 'o número mínimo de páginas exibidas por página
página = clng (solicitação (página))
Dim Start 'Hora de Start Start
Dim Endt 'Hora of Ending Program
Data DataFrom'datatable Nome
DataFrom = Tabela1
Dim Conn, Rs
Dim Datapath 'Database Pass
Dim Sqlid 'ID necessário para esta página
me obscurecer desta página
eu = request.Servervariables (path_info)
instrução dim sql'sql
Declaração de Classificação de Táxis Dim
'Táxis = Ordem por id ASC' Classificação positiva
Táxis = Ordem por Id Desc 'Centro invertido
Dim i 'inteiro usado para loop
start = timer ()
Datapath = db.mdb 'banco de dados
páginas = 30
'Conexão para abrir o banco de dados
DB DB
db = db.mdb 'Defina o caminho e o nome do banco de dados
Definir Conn = Server.CreateObject (Adodb.Connection)
Conn.Open Provider = Microsoft.Jet.OLEDB.4.0; Data Source = & Server.Mappath (DB)
se err.number <> 0 então
Responder.Write Database Link Erro!
Response.end ()
final se
'Obtenha o número total de registros
sql = selecione count (id) como iDCount de [& datafrom &]
set rs = server.createObject (adodb.recordset)
Rs.Open SQL, Conn, 0,1
IdCount = RS (IdCount) 'Obtenha o número total de registros
Se (IdCount> 0), se o número total de registros = 0, não será processado
if (iDCount mod páginas = 0) Se o número total de registros for dividido pelo número restante de cada página, então = o número total de registros/número de cada página + 1
pagec = int (iDCount/páginas) 'Obtenha o número total de páginas
outro
pagec = int (iDCount/páginas)+1'get o número total de páginas
final se
'Obtenha o ID necessário para esta página ===========================================================================================================================
'Leia todos os valores de identificação de todos os registros', porque há apenas ID, então a velocidade é muito rápida
SQL = Selecione ID de [& DataFrom &] & Taxis
set rs = server.createObject (adodb.recordset)
Rs.Open SQL, Conn, 1,1
rs.pagesize = número de registros das páginas exibidas por página
Se página <1 então página = 1
se página> page então página = pagec
Se pagec> 0 então rs.absolutePage = página
para i = 1 a rs.pagesize
Se rs.eof, então saia para
se (i = 1) então
sqlid = rs (id)
outro
sqlid = sqlid &, & rs (id)
final se
rs.movenext
próximo
'Final de identificação necessária para obter esta página ===============================================================================================================
final se
%>
<!
<html>
<head>
<meta http-equiv = content-type content = text/html; charset = gb2312>
<title> Pagagem rápida </title>
<link rel = Stylesheet href = página.css type = text/css>
</head>
<corpo bgcolor =#f2f2f2 leftMargin = 0 topmargin = 0 marginwidth = 0 marginHeight = 0>
<largura da tabela = 100% de altura = 100% de borda = 0 CellPadding = 20 CellPacing = 0>
<tr>
<TD Valign = Middle> <Tabela Lidth = 100% altura = 100% de borda = 0 CellPadding = 0 CellPacing = 1 BGCOLOR =#CCCCCC>
<tr>
<td valign = top bgcolor =#ffffff> <br> <tabela width = 90% borda = 0 alinhamento = central de célula = 0 cellpacing = 0 class = zw>
<tr>
<td> <strong> <font color =#ff6600> paginação rápida </font> </strong> </td>
</tr>
</tabela>
<br>
<largura da tabela = 90% de borda = 0 alinhamento = CENTRO 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> conteúdo </strong> </td>
<td width = 21%> <strong> tempo </strong> </td>
</tr>
<%
se (idCount> 0 e sqlid <>), se o número total de registros = 0, não será processado
'Use para selecionar os dados no idioma desta página e apenas leia os dados necessários para esta página, para que a velocidade seja rápida
sql = selecione [id], [aaaa], [bbbb], [cccc] de [& datafrom &] where id in (& sqlid &) e táxis
set rs = server.createObject (adodb.recordset)
Rs.Open SQL, Conn, 0,1
enquanto (não Rs.eof) preenche os dados em tabela
%>
<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
Wend
%>
</tabela>
<br>
<tabela largura = 90% borda = 0 alinhamento = central de celular = 2 cellpacing = 0 class = zw>
<TR ALIGN = CENTRO>
<td align = esquerda> Há um total de <strong> <font color =#ff6600> <%= idcount%> </font> </strong> registros, <strong> <font color =#ff6600> <%= página%> </font> </strong/<%= pageC %> e cada página color =#ff6600> <%= páginas%> </font> </strong> registros. </td>
</tr>
</tabela>
<tabela largura = 90% borda = 0 alinhamento = central de celular = 2 cellpacing = 0 class = zw>
<TR ALIGN = CENTRO>
<td align = direita>
<%
'Defina o número da página para iniciar =============================================
pagenmin = Page-Pagenc 'Calcule o valor do número da página
Pagenmax = página+Pagenc 'Calcule o valor final do número da página
se (pagenmin <1), se o número de início do número da página for menor que 1 então = 1
pagenmin = 1
final se
Se (página> 1), se o número da página for maior que 1, ele será exibido (primeira página)
Response.Write (<a href = '& me Myser &? Page = 1'> <font color = '#000000'> página 1 </font> </a>)
final se
Se (pagenmin> 1), se o número de início do número da página for maior que 1, ele será exibido (atualização)
Response.Write (<a href = '& me Myself &? Page = & Page- (PAGENC*2+1) &'> <font color = '#000000'> avanço </font> </a>)
final se
se (pagenmax> page), se o valor final do número da página for maior que o número total de páginas, então = número total de páginas
PagenMax = Pagec
final se
para i = pagenmin para Pagenmax 'loop de saída Número da página
if (i = página) então
Response.Write (<font color = '#ff6600'> <strong> & i & </strong> </font>)
outro
Response.Write ([<a href = & me Myself &? Page = & i &> <font color = '#000000'> & i & </font> </a>])
final se
próximo
Se (Pagenmax <Pagec), se o valor final do número da página for menor que o número total de páginas, ele será exibido (depois)
Response.write (<a href = '& me e eu &? Page = & Page+(Pagenc*2+1) &'> <font color = '#000000'> depois de </font> </a>)
final se
se (página <pagec), então 'se o número da página for menor que o número total de páginas, ele será exibido (última página)
Response.Write (<a href = '& me Myself &? Page = & Pagec &'> <font color = '#000000'> última página </font> </a>)
final se
'Defina o número da página como end ================================================
%> <Idioma do script = javascript>
<!-
função gopage () {
window.Location.href = <%= eu%>? página =+ página.value;
}
//->
</script>
Vá para
<nome de entrada = página de página = valor do texto = <%= página%> size = 5> página
<Tipo de entrada = Nome do botão = Valor de envio = Jump> </td>
</tr>
</tabela>
<%
final se
%>
<br>
<tabela largura = 90% borda = 0 alinhamento = central de celular = 2 cellpacing = 0 class = zw>
<tr>
<td align = Center>
<p>
<%
endt = timer ()
rs.close
Defina rs = nada
Conn.Close
Definir conn = nada
%>
<%= formatNumber ((endt-start)*1000,3)%> ms </p>
<p> <a href = http://stone-stone.vip.sina.com/ Target = _blank> espaço de pedra </a> </p> </td>
</tr>
</tabela>
<br> </td>
</tr>
</tabela> </td>
</tr>
</tabela>
</body>
</html>
Compartilhar: Dicas de configuração da ASP para usar o FCKeditor 1. Abra o arquivo fckconfig.js no idioma padrão (em relação à pasta FCKeditor, o mesmo abaixo), altere a linguagem de detecção automática para não detecção e altere a linguagem padrão para chinês simplificado: código do programa fckconfig.autodetectlanguage = false; Fckconfig.defaultLanguage = 'zh-cn'; 2. Abra o arquivo fckconfig.js na lista de fontes, na lista de fontes