根據(jù)日期得到生肖的ASP函數(shù)
更新時(shí)間:2008年01月18日 14:37:46 作者:
最近公司開放網(wǎng)站需要用到根據(jù)用戶添加的出生日期得到生肖發(fā)現(xiàn)了這個(gè)函數(shù)。使用起來(lái)不錯(cuò)
根據(jù)生日時(shí)間返回所屬生肖
<%
Function Zodiac(birthday)
If IsDate(birthday) Then
birthyear = Year(birthday)
ZodiacList = Array("猴", "雞", "狗", "豬", "鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊")
Zodiac = ZodiacList(birthyear Mod 12)
End If
End Function
%>
復(fù)制代碼 代碼如下:
<%
Function Zodiac(birthday)
If IsDate(birthday) Then
birthyear = Year(birthday)
ZodiacList = Array("猴", "雞", "狗", "豬", "鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊")
Zodiac = ZodiacList(birthyear Mod 12)
End If
End Function
%>
相關(guān)文章
響應(yīng)對(duì)象 錯(cuò)誤 ''ASP 0185 : 80020003'' 缺少默認(rèn)屬性
發(fā)現(xiàn)個(gè)垃圾后臺(tái)用了大量的Response.Cookies,導(dǎo)致后臺(tái)認(rèn)證出錯(cuò)。2007-12-12
用asp實(shí)現(xiàn)網(wǎng)址和郵件地址的轉(zhuǎn)換函數(shù)
用asp實(shí)現(xiàn)網(wǎng)址和郵件地址的轉(zhuǎn)換函數(shù)...2007-11-11
A利用ASP小偷和Google實(shí)現(xiàn)在線翻譯功能的代碼
A利用ASP小偷和Google實(shí)現(xiàn)在線翻譯功能的代碼...2007-11-11
Microsoft JET Database Engine(0x80004005)未指定錯(cuò)誤的解決方法
今天在配置iis asp運(yùn)行環(huán)境的時(shí)候提示Microsoft JET Database Engine(0x80004005)未指定錯(cuò)誤,不過(guò)最后通過(guò)如下方法解決了,這里腳本之家小編特為大家分享下,方便需要的朋友2014-06-06
ASP checkbox復(fù)選框是否被選中的代碼(結(jié)合數(shù)據(jù)庫(kù))
ASP從數(shù)據(jù)庫(kù)中讀出復(fù)選框是否被選中的代碼2010-06-06

