从BbsXp提出来的生肖函数Zodiac(birthday)。
使用方法：birthday为把要判断的出生时间，如2008-3-24 20:07:57或2008-3-24合法的日期就行。
如：
response.write Zodiac("1988-5")
输出地结果就是：
龙
<% Function Zodiac(birthday)
If IsDate(birthday) Then
birthyear = Year(birthday)
ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊")
Zodiac = ZodiacList(birthyear Mod 12)
End If
End Function
%>
If IsDate(birthday) Then
birthyear = Year(birthday)
ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊")
Zodiac = ZodiacList(birthyear Mod 12)
End If
End Function
%>
站长工具
相关文章
请稍等，评论加载中...