Ir para conteúdo
Fórum Script Brasil
  • 0

Calendario

Mateustg

Perguntado por Mateustg,

 Share

Pergunta

Mateustg

Mateustg

Postado
Postado

olá, eu tenho um sistema de agenda onde me mostra todas as datas beleza, tem um seta de avançar e uma de voltar... ai está o meu problema, pois coloquei nesta agenda uma função de meses, pois quero mostrar o mes a q se refere as datas, só que ao avançar para o mês sseguinte, as datas mudam beleza, mas o mês continua o mesmo... o mês só muda conforme o calendário do computador. Será que tem algum meio onde eu possa estar colocando o mês e ao avançar as datas e os meses mudem dando sequencia certa a agenda de meses

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
Mateustg

Mateustg

Postado
  • Autor
Postado

estou usando assim na realidade:


<%Option Explicit%>

<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Calendário</TITLE>
<META NAME="Generator" CONTENT="Microsoft FrontPage 4.0">
<META NAME="Author" CONTENT="Alexandre Sales Lima">
<META NAME="Keywords" CONTENT="Calendario">
<META NAME="Description" CONTENT="Calendario escrito em ASP">
<base target="frame">
<script LANGUAGE="JavaScript">
<!-- Original:  Jeff Harding (jbh@site-ations.com) -->
<!-- Web Site:  http://www.site-ations.com -->

<!-- Day images (c): http://www.site-ations.com -->
<!-- Month images (c): http://www.bruce-hamilton.com -->

<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->

<!-- Begin
theDate= new Date();
months = new Array();
days = new Array();
months[1] ="../data/jan.gif";
months[2] ="../data/fev.gif";
months[3] ="../data/mar.gif";
months[4] ="../data/abr.gif";
months[5] ="../data/mai.gif";
months[6] ="../data/jun.gif";
months[7] ="../data/jul.gif";
months[8] ="../data/ago.gif";
months[9] ="../data/set.gif";
months[10] ="../data/out.gif";
months[11] ="../data/nov.gif";
months[12] ="../data/dez.gif";
function printDate() {
document.write('<img src="' + months[theDate.getMonth()+1] + '">'); // month
}
//  End -->
</script>
</HEAD>

<BODY bgcolor=#ffffff>


<%
'Lógica para construir o calendário
Session.LCID = 1046 'BRASIL
Dim URL,Dia, Mes, Ano, Agora, PrimeiroDiaMes, UltimoDiaMes, Mes2,Varmes 
Dim Inicio,Fim, Start, TheEnd,i, j

URL= Request.ServerVAriables("SCRIPT_NAME")

if (Request.QueryString("Mes") <> Month(now))AND(Request.QueryString("Mes") <> "") Then
Mes=CInt(Request.QueryString("Mes"))'força que o resultado seja um inteiro
'mes2 = CInt(Month(date))
Select Case Mes
Case 1
  varmes = "mes" & mes & ".jpg"
Case 2
  varmes = "mes" & mes & ".jpg"
Case 3
  varmes = "mes" & mes & ".jpg"
Case 4
  varmes = "mes" & mes & ".jpg"
Case 5
  varmes = "mes" & mes & ".jpg"
Case 6
  varmes =  "mes" & mes & ".jpg"
Case 7
  varmes = "mes" & mes & ".jpg"
Case 8
  varmes = "mes" & mes & ".jpg"
Case 9
  varmes = "mes" & mes & ".jpg"
Case 10
  varmes = "mes" & mes & ".jpg"
Case 11
  varmes = "mes" & mes & ".jpg"
Case 12
  varmes = "mes" & mes & ".jpg"
End Select
else
Mes = Month(now)
'mes2 = CInt(Month(date))
Select Case Mes
Case 1
  varmes = "mes" & mes & ".jpg"
Case 2
  varmes = "mes" & mes & ".jpg"
Case 3
  varmes = "mes" & mes & ".jpg"
Case 4
  varmes = "mes" & mes & ".jpg"
Case 5
  varmes = "mes" & mes & ".jpg"
Case 6
  varmes =  "mes" & mes & ".jpg"
Case 7
  varmes = "mes" & mes & ".jpg"
Case 8
  varmes = "mes" & mes & ".jpg"
Case 9
  varmes = "mes" & mes & ".jpg"
Case 10
  varmes = "mes" & mes & ".jpg"
Case 11
  varmes = "mes" & mes & ".jpg"
Case 12
  varmes = "mes" & mes & ".jpg"
End Select
end if

Dia=Day(now)

Ano = Year(now)
Agora = DateSerial(Ano, mes, dia)

PrimeiroDiaMes=DateSerial(Year(Now),Mes,1)
UltimoDiaMes=DateSerial(Year(Now),Mes+1,1-1)
Inicio = ABS(1 - WeekDay(PrimeiroDiaMes))
Fim = 7 - WeekDay(UltimoDiaMes)
Start=1-Inicio
TheEnd = Day(UltimoDiaMes) + Fim 
J=1 

