<%
if xing<>"" then
%>
<%
'获取月日信息
dim tempstar
tempstar=yue1
if len(ri1)=1 then
ri1="0"&ri1
end if
tempstar=tempstar&ri1
%>
<%
'获取星座信息函数
function getstar(num)
dim tempnum,result
tempnum=int(num)
result=""
if tempnum>=120 and tempnum<=218 then
result="水瓶座"
elseif tempnum>=219 and tempnum<=320 then
result="双鱼座"
elseif tempnum>=321 and tempnum<=419 then
result="白羊座"
elseif tempnum>=420 and tempnum<=520 then
result="金牛座"
elseif tempnum>=521 and tempnum<=621 then
result="双子座"
elseif tempnum>=622 and tempnum<=722 then
result="巨蟹座"
elseif tempnum>=723 and tempnum<=822 then
result="狮子座"
elseif tempnum>=823 and tempnum<=922 then
result="处女座"
elseif tempnum>=923 and tempnum<=1022 then
result="天秤座"
elseif tempnum>=1023 and tempnum<=1121 then
result="天蝎座"
elseif tempnum>=1122 and tempnum<=1221 then
result="射手座"
else
result="摩羯座"
end if
getstar=result
end function
%>
<%
on error resume next
'星座宝贝
dim xingzuo,sqlstar,starcontent
xingzuo=getstar(tempstar)
sqlstar="select content from xingzuo where title='"&xingzuo&"'"
set rsstar=conn.execute(sqlstar)
if not (rsstar.bof and rsstar.eof) then
starcontent=rsstar("content")
end if
%>
<%
'输出
If Err Then
response.Write "星座宝贝查询内容出错!"
err.Clear
Response.End
End If
%>