<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% area = 4 'controle de exibicao de menus e estado do botao no topo sql = "SELECT * FROM adm_noticia WHERE cod_noticia = "&request.QueryString("cod")&"" Set RS = Server.CreateObject("ADODB.RecordSet") Rs.open sql, conn If not rs.BOF and not rs.EOF then 'loop com paginacao %> ACT | <%= rs("titulo")%>
 


 
Principal > Comunicação > Notícias

notícias

<% ' De seguida fazemos a apresentação dos valores que queremos mostrar, eu aqui apenas apresento um campo, como exemplo. 'Aqui dizemos que desde do número 1 até ao máximo de resultados por página, definidos anteriormente, fazer o ciclo. while not rs.EOF %> <%= rs("titulo")%> (<%= rs("data_cad")%>)
<%= rs("autor")%>

<%if rs("url") <> "" then%>

" target="_blank"><%= rs("url")%>

<% end if if rs("arquivo") <> "" then%>

Essa notícia possui um anexo: " target="_blank"><%= rs("arquivo")%>

<%end if%> <%= rs("conteudo")%> <% RS.Movenext 'Se chegar-mos primeiro ao fim dos resultados da BD, Saímos do ciclo. WEND end if %>
<% if regporpagina < RS.RecordCount then 'Agora vamos fazer uma espécie de navegação. ' Primeiro caso, se apenas resultar uma página, não há nescessidade de apresentar o menú. IF PaginaCount=1 then ' Caso seguinte, Primeira página. 'Neste caso apresentamos os números de 1 a 5, com os links para as páginas correspondentes, à exepção da página 1, pois é nela onde nos encontramos. Isto é devido ao “Sub Kuantas()”, que explicaremos mais à frente como funciona. ElseIF Pagina=1 then 'Chamamos o Sub call Kuantas() 'Mostramos os links para a página seguinte e última. %> Próxima <% ' Agora verificamos se estamos na última página, pois, caso se verifique, não há necessidade de apresentar os links para a próxima e última páginas. ElseIF ABS(Pagina)=ABS(PaginaCount) then ' Caso se verifique a condição, Colocá-mos os links para a primeira e página anteriores. %> Anterior <% 'Chamamos o Sub que nos faz o painel com os números. call Kuantas() ' Se nenhuma das situações anteriores se verificar, apresentamos um menú com o link para a primeira e anterior páginas, bem como o painel dos números e links para as páginas seguinte e última. Else %> Anterior <% call Kuantas() %> Próxima <% End If 'Agorao “Sub Kuantas()” 'Dámos-lhe o nome sub kuantas() 'Para ser mais fácil de funcionar, criámos a variável Iaa, que fica com o valor da variável Pagina, a função ABS é nescessária, pois nas comparações que se farão de seguida, não funcionarão... Iaa=ABS(Pagina) 'O seguinte “IF” Serve para nos podermos posicionar no painel, ou seja, se tivermos um grande número de páginas, a página em questão estará apresentada ao centro, e teremos mais duas páginas para trás e para a frente. A página selecciona estará sem link. If Iaa-2=0 then b=3 elseIf Iaa-3=0 then b=2 elseIf Iaa-1=0 then b=4 elseIF Iaa=ABS(PaginaCount) then b=4 elseIF Iaa+1=ABS(PaginaCount) then b=3 else b=2 end if 'Cá está o ciclo que apresenta os números. For pagPagina=(Iaa-b) to (Iaa+b) 'Se o número a apresentar, for menor que um, atribuimos-lhe o valor 1 if pagPagina<=0 then pagPagina=1 End if 'Se a página for maior que o número total de páginas, já não prescisamos de apresentar mais nenhum link, pois não terá nenhum resultado para apresentar. if pagPagina>PaginaCount then exit for End if 'Agora se o valor do número que vamos escrever for diferente do da página onde nos encontramos, atribuímos um link para a página em questão. If not ABS(pagPagina)=ABS(Pagina) then %> <%=pagPagina%> <% 'Caso Contrário, escrevemos o número da página, mas sem link. else%> <% 'Numero da página que está %> <%=Pagina%> <% End IF Next End Sub %> <%end if%>
 
 
<% Rs.close Set RS = nothing Conn.close Set Conn = nothing %>