根据日期得到生肖的ASP函数

根据生日时间返回所属生肖
复制代码代码如下:
<%
Function Zodiac（birthday）
If IsDate（birthday） Then
birthyear = Year（birthday）
ZodiacList = Array（"猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊"）
Zodiac = ZodiacList（birthyear Mod 12）
End If
End Function
%>