日期:2014-05-04  浏览次数:21166 次

根据生日时间返回所属生肖,ASP源码如下:

以下是代码片段:
<% 
Function Zodiac(birthday) 
If IsDate(birthday) Then 
birthyear = Year(birthday) 
ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊") 
Zodiac = ZodiacList(birthyear Mod 12) 
End If 
End Function 
%>