<% option explicit %> 
<html>
<head>
 <title>select case 语句示例1</title>
</head>
<body>
<%
dim m,y,d
 m=month(date())
 y=year(date())
 select case m  '以m作为比较对象
   case 1,3,5,7,8,10,12
    d=31
   case 2 
   if (y mod 4=0 and y mod 100<>0 )or y mod 400=0 then 
    d=29
   else
    d=28
   end if    
   case else 
    d=30
 end select
 response.write "现在是"&y&"年"&m&"月"&"，本月共有" & d & "天。"
%>
</body>
</html>
