闰年的判别

<%

if Request.Form("cal")="y" then

n=Cint(Request.form("me"))

if ((n mod 4=0) and (n mod 100<>0)) or (n mod 400=0) then

Response.Write n & "是闰年！
"

else

Response.Write n&"不是闰年。
"

end if

end if

%>