日历

来源：互联网发布：网络舆情监测专业工资编辑：程序博客网时间：2024/05/01 11:18

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> </font></br>"
response.write "<font id=C2 style=font-size:14pt;color=rgb(200,10,10)> </font></br>"
response.write "<font id=C3 style=font-size:12pt> </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
'============================================================