以下是asp根据当前日期的年份计算出相应年份的属相，以上是演示效果


<%
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 "现在时间：" & curTime & "<br>"
response.write "年份：" & curYear & "<br>"
response.write "属相：" & ren_shuxiang(curYear) & "<br>"
response.end
%>