ASP 计算出指定年份生肖

Function Zodiac(ByVal s)

 If s > 0 Then

  Dim ZodiacList

  ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊")

  Zodiac = ZodiacList(s Mod 12)

 End If

End Function



'使用方法：

Response.Write Zodiac("2011")