日期: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 %> |