birthday.asp

此文件为一个电子同学录

<%
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="水瓶座"
		else
			astro="魔羯座"
		end if
	case 2
		if birthday>=20 then
			astro="双鱼座"
		else
			astro="水瓶座"
		end if
	case 3
		if birthday>=21 then
			astro="白羊座"
		else
			astro="双鱼座"
		end if
	case 4
		if birthday>=21 then
			astro="金牛座"
		else
			astro="白羊座"
		end if
	case 5
		if birthday>=22 then
			astro="双子座"
		else
			astro="金牛座"
		end if
	case 6
		if birthday>=22 then
			astro="巨蟹座"
		else
			astro="双子座"
		end if
	case 7
		if birthday>=23 then
			astro="狮子座"
		else
			astro="巨蟹座"
		end if
	case 8
		if birthday>=24 then
			astro="处女座"
		else
			astro="狮子座"
		end if
	case 9
		if birthday>=24 then
			astro="天秤座"
		else
			astro="处女座"
		end if
	case 10
		if birthday>=24 then
			astro="天蝎座"
		else
			astro="天秤座"
		end if
	case 11
		if birthday>=23 then
			astro="射手座"
		else
			astro="天蝎座"
		end if
	case 12
		if birthday>=22 then
			astro="魔羯座"
		else
			astro="射手座"
		end if
	case else
		astro=""
	end select
end function
%>