日历

private sub myRQ
 response.write "<table border=1 width=100 height=130  bgcolor=rgb(145,190,196) align=right cellspacing = 0>"
 response.write "<tr><td align=center>"
 response.write "<font id=C1 style=font-size:14pt>&nbsp;</font></br>"
 response.write "<font id=C2 style=font-size:14pt;color=rgb(200,10,10)>&nbsp;</font></br>"
 response.write "<font id=C3 style=font-size:12pt>&nbsp;</font></br>"
 response.write "<p style=font-size=13><a href=http://www.yahoo.com.cn>雅虎主页</a></p>"
 response.write "</td></tr></table>"
%>
<script language="vbscript">
 '-----------------------------------------
 private function YM() '年月
  YM= Year(date) & "年" & Month(date) & "月" & day(date) & "日"
 end function
 '-----------------------------------------
 private function HMS() '时分秒
  HMS=Hour(Now)
  dim mm
  dim ss
  mm=Minute(Now)
  ss=Second(Now)
  if mm < 10 then mm = "0" & mm
  if ss < 10 then ss = "0" & ss
  HMS = HMS & ":" & mm & ":" & ss
 end function
 '-------------------------------------------
 private function WW() '星期
  Dim w
  w=Weekday(date)
  WW=WeekDayName(w,true)
 end function
 '------------------------------------------
 private sub myDt() '刷新时间
  C1.innerHTML = YM()
  C2.innerHTML = WW()
  C3.innerHTML = HMS()
 end sub
 '------------------------------------------
 call myDt
 window.setInterval "myDt", "1000" ,"vbs"
</SCRIPT>
<%
end sub
'============================================================