以下是asp根據(jù)當前日期的年份計算出相應年份的屬相，以上是演示效果
<%
curTime = Now()
curYear = Year(curTime)
function ren_shuxiang(s_year)
sx_year = (((curYear - 4) Mod 60) Mod 12)
select case sx_year
case 0: sx_show="鼠"
case 1: sx_show="牛"
case 2: sx_show="虎"
case 3: sx_show="兔"
case 4: sx_show="龍"
case 5: sx_show="蛇"
case 6: sx_show="馬"
case 7: sx_show="羊"
case 8: sx_show="猴"
case 9: sx_show="雞"
case 10:sx_show="狗"
case 11:sx_show="豬"
end select
ren_shuxiang = sx_show
end function
response.write "現(xiàn)在時間：" & curTime & "<br>"
response.write "年份：" & curYear & "<br>"
response.write "屬相：" & ren_shuxiang(curYear) & "<br>"
response.end
%>
蘇公網(wǎng)安備 32070502010230號