<!--#include file="conn.asp"-->
<!--#include file="inc/getuc.asp"-->
<html>
<head>
<title>星座算命,星座,星座测试,星座运程,星座测算,星座宝贝,星座命运---便民查询网-www.99fad.cn</title>
<META name=keywords content="星座算命,星座,星座测试,星座运程,星座测算,星座宝贝,星座命运">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
<!--
BODY{
scrollbar-face-color: #d4d0c8;
scrollbar-highlight-color:#D4D0C8 ;
scrollbar-shadow-color:#d6d6d6 ;
scrollbar-3dlight-color:#e6e6e6 ;
scrollbar-arrow-color:#006699  ;
scrollbar-track-color:#dfdfdf ;
scrollbar-darkshadow-color: #808080; 
}
A:link {font-family:"Verdana",  "宋体"; COLOR: #000000;  font-size: 12px;  TEXT-DECORATION: none }
A:visited {font-family: "Verdana", "宋体";	COLOR: #000000; FONT-SIZE:12px; TEXT-DECORATION: none }
A:active {font-family: "Verdana", "宋体"; COLOR: #000099; FONT-SIZE: 12px; TEXT-DECORATION: none }
A:hover {font-family: "Verdana", "宋体"; COLOR: #dd0000>; FONT-SIZE: 12px; TEXT-DECORATION: underline }
.smallTxt{FONT-SIZE: 11px; FONT-FAMILY: "Tahoma","Arial","sans-serif"}
.style3 {FONT-SIZE: 14px; FONT-FAMILY: "Tahoma","Arial","sans-serif"; }
-->
</style>
</head>
<body>
<%
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
%>
<table width="100%" height="95%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#C0DBEF">
<tr bgcolor="#EFF8FE">
<td height="50" align="center"><span class="style3"><%="<font color='#cc6600'>"&xing&ming&"</font>"&",您的星座是："&xingzuo%></span></td>
</tr>
<tr bgcolor="#EFF8FE">
  <td bgcolor="#EFF8FE"><span class="style3">
<%="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&starcontent%>
</span></td>
</tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>
<%else%>
<table width="100%" height="95%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#C0DBEF">
<tr bgcolor="#EFF8FE">
<td height="50" align="center" class="smallTxt">对不起，要测算请返回输入您的用户数据!<a href="youinfo.asp"><font color="#FF0000">点击这里</font></a></td>
</tr>
<tr bgcolor="#EFF8FE">
  <td bgcolor="#EFF8FE"><span class="style3">12星座运程分析!</span></td>
</tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>
<%end if%>