ASP根据生日获取星座函数

ASP写一个与时间相关的小函数,用来根据生日计算星座,你可以按指定格式输入一个包含年、月、日的时间字符串后,通过本函数可返回星座信息。

ASP根据生日获取星座函数代码

function constellation(month1,day2)

'if IsDate(birthday) then

Constellatith1

Constellati2

if Len(ConstellationMon)<2 then ConstellationMon="0"&ConstellationMon

if Len(ConstellationDay)<2 then ConstellationDay="0"&ConstellationDay

MyConstellation=ConstellationMon&ConstellationDay

if MyConstellation < 0120 then

constellation="魔羯座&nbsp;<img src=../images/Constellation/g.gif title='魔羯座 Capricorn'>"

elseif MyConstellation < 0219 then

constellation="水瓶座&nbsp;<img src=../images/Constellation/h.gif title='水瓶座 Aquarius'>"

elseif MyConstellation < 0321 then

constellation="双鱼座&nbsp;<img src=../images/Constellation/i.gif title='双鱼座 Pisces'>"

elseif MyConstellation < 0420 then

constellation="白羊座&nbsp;<img src=../images/Constellation/^.gif title='白羊座 Aries'>"

elseif MyConstellation < 0521 then

constellation="金牛座&nbsp;<img src=../images/Constellation/_.gif title='金牛座 Taurus'>"

elseif MyConstellation < 0622 then

constellation="双子座&nbsp;<img src=../images/Constellation/`.gif title='双子座 gemini'>"

elseif MyConstellation < 0723 then

constellation="巨蟹座&nbsp;<img src=../images/Constellation/a.gif title='巨蟹座 Cancer'>"

elseif MyConstellation < 0823 then

constellation="狮子座&nbsp;<img src=../images/Constellation/b.gif title='狮子座 Leo'>"

elseif MyConstellation < 0923 then

constellation="处女座&nbsp;<img src=../images/Constellation/c.gif title='处女座 Virgo'>"

elseif MyConstellation < 1024 then

constellation="天秤座&nbsp;<img src=../images/Constellation/d.gif title='天秤座 Libra'>"

elseif MyConstellation < 1122 then

constellation="天蝎座&nbsp;<img src=../images/Constellation/e.gif title='天蝎座 Scorpio'>"

elseif MyConstellation < 1222 then

constellation="射手座&nbsp;<img src=../images/Constellation/f.gif title='射手座 Sagittarius'>"

elseif MyConstellation > 1221 then

constellation="魔羯座&nbsp;<img src=../images/Constellation/g.gif title='魔羯座 Capricorn'>"

end if

' end if

end function

函数用法示例,以上面的生日时间为测试数据,调用函数如下:<%=Constellation("2016-11-22")%>,函数内将输出“星座”和一张代表星座的图片

相关文章

数组的定义 Dim MyArray MyArray = Array(1‚5‚123‚12‚98...
\'参数: \'code:要检测的代码 \'leixing:html或者ubb \'n...
演示效果: 代码下载: 点击下载
环境:winxp sp2 ,mysql5.0.18,mysql odbc 3.51 driver 表采...
其实说起AJAX的初级应用是非常简单的,通俗的说就是客户端(j...
<% ’判断文件名是否合法 Function isFilename(aFilename...