[Resolvido] tabela HTML paginável

[xanburzum 169]

tabela HTML paginável, basta chamar o procedimento que você deseja que a tabela, passá-la um objeto de conexão e uma seqüência de SQL, ele irá criar um conjunto de registros ADO e preenchê-lo em uma tabela HTML, que será totalmente paginável e classificável, clicando na coluna

 

    '     ***********************	
    Sub createSortableList(objConn,strSQL, strDefaultSort, intPageSize, strLinkedColumnName,strLink,strTableAttributes)
    		Dim RS,strSort, intCurrentPage, strPageName 
    		Dim strTemp, field, strMoveFirst, strMoveNext, strMovePrevious, strMoveLast
    		Dim i, intTotalPages, intCurrentRecord, intTotalRecords 
    		i = 0
    		
    		strSort = request("sort")
    		intCurrentPage = request("page")
    		strPageName = Request.serverVariables("SCRIPT_NAME")
    		
    		if strSort = "" Then
    			strSort = strDefaultSort
    		End if
    		
    		if intCurrentPage = "" Then
    			intCurrentPage = 1
    		End if
    			
    		Set RS = server.CreateObject("adodb.recordset")
    			
    		With RS
    			.CursorLocation=3
    			.Open strSQL & " order by " & replace(strSort,"desc"," desc"), objConn,3 '3 is adOpenStatic
    			.PageSize = cint(intPageSize)
    			intTotalPages = .PageCount							
    			intCurrentRecord = .AbsolutePosition 
    			.AbsolutePage = intCurrentPage
    			intTotalRecords = .RecordCount
    		End With
    		Response.Write "<TABLE " & strTableAttributes & " >" & vbcrlf
    		
    		'table head
    		Response.Write "<TR>" & vbcrlf
    		For Each field In RS.Fields 'loop através dos campos no conjunto de registros
    			Response.Write "<TD align=center>" & vbcrlf
    			if instr(strSort, "desc") Then 'verificar a ordem de classificação, se o seu momento de ascensão, fazer a ligação descendente
    				Response.Write "<A href=" & strPageName & "?sort="& field.name & "&page=" & intCurrentPage & ">" & field.name & "</A>" & vbcrlf
    			Else
    				Response.Write "<A href=" & strPageName & "?sort="& field.name &"desc&page=" & intCurrentPage & ">" & field.name & "</A>"	& vbcrlf		
    			End if	
    			Response.Write "<TD>"	& vbcrlf
    		Next		
    		Response.Write "<TR>"
    		
    		'records		
    		For i = intCurrentRecord To RS.PageSize 'mostrar a partir do registro atual para o pagesize
    			if Not RS.eof Then 
    			Response.Write "<TR>" & vbcrlf
    			For Each field In RS.Fields 'para cada campo no conjunto de registros
    				Response.Write "<TD align=center>" & vbcrlf
    				if lcase(strLinkedColumnName) = lcase(field.name) Then 'Se este campo é o campo "linked field" fornecer um link
    					Response.Write "<A href=" & strLink & "?sort="& strSort &"&page=" & intCurrentPage & "&" & field.name & "=" & field.value & " >" & field.value & "</A>" & vbcrlf
    				Else
    					Response.Write field.value
    				End if	
    				Response.Write "<TD>" & vbcrlf
    			Next			
    			Response.Write "<TR>" & vbcrlf
    			RS.MoveNext
    			End if
    		Next
    				
    		Response.Write "<TABLE>" & vbcrlf
    		
    		'Navegação de página
    		Select Case cint(intCurrentPage) 
    			Case cint(intTotalPages) 
    				strMoveFirst = "<A href=" & strPageName & "?sort="& strSort &"&page=1 >"& "Primeiro" &"</A>"
    				strMoveNext = ""
    				strMovePrevious = "<A href=" & strPageName & "?sort="& strSort &"&page=" & intCurrentPage - 1 & " >"& "Prev" &"</A>"				
    				strMoveLast = "" 
    			Case 1 'se a sua primeira página só dar links para mover seguinte e último lance
    				strMoveFirst = ""
    				strMoveNext = "<A href=" & strPageName & "?sort="& strSort &"&page=" & intCurrentPage + 1 & " >"& "Próximo" &"</A>"				
    				strMovePrevious = "" 
    				strMoveLast = "<A href=" & strPageName & "?sort="& strSort &"&page=" & intTotalPages & " >"& "Último" &"</A>"
    			Case Else 
    				strMoveFirst = "<A href=" & strPageName & "?sort="& strSort &"&page=1 >"& "Primeiro" &"</A>"
    				strMoveNext = "<A href=" & strPageName & "?sort="& strSort &"&page=" & intCurrentPage + 1 & " >"& "Próximo" &"</A>"
    				strMovePrevious = "<A href=" & strPageName & "?sort="& strSort &"&page=" & intCurrentPage - 1 & " >"& "Prev" &"</A>"		
    				strMoveLast = "<A href=" & strPageName & "?sort="& strSort &"&page=" & intTotalPages & " >"& "Último" &"</A>"					
    		End Select 
    		
    		With response		
    			.Write strMoveFirst & " "
    			.Write strMovePrevious 
    			.Write " " & intCurrentPage & " of " & intTotalPages & " "
    			.Write strMoveNext & " "
    			.Write strMoveLast
    		End With		
    		
    		if RS.State = &H00000001 Then 		
    			RS.Close
    		End if
    		Set RS = nothing			
    	End Sub