根據(jù)日期得到生肖的ASP函數(shù)
更新時(shí)間：2008年01月18日 14:37:46 作者：
最近公司開放網(wǎng)站需要用到根據(jù)用戶添加的出生日期得到生肖發(fā)現(xiàn)了這個(gè)函數(shù)。使用起來不錯(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)文章
過濾非法的SQL字符，防止sql注入等。里面的體會(huì)思路主要運(yùn)用了批量替換，是個(gè)不錯(cuò)的思路。2010-05-05
支持加號(hào)空格的查詢...2006-08-08
ASP 相關(guān)文章或者相關(guān)產(chǎn)品
以下僅提供相關(guān)思路和關(guān)鍵代碼，并且只提供一種最簡(jiǎn)單的算法實(shí)現(xiàn)，稍復(fù)雜的本文不做介紹。2009-05-05
ASP下通過Adodb.Stream實(shí)現(xiàn)多線程下載大文件
這篇文章主要介紹了ASP下通過Adodb.Stream實(shí)現(xiàn)多線程下載大文件,需要的朋友可以參考下2020-08-08
Highlight patterns within strings
Highlight patterns within strings...2007-04-04
隨機(jī)調(diào)用n條數(shù)據(jù)的方法分析
隨機(jī)調(diào)用n條數(shù)據(jù)的方法分析...2007-07-07
TSYS中生成靜態(tài)頁時(shí)溢出: ''CInt''
TSYS中生成靜態(tài)頁時(shí)溢出: ''CInt''...2007-01-01
kesion科訊V4.0管理員Key工具...2007-08-08
用asp實(shí)現(xiàn)把文件打包成Xml文件包，帶解包的ASP工具附下載
用asp實(shí)現(xiàn)把文件打包成Xml文件包，帶解包的ASP工具附下載...2007-06-06
2008-01-01