根據生日時間返回所屬生肖複製代碼代碼如下: <% FunctionZodiac(birthday) IfIsDate(birthday)Then birthyear=Year(birthday) ZodiacList=Array("猴","雞","狗","豬","鼠","牛","虎","兔","龍","蛇","馬","羊") Zodiac=ZodiacList(birthyearMod12) EndIf EndFunction %>