<%'**************************************************
'过程名：astro
'作  用：显示星座及图标等信息
'参  数：birth  ----生日
'**************************************************
Public 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=Skins/Default/birth/z11.gif alt=水瓶座"&birth&">"
		else
			astro="<img src=Skins/Default/birth/z10.gif alt=魔羯座"&birth&">"
		end if
	case 2
		if birthday>=20 then
			astro="<img src=Skins/Default/birth/z12.gif alt=双鱼座"&birth&">"
		else
			astro="<img src=Skins/Default/birth/z11.gif alt=水瓶座"&birth&">"
		end if
	case 3
		if birthday>=21 then
			astro="<img src=Skins/Default/birth/z1.gif alt=白羊座"&birth&">"
		else
			astro="<img src=Skins/Default/birth/z12.gif alt=双鱼座"&birth&">"
		end if
	case 4
		if birthday>=21 then
			astro="<img src=Skins/Default/birth/z2.gif alt=金牛座"&birth&">"
		else
			astro="<img src=Skins/Default/birth/z1.gif alt=白羊座"&birth&">"
		end if
	case 5
		if birthday>=22 then
			astro="<img src=Skins/Default/birth/z3.gif alt=双子座"&birth&">"
		else
			astro="<img src=Skins/Default/birth/z2.gif alt=金牛座"&birth&">"
		end if
	case 6
		if birthday>=22 then
			astro="<img src=Skins/Default/birth/z4.gif alt=巨蟹座"&birth&">"
		else
			astro="<img src=Skins/Default/birth/z3.gif alt=双子座"&birth&">"
		end if
	case 7
		if birthday>=23 then
			astro="<img src=Skins/Default/birth/z5.gif alt=狮子座"&birth&">"
		else
			astro="<img src=Skins/Default/birth/z4.gif alt=巨蟹座"&birth&">"
		end if
	case 8
		if birthday>=24 then
			astro="<img src=Skins/Default/birth/z6.gif alt=处女座"&birth&">"
		else
			astro="<img src=Skins/Default/birth/z5.gif alt=狮子座"&birth&">"
		end if
	case 9
		if birthday>=24 then
			astro="<img src=Skins/Default/birth/z7.gif alt=天秤座"&birth&">"
		else
			astro="<img src=Skins/Default/birth/z6.gif alt=处女座"&birth&">"
		end if
	case 10
		if birthday>=24 then
			astro="<img src=Skins/Default/birth/z8.gif alt=天蝎座"&birth&">"
		else
			astro="<img src=Skins/Default/birth/z7.gif alt=天秤座"&birth&">"
		end if
	case 11
		if birthday>=23 then
			astro="<img src=Skins/Default/birth/z9.gif alt=射手座"&birth&">"
		else
			astro="<img src=Skins/Default/birth/z8.gif alt=天蝎座"&birth&">"
		end if
	case 12
		if birthday>=22 then
			astro="<img src=Skins/Default/birth/z10.gif alt=魔羯座"&birth&">"
		else
			astro="<img src=Skins/Default/birth/z9.gif alt=射手座"&birth&">"
		end if
	case else
		astro=""
	end select
end function

Public function iiif(express,expression,returntrue,returnfalse)
	if express>expression then
		iiif=returnfalse
	else
		iiif=returntrue
	end if
end function
	Public function iimg(expression,returnfalse,returntrue)
	if expression="" or expression=null then
		iimg=returnfalse
	else
		iimg=returntrue
	end if
end function
Public function iif(expression,returntrue,returnfalse)
	if expression=0 then
		iif=returnfalse
	else
		iif=returntrue
	end if
end function
Public function iifV(expression)
	if expression<=1 then
		iifV="<img src=Skins/Default/messages1.gif align=absmiddle>&nbsp;<font color=blue>普通会员</font>"
	elseif expression=2 then
		iifV="<img src=Skins/Default/vip.gif align=absmiddle>&nbsp;<font color=red>铜级VIP</font>"
	elseif  expression=3 then
		iifV="<img src=Skins/Default/vip.gif align=absmiddle>&nbsp;<font color=red>白银VIP</font>"
	elseif  expression=4 then
		iifV="<img src=Skins/Default/vip.gif align=absmiddle>&nbsp;<font color=red>黄金VIP</font>"
	elseif  expression=5 then
		iifV="<img src=Skins/Default/vip.gif align=absmiddle>&nbsp;<font color=red>水晶VIP</font>"		
	end if
end function
%>