根據日期得到生肖的ASP函數

根據生日時間返回所屬生肖
復制代碼 代碼如下:
<%  
Function Zodiac(birthday)  
If IsDate(birthday) Then  
birthyear = Year(birthday)  
ZodiacList = Array("猴", "雞", "狗", "豬", "鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊")  
Zodiac = ZodiacList(birthyear Mod 12)  
End If  
End Function  
%>