点击星座查看运程<%yctype=request("type") xz=request("xz")%> (今日 明日 本周 本月 今年 今年爱情运势)
·牡羊座·金牛座·双子座·巨蟹座·狮子座·处女座·天秤座·天蝎座·射手座·魔羯座·水瓶座·双鱼座
<%if yctype="today" then%>
<% if xing<>"" then myxz=Constellation(nian1&"-"&yue1&"-"&ri1) %><%=xing&ming%>(<%=nian1%>-<%=yue1%>-<%=ri1%>) 我的星座:<%=myxz%><%else%><%myxz="牡羊座"%> <%end if%> <%set rs=server.createobject("adodb.recordset") xz=request("xz") if xz<>"" then Sql="select * from xzysday where id="&xz else Sql="select * from xzysday where xzmc='"&myxz&"'" end if rs.open sql,conn,1,1%> 当前星座:<%=rs("xzmc")%> 今日运程
.gif" width="100" height="100">
<%=rs("xzmc")%>
<%=rs("xzrq")%>
爱情运势: .gif"> 综合运势: .gif">
工作状况: .gif"> 理财投资: .gif">
健康指数: <%=rs("jkzs")%> 商谈指数:
<%=rs("stzs")%>
幸运数字: <%=rs("xysz")%> 速配星座: <%=rs("spxz")%>
<%=rs("zhpg")%>

有效日期:<%=date()%><%'=rs("yxqx")%>
<%elseif yctype="nextday" then%>
<% if xing<>"" then myxz=Constellation(nian1&"-"&yue1&"-"&ri1) %><%=xing&ming%>(<%=nian1%>-<%=yue1%>-<%=ri1%>) 我的星座:<%=myxz%><%else%><%myxz="牡羊座"%> <%end if%> <%set rs=server.createobject("adodb.recordset") xz=request("xz") if xz<>"" then Sql="select * from xzysnextday where id="&xz else Sql="select * from xzysnextday where xzmc='"&myxz&"'" end if rs.open sql,conn,1,1%> 当前星座:<%=rs("xzmc")%> 明日运程
.gif" width="100" height="100">
<%=rs("xzmc")%>
<%=rs("xzrq")%>
爱情运势: .gif"> 综合运势: .gif">
工作状况: .gif"> 理财投资: .gif">
健康指数: <%=rs("jkzs")%> 商谈指数:
<%=rs("stzs")%>
幸运数字: <%=rs("xysz")%> 速配星座: <%=rs("spxz")%>
<%=rs("zhpg")%>

有效日期:<%Response.Write GetDateDiif(date(),1) ' Response.Write DateAdd("d", 1, date)%> <%'=rs("yxqx") '明日日期获取函数 Function GetDateDiif(strDate,intDays) sDate = CDate(strDate)+intDays GetDateDiif = sDate End Function %>
<%elseif yctype="week" then%>
<% if xing<>"" then myxz=Constellation(nian1&"-"&yue1&"-"&ri1) %><%=xing&ming%>(<%=nian1%>-<%=yue1%>-<%=ri1%>) 我的星座:<%=myxz%><%else%><%myxz="牡羊座"%> <%end if%> <%set rs=server.createobject("adodb.recordset") xz=request("xz") if xz<>"" then Sql="select * from xzysweek where id="&xz else Sql="select * from xzysweek where xzmc='"&myxz&"'" end if rs.open sql,conn,1,1%> 当前星座:<%=rs("xzmc")%> 本周运程
.gif" width="100" height="100"> <%=rs("xzmc")%>
<%=rs("xzrq")%>
<%=rs("title")%>(<%=rs("yxqx")%>)
整体运势:.gif">
<%=rs("ztys")%>
爱情运势:
有对象:.gif">
<%=rs("aqys1")%>
没对象:.gif">
<%=rs("aqys2")%>
健康运势:.gif">
<%=rs("jkys")%>
工作学业运:.gif">
<%=rs("gzys")%>
性欲指数:.gif">
<%=rs("xyys")%>
红心日: <%=rs("hxri")%>
<%=rs("hxsm")%>
黑梅日: <%=rs("hmri")%>
<%=rs("hmsm")%>
<%elseif yctype="month" then%>
<% if xing<>"" then myxz=Constellation(nian1&"-"&yue1&"-"&ri1) %><%=xing&ming%>(<%=nian1%>-<%=yue1%>-<%=ri1%>) 我的星座:<%=myxz%><%else%><%myxz="牡羊座"%> <%end if%> <%set rs=server.createobject("adodb.recordset") xz=request("xz") if xz<>"" then Sql="select * from xzysmonth where id="&xz else Sql="select * from xzysmonth where xzmc='"&myxz&"'" end if rs.open sql,conn,1,1%> 当前星座:<%=rs("xzmc")%> 本月运程
.gif" width="100" height="100"> <%=rs("xzmc")%>
<%=rs("xzrq")%>
有效日期:(<%=rs("yxqx")%>)
整体运势:.gif">
<%=rs("ztys")%>
爱情运势:.gif">
<%=rs("aqys")%>
投资理财运:.gif">
<%=rs("tzys")%>
解压方式:
<%=rs("jyfs")%>
幸运物:
<%=rs("xyw")%>
<%elseif yctype="year" then%>
<% if xing<>"" then myxz=Constellation(nian1&"-"&yue1&"-"&ri1) %> <%=xing&ming%>(<%=nian1%>-<%=yue1%>-<%=ri1%>) 我的星座:<%=myxz%> <%else%> <%myxz="牡羊座"%> <%end if%> <%set rs=server.createobject("adodb.recordset") xz=request("xz") if xz<>"" then Sql="select * from xzysyear where id="&xz else Sql="select * from xzysyear where xzmc='"&myxz&"'" end if rs.open sql,conn,1,1%> 当前星座:<%=rs("xzmc")%> 今年运程
.gif" width="100" height="100"> <%=rs("xzmc")%>
<%=rs("xzrq")%>
<%=rs("title")%>(<%=rs("yxqx")%>)
整体概况:.gif">
<%=rs("ztzk")%>
功课学业:.gif">
<%=rs("gkxy")%>
工作职场:.gif">
<%=rs("gzzc")%>
金钱理财:.gif">
<%=rs("zqlc")%>
恋爱婚姻:.gif">
<%=rs("lzfy")%>
<%elseif yctype="yearlove" then%>
<% if xing<>"" then myxz=Constellation(nian1&"-"&yue1&"-"&ri1) %><%=xing&ming%>(<%=nian1%>-<%=yue1%>-<%=ri1%>) 我的星座:<%=myxz%><%else%><%myxz="牡羊座"%> <%end if%> <%set rs=server.createobject("adodb.recordset") xz=request("xz") if xz<>"" then Sql="select * from xzysaqyear where id="&xz else Sql="select * from xzysaqyear where xzmc='"&myxz&"'" end if rs.open sql,conn,1,1%> 当前星座:<%=rs("xzmc")%> 今年爱情运势
.gif" width="100" height="100"> <%=rs("xzmc")%>
<%=rs("xzrq")%>
有效期限:(<%=rs("yxqx")%>)
整体概况:
<%=rs("ztzk")%>
女生篇:
<%=rs("nv")%>
男生篇:
<%=rs("nan")%>
<%end if%>