*/ ------------------------------------------------ ---------------------------------------------------- -------------------------------------------------------- -------------------------------------------------------- ---------------------
*/De: Jianzheng State http://www.jzxue.com
*/ Autor: Tianya Ouça o e-mail da chuva: [email protected]: 809252803
*/ Time: 2007-10-6 Fórum de programação Primeiro lançamento
*/ Declaração: Respeite o trabalho do autor, mantenha o texto neste parágrafo
*/ ------------------------------------------------ ---------------------------------------------------- -------------------------------------------------------- -------------------------------------------------------- ---------------------
<%
'Nome: Million Data Practice
'Autor: Tianya Ouça a chuva
'Hora: 6 de outubro de 2007
'Plataforma: Win2000+IIS5.0+SQL2000
'Afilador: use -o tão simples quanto a primeira vez.
'--------------------------------------------------- ----------------------------------------- --------- Conectar o banco de dados
Response.Buffer = true
Dim SQLLOCALNAME, SQLUSERNAME, SQLPASSWORD, SQLDATABAS
Dim Connstr, Conn
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' O
SqllocalName = (local) 'Conexão de IP [local (local) IP IP]
SQLUSERNAME = SA 'Nome de usuário do banco de dados
Sqlpassword = xxxxxx 'senha do usuário
Sqldatabasename = news2008 'nome do banco de dados
Connstr = provedor = sqloledb;
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' O
Em erro de erro em seguida
Definir Conn = Server.CreateObject (Adodb.Connection)
Conn.Open Connstr
Se errar então
err.clear
Defina conn = nada
Response.Write <Div Style = 'Font-Size: 14px;
Resposta.END
Final se
'--------------------------------------------------- ----------------------------------------- --------- Conectar o banco de dados para concluir
'Defina variáveis
'Nome da table TblName;
Declaração de Execução Total de Strsql;
Dim TblName, Fldname, FieldName, Pagesizex, PageCountx, Pageno, Ordretype, Stre
Dim StrSQL, FieldCount, Strtmp, Strororder, Topfield
'
Pageno = Trim (request.QueryString (Pageno))
Se fornumérico (pageno) ou pageno = então 'se não houver valor de página, o valor de inicialização
Pageno = ABS (Pageno)
Se pageno = 0 então pageno = 1
outro
Pageno = 1
final se
Tblname = tablenews
Fldname = id 'mostra que o valor do campo de classificação não pode ser repetido no banco de dados: recomenda -se que a chave primária
Fieldname = id, título, addtime
PageSizex = 30
OrderType = 1 '0-é a ordem de 1 litro
Strwhere = (code = '0101') e (hits> 100) 'Nota: se uma condição for usada () parênteses duplos
Topfield = (Pageno-1)*Pagesizex'top
Se Orderype = 0 então
Strtmp = <(selecione min
Stroreder = Ordem por [& fldname &] DESC
outro
Strtmp => (selecione max
Stroreder = Ordem por [& fldname &] ASC
final se
'Defina declarações SQL
StrSQL = selecione Top & Clng (Pagesizex) e FieldName & From & TblName &
Se Pageno = 1 então 'se for a primeira página, execute o seguinte código para verificar a biblioteca rapidamente
Se strwhere <> então
Strsql = strsql & where & strwhere & storder &
outro
Strsql = strsql & storder
final se
outro
Se strwhere <> então
Strsql = strsql & where & fldname & strtmp & (& fldname &) de (selecione Top & clng (topfield) & fldname & frm & tblname & strwhere & str. Ordem &) como tbltmp) e e stringer & stroreder &
outro
Strsql = strsql & where & fldname & strtmp & (& fldname &) de (selecione Top & clng (topfield) & fldname & tblname & strrener & como tbltmp) e mais forte &
final se
final se
Definir rs = const.execute (strsql) 'Executar consulta
Se Rs.Bof e Rs.eof então
Conn.Close: Set Conn = Nada
Response.Write <Script Language = 'JavaScript'> alert ('Atualmente, nenhum registro é encontrado, por favor retorne à reoperação! "); History.go (-1); </sCript>
resposta.END
final se
Se string <> então 'buscando registros totais
FieldCount = Conn.Execute (selecione contagem (& fldname &) de & tblname & strwhere &) (0) (0)
outro
FieldCount = Conn.Execute (selecione contagem (& fldname &) de & tblName &) (0)
final se
if (fieldcount mod npagesize)> 0 Então 'encontre o número total da página PageCountx
PageCountx = (FieldCount- (FieldCount mod mod pagagex))/ Pagesizex +1
outro
PageCountx = (FieldCount / Pagesizex)
final se
'Exibir dados
Faça enquanto não é Rs.eof
Response.Write & RS (título) && nbsp;
rs.movenext
laço
'Desligue e libere recursos relacionados
Rs.close
Conn.Close: Set Conn = Nada
'Exibir paginação
se pageno <= 1 então
Response.write <font color = '#ff0000'> [Página inicial] [anterior] </font>
outro
Response.Write [<a href = '?
Response.write [<a href = '? >]]
final se
Se pageno> = PageCountx então
Response.write <font color = '#ff0000'> [Próxima página] [página da cauda] </font>
outro
Response.Write [<a href = '? ]
Response.Write [<a href = '?
final se
Response.Write [Página Ordem <Font Color = Red> & Pageno & </font> página/Common <font color = Red> & PageCountx & </font> página]
Response.write [total <font color = Red> & FieldCount & </font> Entrada <font color = Red> & Pagesizex & </font> Strip/Page]
Response.Write para: <Selecione Nome = 'Page' Size = '1' OnChange = JavaScript : Window.Location = '?
para i = 1 para paycountx
Response.write <Opção Valor = & i &
Se Pageno = eu então Response.Write Selectd
Response.Write (> No.- & i & -page </pption>)
próximo
Response.Write </leclectd>
%>