asp根据出生时间判断生肖

 

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

 

ASP调用方法：<%=Zodiac("1986-02-16")%>

转载于:https://www.cnblogs.com/leevane/archive/2008/10/13/1310250.html