📄 date_word.htm

📁 VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可以用在很多地方,尤其在DHTML中!

💻 HTM

字号:

<html><head><title>日期显示</title></head><body bgcolor="#C0C0C0"><p><br><script LANGUAGE="VBScript"> document.write "<center><table border=2><tr><th bgcolor=red colspan=7>" document.write "<font color=white>显示当前系统日期</font></th></tr>" document.write "<tr><td colspan=7 align=right bgcolor=navy>" document.write "<font color=white>当前日期:" + cstr(date) + "" document.write "</font></td></tr>" document.write "<tr>" document.write "<td><font color=red>星期日</font></td>" document.write "<td><font color=blue>星期一</font></td>" document.write "<td><font color=blue>星期二</font></td>" document.write "<td><font color=blue>星期三</font></td>" document.write "<td><font color=blue>星期四</font></td>" document.write "<td><font color=blue>星期五</font></td>"  document.write "<td><font color=green>星期六</font></td>" document.write "</tr>" MyYear = year(date) '获得当前的年份 MyMonth = month(date)'获得当前的月份 '获得下月的第一天的日期 MyNext = DateAdd ("m" , 1, CStr(MyYear) + "/" + CStr(MyMonth) + "/1") '获得当月最大的日期 MyDays = MyNext - CDate(CStr(MyYear) + "/" + CStr(MyMonth) + "/1") 'msgbox CStr(MyYear) & "--" & cstr(MyMonth) & "--" & cstr(MyNext) & cstr(mydays) & "--" & cstr(WeekDay(CStr(MyYear) + "/" + CStr(MyMonth) + "/1")) 'msgbox CStr(MyYear) + "/" + CStr(MyMonth) + "/1" '获得当月第一天的周号 MYWeek=WeekDay(CStr(MyYear) + "/" + CStr(MyMonth) + "/1") Select Case MYWeek  Case 1   document.write "<tr><td align=right><font color=red>1</font></td>"  Case 2   document.write "<tr><td></td><td align=right>1</td>"  Case 3   document.write "<tr><td></td><td></td><td align=right>1</td>"  Case 4   document.write "<tr><td></td><td></td><td></td><td align=right>1</td>"  Case 5   document.write "<tr><td></td><td></td><td></td><td></td><td align=right>1</td>"  Case 6   document.write "<tr><td></td><td></td><td></td><td></td><td></td><td align=right>1</td>"  Case 7   document.write "<tr><td></td><td></td><td></td><td></td><td></td><td></td><td align=right>"   document.write "<font color=green>1</font></td></tr>" End Select For D = 2 To MyDays  Select Case WeekDay(CStr(MyYear) + "/" + CStr(MyMonth) + "/" + Cstr(D))   Case 1    document.write "<tr><td align=right><font color=red>" + CStr(D) +"</font></td>"   Case 2,3,4,5,6    document.write "<td align=right>" +CStr(D) + "</td>"   Case 7    document.write "<td align=right><font color=green>" +CStr(D) + "</font></td></tr>"  End Select Next document.write "</table></center>"</script> </p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -