闰年判别
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
%>
输入年份:
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10294527/viewspace-124652/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10294527/viewspace-124652/