关闭

日历

标签: 日历functionvbscriptdatebordertable
622人阅读 评论(0) 收藏 举报
分类:
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
'============================================================
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:23181次
    • 积分:433
    • 等级:
    • 排名:千里之外
    • 原创:18篇
    • 转载:2篇
    • 译文:0篇
    • 评论:3条
    文章分类
    最新评论