功能非常全面的日期处理函数

核心提示：<script language=javascript>function fnSubmit(strPage){document.forms[0].action= strPagedocument.forms[0].submit()}</script><%call writedropdowns

<script language=javascript>
function fnSubmit(strPage)
{
　document.forms[0].action= strPage
　document.forms[0].submit()　　
}

</script>
<%

call writedropdowns

Sub writeDropDowns()
　Dim strSelfLink
　strSelfLink = request.servervariables("SCRIPT_NAME")
　response.Write "<form name=dates method=post>" & vbcrlf
　response.Write MonthDropDown("month1",False,request("month1"),strSelfLink) & " " & DayDropDown("day1", "",getDaysInMonth(request("month1"),request("year1")),request("day1")) & " " & YearDropDown("year1","","", request("year1"),strSelfLink) & vbcrlf
　response.Write "</form>"　　& vbcrlf
End Sub
　　　　

Function MonthDropDown(strName, blnNum, strSelected, strSelfLink)
　Dim strTemp, i, strSelectedString　　　　　　
　strTemp = "<select name='" & strName& "' Case Else:
　　End Select
　　　　
　　getDaysInMonth = strDays
End Function　　
%>