Ir para conteúdo

POWERED BY:

Arquivado

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

JucaMaster

Calendário online

Por , em ASP Clássico

Recommended Posts

JucaMaster    0

JucaMaster
Postado

Ae ASPers de plantão: Este código é para gerar um calendário em suas páginas ASP!'============================================================================<%<%Option Explicit'EM TODOS OS PROGRAMAS'COLOCAR ESTE COMANDO,'POIS FICA MAIS FÁCIL 'ACHAR UM ERROSession.LCID = 1046'Deixa tudo no formato brasileiro%><html><body><%dim dt 'Variável que controla a Dataif request("dt") = empty then dt = NOW() 'Traz data e hora else dt = request("dt")end ifdim pd 'Variável do primeiro diadim ud 'Variável do último diapd = DateSerial(year(dt),month(dt),1)ud = DateSerial(year(dt),month(dt)+1,1)-1dim 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) 'Matrizdim li 'Linhas da Gradedim co 'Colunas da Gradedim ct 'Contador da Gradect = 1dim lp 'Suporte aos Loops'-------------------------'Montagem dos Quadros Brancos'-------------------------for lp = 1 to weekday(pd)- 1 gr(ct) = " " ct = ct + 1next'-------------------------'Lendo o Mês Atual'-------------------------for lp = pd to ud if lp = date then gr(ct) = "<font color = red>" & day(lp) & "</font>" else gr(ct) = day(lp) end if ct = ct + 1next'-----------------------------'Montagem do Resto dos Quadros'-----------------------------for lp = ct to 42 gr(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= "cal.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 = "cal.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%>%>Façam bom aproveito hein!!! Falow

Compartilhar este post

Link para o post
Compartilhar em outros sites

JucaMaster    0

JucaMaster
Postado

este código que um galhão, acho que vai ser bastante utilizado com o novo desafio da agenda pessoal. hwehehehe

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