Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

neotheone

como adicionar eventos no calendario?

Por , em ASP Clássico

Recommended Posts

neotheone    0

neotheone
Postado

Fala pessoal, eu segui um tutorial que tem aqui no IMASTERS para construir um calendario, e deu certinho, só tem um problema, teria como vcs me ensinarem a por eventos nos dias do MES q eu escolhece? por exemplo. 26 de fevereiro - carnaval1º de maio - de do trabalhoeu queria q quando eu clicasse no dia 26 ou no dia 1º aparecesse uma jalinha do lado ou uma pop up indicando o evento, teria como?sds Felipe

Compartilhar este post

Link para o post
Compartilhar em outros sites

neotheone    0

neotheone
Postado

Pessoal eu tinha esquecido de postar o codigo do calendario

<% Option Explicit'EM TODOS OS PROGRAMAS'COLOCAR ESTE COMANDO,'POIS FICA MAIS FÁCIL 'ACHAR UM ERRO Session.LCID = 1046'Deixa tudo no formato brasileiro%> <html><body><% dim dt 'Variável que controla a Dataif request("dt") = empty thendt = NOW() 'Traz data e hora elsedt = request("dt")end if dim pd 'Variável do primeiro diadim ud 'Variável do último dia pd = DateSerial(year(dt),month(dt),1)ud = DateSerial(year(dt),month(dt)+1,1)-1 dim ma 'Mês anterior ao atualdim mp 'Mês posterior ao atualma = DateSerial(year(dt),month(dt)-1,1) 'Para voltar 1 mêsmp = DateSerial(year(dt),month(dt)+1,1) 'Para andar 1 mês '-------------------------'Montagem da Grade de Dias'-------------------------dim gr(42) 'Matriz dim li 'Linhas da Gradedim co 'Colunas da Gradedim ct 'Contador da Gradect = 1 dim lp 'Suporte aos Loops '-------------------------'Montagem dos Quadros Brancos'------------------------- for lp = 1 to weekday(pd)- 1gr(ct) = " "ct = ct + 1next '-------------------------'Lendo o Mês Atual'------------------------- for lp = pd to udif lp = date thengr(ct) = "<font color = blue>" & day(lp) & "</font>"elsegr(ct) = day(lp)end ifct = ct + 1next '-----------------------------'Montagem do Resto dos Quadros'----------------------------- for lp = ct to 42gr(lp) = " " 'Coloquei LP dentro do GR porque ele já'tem o valor de CT (que é a posição'do último dia + 1)next ct = 1%> <html><body><center><table border=1 cellspacing = 0><tr><td><a href= "calendario.asp?dt=<%=ma%>"><img src="direita.gif"></a></td><td colspan = 5 align = center><font face = "verdana" size = 3><b><%=Ucase(MonthName(month(dt),true))%>/<%=year(dt)%></b></font></td><td><a href = "calendario.asp?dt=<%=mp%>"><img src="esquerda.gif"></a></td></tr> <tr><td>DOM</td><td>SEG</td><td>TER</td><td>QUA</td><td>QUI</td><td>---</td><td>SAB</td></tr> <%for li = 1 to 6%><tr><%for co = 1 to 7%><td><%=gr(ct)%></td><%ct = ct + 1%><%next%> </tr><%next%> %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Amigo_zz    0

Amigo_zz
Postado

Pessoal eu tinha esquecido de postar o codigo do calendario<% Option Explicit'EM TODOS OS PROGRAMAS'COLOCAR ESTE COMANDO,'POIS FICA MAIS FÁCIL 'ACHAR UM ERRO Session.LCID = 1046'Deixa tudo no formato brasileiro%> <html><body><% dim dt 'Variável que controla a Dataif request("dt") = empty thendt = NOW() 'Traz data e hora elsedt = request("dt")end if dim pd 'Variável do primeiro diadim ud 'Variável do último dia pd = DateSerial(year(dt),month(dt),1)ud = DateSerial(year(dt),month(dt)+1,1)-1 dim ma 'Mês anterior ao atualdim mp 'Mês posterior ao atualma = DateSerial(year(dt),month(dt)-1,1) 'Para voltar 1 mêsmp = DateSerial(year(dt),month(dt)+1,1) 'Para andar 1 mês '-------------------------'Montagem da Grade de Dias'-------------------------dim gr(42) 'Matriz dim li 'Linhas da Gradedim co 'Colunas da Gradedim ct 'Contador da Gradect = 1 dim lp 'Suporte aos Loops '-------------------------'Montagem dos Quadros Brancos'------------------------- for lp = 1 to weekday(pd)- 1gr(ct) = " "ct = ct + 1next '-------------------------'Lendo o Mês Atual'------------------------- for lp = pd to udif lp = date thengr(ct) = "<font color = blue>" & day(lp) & "</font>"elsegr(ct) = day(lp)end ifct = ct + 1next '-----------------------------'Montagem do Resto dos Quadros'----------------------------- for lp = ct to 42gr(lp) = " " 'Coloquei LP dentro do GR porque ele já'tem o valor de CT (que é a posição'do último dia + 1)next ct = 1%> <html><body><center><table border=1 cellspacing = 0><tr><td><a href= "calendario.asp?dt=<%=ma%>"><img src="direita.gif"></a></td><td colspan = 5 align = center><font face = "verdana" size = 3><b><%=Ucase(MonthName(month(dt),true))%>/<%=year(dt)%></b></font></td><td><a href = "calendario.asp?dt=<%=mp%>"><img src="esquerda.gif"></a></td></tr> <tr><td>DOM</td><td>SEG</td><td>TER</td><td>QUA</td><td>QUI</td><td>---</td><td>SAB</td></tr> <%for li = 1 to 6%><tr><%for co = 1 to 7%><td><%=gr(ct)%></td><%ct = ct + 1%><%next%> </tr><%next%> %>

colega,envia-me um email para ruicosta@inovador.net que eu envio-te um calendario a funcionar 100% com o codigo para adicionar eventos.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Buscopan    0

Buscopan
Postado

excelente ...eu também ia pedir o código ... obrigado por disponibilizar ...ah ... só uma informação ... no calendário descrito no post inicial ... as imagens estão trocadas. ... :-) ... a direita está no lado esquerdo e vice versa ...claro que isto não afeta o código ... mas é uma observação de leigo ...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito