<%   
Function Zodiac(birthday)   
If IsDate(birthday) Then   
birthyear = Year(birthday)   
ZodiacList = Array("猴", "雞", "狗", "豬", "鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊")   
Zodiac = ZodiacList(birthyear Mod 12)   
End If   
End Function   
%>

相關(guān)文章

asp下過(guò)濾非法的SQL字符的函數(shù)代碼
過(guò)濾非法的SQL字符，防止sql注入等。里面的體會(huì)思路主要運(yùn)用了批量替換，是個(gè)不錯(cuò)的思路。
2010-05-05
支持加號(hào)空格的查詢(xún)
支持加號(hào)空格的查詢(xún)...
2006-08-08
ASP 相關(guān)文章或者相關(guān)產(chǎn)品
以下僅提供相關(guān)思路和關(guān)鍵代碼，并且只提供一種最簡(jiǎn)單的算法實(shí)現(xiàn)，稍復(fù)雜的本文不做介紹。
2009-05-05
ASP下通過(guò)Adodb.Stream實(shí)現(xiàn)多線(xiàn)程下載大文件
這篇文章主要介紹了ASP下通過(guò)Adodb.Stream實(shí)現(xiàn)多線(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)頁(yè)時(shí)溢出: ''CInt''
TSYS中生成靜態(tài)頁(yè)時(shí)溢出: ''CInt''...
2007-01-01
kesion科訊V4.0管理員Key工具
kesion科訊V4.0管理員Key工具...
2007-08-08
用asp實(shí)現(xiàn)把文件打包成Xml文件包，帶解包的ASP工具附下載
用asp實(shí)現(xiàn)把文件打包成Xml文件包，帶解包的ASP工具附下載...
2007-06-06
asp獲取當(dāng)前網(wǎng)頁(yè)地址的代碼
2008-01-01