Jump to content


Photo

Dividir As Postagem Por Mes


  • Faça o login para participar
2 replies to this topic

#1 alessancost

alessancost

    12 Horas

  • Usuários
  • 196 posts
  • Sexo:Não informado

Posted 14/06/2005, 12:37

Eu tenho esse código em meu blog que mostra os dias que foram feitos as postagens. Estou querendo fazer um outro que mostre as postagens por mês... dessa maneira:

Julho 2004
Agosto 2004
Setembro 2004
Outubro 2004
Janeiro 2005
Fevereiro 2005
Março 2005
Abril 2005
Maio 2005

Iqual desse blog no canto direito ( VEJA TAMBÉM )

Esse é o meu código

<select name="site" onChange="javascript:formHandler()" class="campo03">

    <option value="" selected>Posts por data</option>

    <%

    '-------------------------------------------------- 

    ' FUNÇÃO FORMATAÇÃO DATA FORMATO NACIONAL (BRASIL) 

    '-------------------------------------------------- 

    Function ForData(data, Forma) 

    Dim Dia, Mes, Ano, Hora, Minuto    

    If Not IsDate(data) Then 

    Exit Function    

    End If    

    

       Dia = "" & Right("00" & Cstr(Day(data)), 2)    

       Mes = "" & Right("00" & Cstr(Month(data)), 2)    

       Ano = "" & Right("0000" & Cstr(Year(data)), 4)    

       Hora = "" & Right("00" & Cstr(Hour(data)), 2)    

       Minuto = "" & Right("00" & Cstr(Minute(data)), 2) 

        

    Select Case Forma 

    Case 1   ForData = CStr(Trim(Dia) & "/" & Trim(Mes) &"/"& Trim(Ano)) 

    Case 2   ForData = CStr(Trim(mes) & "/" & Trim(dia) &"/"& Trim(ano)) 

    End Select 

    End Function

    

    dim data2

    while not RS.EOF

    if data2 <> rs("datapost") then 

              'response.write rs("datapost") & "&nbsp;"

               response.write "<option value=""arquivo.asp?arquivo="&ForData(rs("Datapost"),2)&""">"& ForData(rs("Datapost"),1) &"</option>"

               data2 = rs("datapost") 

    end if

                RS.movenext

    wend 

    SQL2 = "Select titblog From login"

    Set RS = ConnDB.Execute(SQL2) %>

    </select>


Eu já andei procurando em alguns programas de blog, mas não achei nada da forma que estou querendo... se vc souber de um por favor me diga onde posso visualizar o seu código.

Obrigado

#2 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 14/06/2005, 14:59

so vc especificar no select..


mas td vai depender do banco de vc ta usando tb..


ó um ex.:
SELECT * FROM tabela WHERE Data = #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"

aí, no acess, vai exibir todos os dados q o campo "Data" estiver c/ a data de hj...

aí e so vc adaptar como quer.
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!

#3 edmais

edmais

    Just do it!

  • Usuários
  • 797 posts
  • Sexo:Não informado
  • Localidade:BH - MG

Posted 14/06/2005, 16:39

É, na verdade o que passastes de Exemplo, o cara fez um .html pra cada uma né, mas você pode passar o mês por Querystring em cada link, e fazer um select como falou o Agente.

Att.
Eduardo Batista




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq