根据生日时间返回所属生肖复制代码代码如下:<% FunctionZodiac(birthday) IfIsDate(birthday)Then birthyear=Year(birthday) ZodiacList=Array("猴","鸡","狗","猪","鼠","牛","虎","兔","龙","蛇","马","羊") Zodiac=ZodiacList(birthyearMod12) EndIf EndFunction %>