'#############################################################
'# Inicio do meu código - Q Santa Luzia Ilumine meus olhinhos#
'#############################################################



%>
<!--#include file="conecta.asp"-->


<TABLE BORDER=0 WIDTH=194 CELLPADDING=0 ALIGN=left>
	<TR>
	<TD WIDTH="199" VALIGN=top style="border-style: solid; border-width: 1">
<div align="center">
  <center>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH="120">


<TR bgcolor=white>
	<TD align="Center" width="195">
        <center><script>printDate();</script></center>
          </TD>
</TR>


<TR bgcolor=white>
	<TD align="Center" width="195">
  <TABLE  CELLSPACING=3 CELLPADDING=1 BORDER=0>
  <TR>
  	<TD COLSPAN=1 align="center" width="75"><img border="0" src="semana2.gif"></TD>
  </TR>
  </Table>
          </TD>
</TR>
<tr>
	<TD align="Center" width="195">
	<TABLE  CELLSPACING=3 CELLPADDING=1 BORDER=0 width="99">
  
	<TR bgcolor="#ffffff">

<%

AbreConexao
Dim sql, RSAgenda


For i= Start to TheEnd  
  
  if (i = day(now)) And (Mes=Month(now)) Then
      sql = "SELECT * FROM AGENDA WHERE day(dt_evento)="&i&" AND month(dt_evento)="&mes&" AND year(dt_evento)="&ano&""
      Set RSAgenda = conexao.execute(sql)
    If RSAgenda.EOF then%>
	<TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=black><b><%=Day(DateSerial(Year(Now),Mes,i))%></b></font></TD>
    <% else 
    'While NOT RSAgenda.EOF%>
     <TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=red><a href="cagenda.asp?dt=<%=RSagenda("dt_evento")%>&mes=<%=Mes%>" target="frame"><%=Day(DateSerial(Year(Now),Mes,i))%></font></a></font></TD>
    <%
   
    'RSAgenda.MoveNext
    'Wend
  end if
  Elseif (i<1) or (i > Day(UltimoDiaMes)) Then
  sql = "SELECT * FROM AGENDA WHERE day(dt_evento)="&i&" AND month(dt_evento)="&mes&" AND year(dt_evento)="&ano&""
      Set RSAgenda = conexao.execute(sql)
    If RSAgenda.EOF then%>
	<TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=gray><%=Day(DateSerial(Year(Now),Mes,i))%></TD>
  <%else
   'While NOT RSAgenda.EOF%>
   <TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=gray><B><a href="cagenda.asp?dt=<%=RSagenda("dt_evento")%>&mes=<%=Mes%>" target="frame"><%=Day(DateSerial(Year(Now),Mes,i))%></B></a></B></TD>
    <%'RSAgenda.MoveNext
    'Wend
  end if 
  
  Else
  sql = "SELECT * FROM AGENDA WHERE day(dt_evento)="&i&" AND month(dt_evento)="&mes&" AND year(dt_evento)="&ano&""
      Set RSAgenda = conexao.execute(sql)
    If RSAgenda.EOF then%>
	<TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=gray><%=Day(DateSerial(Year(Now),Mes,i))%></TD>
	<% else 
	'While NOT RSAgenda.EOF%>
	<TD align= center width=5 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=blue><a href="cagenda.asp?dt=<%=RSagenda("dt_evento")%>&mes=<%=Mes%>" target="frame"><b><%=Day(DateSerial(Year(Now),Mes,i))%></b></a></TD>

   <%'RSAgenda.MoveNext
    'Wend
    end if 

	End if

  If j = 7 then
     J = 0
  Response.Write "</tr>" %>
  <TR bgcolor="#FFFFFF">
  <% end if
  J = j + 1


Next 


FechaConexao
%>
      </TR>
</table>
  </tr>
  <tr>
    <td width="156">
      <div align="center">
        <center>
   <Table>

	<TR>
<TD NOWRAP COLSPAN=4 ALIGN=CENTER BGCOLOR=#FFFFFF>
	<TABLE CELLSPACING=0 CELLPADDING=1 BORDER=0>
	<TR>
  <TD>
<a HREF="<%=URL&"?mes="&(mes-1)%>" target="_self"><img src="seta_tras.gif" border="0" alt=""></a>
  </TD>
  <TD NOWRAP VALIGN=middle>
  	<TT><B><img src="seta_meio.gif" border="0" alt=""></B></TT>
  </TD>
  <TD>
<a HREF="<%=URL&"?mes="&(mes+1)%>" target="_self"><img src="seta_frente.gif" border="0" alt=""></a>
  </TD>
	</TR>
	</TABLE>
</TD>
</TR>
     
        </Table>
        </center>
      </div>
  </tr>
</table>
  </center>
  </div>
    </table>
</BODY>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...