<%
'==============================================================================================
'XDownPAGEASP versão
'versão 1.00
'CodeByzyKJ2000
'E -mail: [email protected]
'BBS: http: //bbs.513soft.net
'Este programa pode ser usado e modificado gratuitamente. Espero que meu programa possa trazer conveniência ao seu trabalho
'Mas, por favor, mantenha o acima, por favor, recusa
'
'Recursos do programa
'Este programa encapsula principalmente a peça de paginação de dados e a peça de exibição de dados é completamente personalizada pelo usuário.
'Suporte vários parâmetros de URL
'
'Instruções para uso
'Descrição do parâmetro do programa
'Papgesize define o número de registros para cada página da página de paginação
'Getrs retorna um conjunto de registros paging Esta propriedade é apenas leitura
'GetConn recebe a conexão do banco de dados
'Getsql recebe declaração de consulta
'Descrição do método do programa
'ShowPage exibe a barra de navegação da página, o único método público
'
'==============================================================================================
Constbtn_first = "<fontface =" "webdings" "> 9 </font>" 'Defina o estilo de exibição do botão da primeira página
Constbtn_prev = "<fontface =" "webdings" "> 3 </font>" 'Defina o estilo de exibição do botão na página anterior
Constbtn_next = "<fontface =" "webdings" "> 4 </font>" 'Defina o estilo de exibição do botão da próxima página
Constbtn_last = "<fontface =" "webdings" ">: </font>" 'defina o estilo de exibição do botão da última página
Constxd_align = "Center" 'define o alinhamento das informações de paginação
Constxd_width = "100%" 'define o tamanho da caixa de informações de paginação
ClassXDownPage
Privatexd_pageCount, xd_conn, xd_rs, xd_sql, xd_pagesize, str_errors, int_curpage, str_url, int_totalpage, int_totalrecord, xd_surl
'===========================================================================================
'Pagesize Property
'Defina o tamanho da página para cada página
'===========================================================================================
PublicPropertyLetPagesize (int_Pagesize)
Ifisnumeric (int_pagesize) então
Xd_pagesize = clng (int_pagesize)
Outro
str_error = str_error & "Pagesize Parâmetro está incorreto"
Chuveiro ()
Endif
EndProperty
PublicPropertyGetPagesize
Ifxd_pagesize = "" ou (não (isnumeric (xd_pagesize))) então
PageSize = 10
Outro
PageSize = xD_Pagesize
Endif
EndProperty
'===========================================================================================
'Propriedade Getrs
'Retorne ao Paged RecordSet
'===========================================================================================
PublicPropertyGetGetRS ()
Setxd_rs = server.createObject ("adodb.recordset")