Calendário em html

Started by Anonymous, 13 de September , 2007, 06:14:50 PM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

Anonymous

13 de September , 2007, 06:14:50 PM
Code Select
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">

<HTML>
 
  <HEAD>
    <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
    <TITLE>Calendário</TITLE>
  </HEAD>
 
  <BODY BGCOLOR="#FFFFFF" LINK="#FF0000" VLINK="#808080">

<SCRIPT LANGUAGE="VBScript">
<!--
Sub cmdReset_OnClick()
Dim dtToday
dtToday = Date()
Calendar1.Day = Day(dtToday)
Calendar1.Month = Month(dtToday)
Calendar1.Year = Year(dtToday)
End Sub
Sub window_onLoad()
Dim dtToday
dtToday = Date()
Calendar1.Day = Day(dtToday)
Calendar1.Month = Month(dtToday)
Calendar1.Year = Year(dtToday)
end sub
-->
</SCRIPT>
   
    <P ALIGN="center">
      <OBJECT ID="Calendar1" CLASSID="CLSID:8E27C92B-1264-101C-8A2F-040224009C02" CODEBASE="msacal70.ocx" ALIGN="baseline" BORDER="0" WIDTH="372" HEIGHT="279">
      <PARAM NAME="_Version" VALUE="458752">
      <PARAM NAME="_ExtentX" VALUE="9843">
      <PARAM NAME="_ExtentY" VALUE="7373">
      <PARAM NAME="_StockProps" VALUE="1">
      <PARAM NAME="BackColor" VALUE="16777215">
      <PARAM NAME="Year" VALUE="1996">
      <PARAM NAME="Month" VALUE="12">
      <PARAM NAME="Day" VALUE="1">
      <PARAM NAME="DayFontColor" VALUE="255">
      <PARAM NAME="GridFontColor" VALUE="255">
      <PARAM NAME="GridLinesColor" VALUE="0">
      <PARAM NAME="ShowDateSelectors" VALUE="0">
      <PARAM NAME="TitleFontColor" VALUE="0"> </OBJECT> </P>
   
    <P>  </P>
    <FORM>
   
    <P ALIGN="CENTER"><INPUT TYPE="BUTTON" NAME="Button1" VALUE="Reset" ONCLICK="window_onLoad()"></P>
    </FORM>
  </BODY>
</HTML>
O único problema é que o script precisa ser autorizado pelo visitante.




Depois de pronto ele fica assim:

[flash=250,250:hqncwsq9]http://i17.tinypic.com/4tsc1g5.jpg[/flash:hqncwsq9]

Bom proveito! ;)
Print
Go Up Pages1
User actions