test.asp

ASPTest 网络基础网页设计

<%
'定义一个函数，用来根据年份和月份求取该月天数
Function DayNum(intYear,intMonth)
  Dim dayArray
  dayArray = Array(31,28,31,30,31,30,31,31,30,31,30,31)
  If intMonth = 2 Then
    If intYear mod 4 = 0 Then
      DayNum = 29
    Else
      DayNum = 28
    End If
  Else
    DayNum = dayArray(intMonth-1)
  End If
End Function
Response.Write DayNum(2003,9)
%>