asp根据出生时间判断生肖

从BbsXp提出来的生肖函数Zodiac(birthday)。

使用方法：birthday为把要判断的出生时间，如2008-3-24 20:07:57或2008-3-24合法的日期就行。

如：

response.write Zodiac("1988-5")  

 输出地结果就是：

龙

<％ Function Zodiac(birthday) 
If IsDate(birthday) Then 
birthyear = Year(birthday) 
ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊") 
Zodiac = ZodiacList(birthyear Mod 12) 
End If 
End Function 
％>