根據(jù)日期得到生肖的ASP函數(shù)
更新時間：2008年01月18日 14:37:46 作者：
最近公司開放網(wǎng)站需要用到根據(jù)用戶添加的出生日期得到生肖發(fā)現(xiàn)了這個函數(shù)。使用起來不錯
根據(jù)生日時間返回所屬生肖
<%
Function Zodiac(birthday)
If IsDate(birthday) Then
birthyear = Year(birthday)
ZodiacList = Array("猴", "雞", "狗", "豬", "鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊")
Zodiac = ZodiacList(birthyear Mod 12)
End If
End Function
%>
復制代碼 代碼如下:
<%
Function Zodiac(birthday)
If IsDate(birthday) Then
birthyear = Year(birthday)
ZodiacList = Array("猴", "雞", "狗", "豬", "鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊")
Zodiac = ZodiacList(birthyear Mod 12)
End If
End Function
%>
相關文章
XML（Extensible Markup Language）是一種基于文本格式的標記語言，它注重對數(shù)據(jù)結構和數(shù)據(jù)意義的描述，實現(xiàn)了數(shù)據(jù)內(nèi)容和顯示樣式的分離，而且是與平臺無關的。下面利用XML作為數(shù)據(jù)的載體，開發(fā)一個基于XML的留言板。2015-09-09
用正則表達式寫的HTML分離函數(shù)...2007-03-03
這篇文章主要介紹了asp限制域名訪問實現(xiàn)代碼,需要的朋友可以參考下2020-09-09
響應對象 錯誤 ''ASP 0185 : 80020003'' 缺少默認屬性
發(fā)現(xiàn)個垃圾后臺用了大量的Response.Cookies,導致后臺認證出錯。2007-12-12
asp按關鍵字查詢XML的問題2008-10-10
用asp實現(xiàn)網(wǎng)址和郵件地址的轉換函數(shù)
用asp實現(xiàn)網(wǎng)址和郵件地址的轉換函數(shù)...2007-11-11
A利用ASP小偷和Google實現(xiàn)在線翻譯功能的代碼
A利用ASP小偷和Google實現(xiàn)在線翻譯功能的代碼...2007-11-11
Microsoft JET Database Engine(0x80004005)未指定錯誤的解決方法
今天在配置iis asp運行環(huán)境的時候提示Microsoft JET Database Engine(0x80004005)未指定錯誤，不過最后通過如下方法解決了，這里腳本之家小編特為大家分享下，方便需要的朋友2014-06-06
ASP checkbox復選框是否被選中的代碼(結合數(shù)據(jù)庫)
ASP從數(shù)據(jù)庫中讀出復選框是否被選中的代碼2010-06-06
利用asp+xml實現(xiàn)代碼管理，實際就是利用asp操作xml2008-12-12