⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 year_button.htm

📁 VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可以用在很多地方,尤其在DHTML中!
💻 HTM
字号:
🔍 
<HTML>
<HEAD>
<TITLE>年  历</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub JANUARY_onClick()
	DisplayMonth(1)
End Sub

Sub FEBRUARY_onClick()
	DisplayMonth(2)
End Sub

Sub MARCH_onClick()
	DisplayMonth(3)
End Sub

Sub APRIL_onClick()
	DisplayMonth(4)
End Sub

Sub MAY_onClick()
	DisplayMonth(5)
End Sub

Sub JUNE_onClick()
	DisplayMonth(6)
End Sub

Sub JULY_onClick()
	DisplayMonth(7)
End Sub

Sub AUGUST_onClick()
	DisplayMonth(8)
End Sub

Sub SEPTEMBER_onClick()
	DisplayMonth(9)
End Sub

Sub OCTOBER_onClick()
	DisplayMonth(10)
End Sub

Sub NOVEMBER_onClick()
	DisplayMonth(11)
End Sub

Sub DECEMBER_onClick()
	DisplayMonth(12)
End Sub


Sub DisplayMonth(imonth)
dim MonthName(12)
MonthName(1)="一月"
MonthName(2)="二月"
MonthName(3)="三月"
MonthName(4)="四月"
MonthName(5)="五月"
MonthName(6)="六月"
MonthName(7)="七月"
MonthName(8)="八月"
MonthName(9)="九月"
MonthName(10)="十月"
MonthName(11)="十一月"
MonthName(12)="十二月"

document.clear
document.write "<CENTER>"
document.write "<FONT FACE='Verdana' SIZE=5>"
document.write MonthName(imonth) & " " & Year(date)
document.write "<P>"
document.write "<TABLE CELLPADDING=10 BORDER><TR>"
document.write "<TD><B>星期日<TD><B>一<TD><B>二<TD><B>三<TD><B>四<TD><B>五<TD><B>六"
document.write "<TR>"
	firstdate=DateSerial(year(date), imonth, 1)
	thisdate=firstdate
	nextday=1
	For cday=1 to 7
		If WeekDay(thisdate)>cday Then
			document.write "<TD></TD>"
		else
			document.write "<TD ALIGN=CENTER><FONT SIZE=3>" & nextday & "</TD>"
			nextday=nextday+1
			thisdate=DateSerial(year(date), imonth, nextday)
		End If
	Next 
	document.write "<TR>"
	weekDays=1
	while month(thisdate)=imonth
		document.write "<TD ALIGN=CENTER><FONT SIZE=3>" & nextday & "</TD>"
		nextday=nextday+1
		weekDays=weekDays+1
		If weekDays>7 then
			WeekDays=1
			document.write "<TR>"
		End If
		thisdate=DateSerial(year(date), imonth, nextday)
	wend
document.write "</TABLE>"
'document.write "<a href=year_button.htm >【返回】</a>"
document.write "</CENTER>"

document.close
End Sub

-->
</SCRIPT>

</HEAD>
<BODY>
<CENTER>
<H1>年历</H1>
点击年历中的月份可以查看当月日历
<P>
　
<FONT FACE="Verdana" SIZE=6>
<FONT FACE="Comic Sans MS">
<TABLE CELLPADDING=10 BORDER>
<TR>
<COLGROUP>
<COL ALIGN=CENTER>
<COL ALIGN=CENTER>
<COL ALIGN=CENTER>

<TD>
<FONT SIZE=6>
<INPUT TYPE=BUTTON NAME="January" VALUE="一月">
  </FONT>
<TD>
<FONT SIZE=6>
<INPUT TYPE=BUTTON NAME="February" VALUE="二月">
  </FONT>
<TD>
<FONT SIZE=6>
<INPUT TYPE=BUTTON NAME="March" VALUE="三月">
  </FONT>
<TR>
<TD>
<FONT SIZE=6>
<INPUT TYPE=BUTTON NAME="April" VALUE="四月">
  </FONT>
<TD>
<FONT SIZE=6>
<INPUT TYPE=BUTTON NAME="May" VALUE="五月">
  </FONT>
<TD>
<FONT SIZE=6>
<INPUT TYPE=BUTTON NAME="June" VALUE="六月">
  </FONT>
<TR>
<TD>
<FONT SIZE=6>
<INPUT TYPE=BUTTON NAME="July" VALUE="七月">
  </FONT>
<TD>
<FONT SIZE=6>
<INPUT TYPE=BUTTON NAME="August" VALUE="八月">
  </FONT>
<TD>
<FONT SIZE=6>
<INPUT TYPE=BUTTON NAME="September" VALUE="九月">
  </FONT>
<TR>
<TD>
<FONT SIZE=6>
<INPUT TYPE=BUTTON NAME="October" VALUE="十月">
  </FONT>
<TD>
<FONT SIZE=6>
<INPUT TYPE=BUTTON NAME="November" VALUE="十一月">
  </FONT>
<TD>
<FONT SIZE=6>
<INPUT TYPE=BUTTON NAME="December" VALUE="十二月">
  </FONT>
</TABLE>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -