今天在网上看到一个利用出生日期来判断生肖的ASP函数，觉得不错，拿来做个备忘。
程序比较简单，首先把十二生肖设定在一个排序数组中，然后将有效的出生年份除以12取余，最后在生肖数组中找到余数对应的生肖即可，相关代码如下所示：
<%
Function Zodiac(birthday)
If IsDate(birthday) Then '判断出生日期是否是有效的日期格式
birthyear = Year(birthday) '取得出生日期中的年份
ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊") '创建生肖数组
Zodiac = ZodiacList(birthyear Mod 12) '出生年份除以12取余，并在生肖数组中找到对应的值
End If
End Function
response.write Zodiac("2009-04-08") '输出2009-04-08出生人的生肖
%>