birthday.asp

来自「论坛源码」· ASP 代码 · 共 84 行

<%
function astro(birth)
	on error resume next
	dim birthday,birthmonth
	birthday=day(birth)
	birthmonth=month(birth)
	select case birthmonth
	case 1
		if birthday>=21 then
			astro="<img src=star/z11.gif alt=水瓶座"&birth&">"
		else
			astro="<img src=star/z10.gif alt=魔羯座"&birth&">"
		end if
	case 2
		if birthday>=20 then
			astro="<img src=star/z12.gif alt=双鱼座"&birth&">"
		else
			astro="<img src=star/z11.gif alt=水瓶座"&birth&">"
		end if
	case 3
		if birthday>=21 then
			astro="<img src=star/z1.gif alt=白羊座"&birth&">"
		else
			astro="<img src=star/z12.gif alt=双鱼座"&birth&">"
		end if
	case 4
		if birthday>=21 then
			astro="<img src=star/z2.gif alt=金牛座"&birth&">"
		else
			astro="<img src=star/z1.gif alt=白羊座"&birth&">"
		end if
	case 5
		if birthday>=22 then
			astro="<img src=star/z3.gif alt=双子座"&birth&">"
		else
			astro="<img src=star/z2.gif alt=金牛座"&birth&">"
		end if
	case 6
		if birthday>=22 then
			astro="<img src=star/z4.gif alt=巨蟹座"&birth&">"
		else
			astro="<img src=star/z3.gif alt=双子座"&birth&">"
		end if
	case 7
		if birthday>=23 then
			astro="<img src=star/z5.gif alt=狮子座"&birth&">"
		else
			astro="<img src=star/z4.gif alt=巨蟹座"&birth&">"
		end if
	case 8
		if birthday>=24 then
			astro="<img src=star/z6.gif alt=处女座"&birth&">"
		else
			astro="<img src=star/z5.gif alt=狮子座"&birth&">"
		end if
	case 9
		if birthday>=24 then
			astro="<img src=star/z7.gif alt=天秤座"&birth&">"
		else
			astro="<img src=star/z6.gif alt=处女座"&birth&">"
		end if
	case 10
		if birthday>=24 then
			astro="<img src=star/z8.gif alt=天蝎座"&birth&">"
		else
			astro="<img src=star/z7.gif alt=天秤座"&birth&">"
		end if
	case 11
		if birthday>=23 then
			astro="<img src=star/z9.gif alt=射手座"&birth&">"
		else
			astro="<img src=star/z8.gif alt=天蝎座"&birth&">"
		end if
	case 12
		if birthday>=22 then
			astro="<img src=star/z10.gif alt=魔羯座"&birth&">"
		else
			astro="<img src=star/z9.gif alt=射手座"&birth&">"
		end if
	case else
		astro=""
	end select
end function
%>