<%xing1=mid(xing,1,1)
ming1=mid(ming,1,1)
%>
<%=xing1%> <%if mid(xing,2,1) <> "" then response.Write ""&mid(xing,2,1)&" " end if%><%=ming1%> <%if mid(ming,2,1) <> "" then response.Write ""&mid(ming,2,1)&" " end if%> <%bzwh=tgdzwh(yg1)&tgdzwh(yz1)&tgdzwh(mg1)&tgdzwh(mz1)&tgdzwh(dg1)&tgdzwh(dz1)&tgdzwh(tg1)&tgdzwh(tz1) wnum1 = Len(Replace(bzwh, "金", Space(Len("金") + 1))) - Len(bzwh) if wnum1>=3 then mainw=mainw&"金旺" end if if wnum1=0 then mainq=mainq&"缺金" end if wnum2 = Len(Replace(bzwh, "木", Space(Len("木") + 1))) - Len(bzwh) if wnum2>=3 then mainw=mainw&"木旺" end if if wnum2=0 then mainq=mainq&"缺木" end if wnum3 = Len(Replace(bzwh, "水", Space(Len("水") + 1))) - Len(bzwh) if wnum3>=3 then mainw=mainw&"水旺" end if if wnum3=0 then mainq=mainq&"缺水" end if wnum4 = Len(Replace(bzwh, "火", Space(Len("火") + 1))) - Len(bzwh) if wnum4>=3 then mainw=mainw&"火旺" end if if wnum4=0 then mainq=mainq&"缺火" end if wnum5 = Len(Replace(bzwh, "土", Space(Len("土") + 1))) - Len(bzwh) if wnum5>=3 then mainw=mainw&"土旺" end if if wnum5=0 then mainq=mainq&"缺土" end if sql="select * from wh where wh='"&tgdzwh(dg1)&"'" set rs=sconn.execute(sql) if not (rs.bof and rs.eof) then tnwh=rs("tnwh") ynwh=rs("ynwh") skzhyj=rs("skzhyj") whzx=rs("whzx") szwh=rs("szwh") hyhw=rs("hyhw") end if rs.close sql="select * from sjrs where wh='"&tgdzwh(dg1)&"' and sj='"&siji(yue1)&"'" set rs=sconn.execute(sql) if not (rs.bof and rs.eof) then sjrs=rs("sjrs") end if rs.close sql="select * from sxgx where sx='"&sx&"'" set rs=sconn.execute(sql) if not (rs.bof and rs.eof) then sxgx=rs("sxgx") end if rs.close sql="select * from rgnm where rgz='"&dgz&"'" set rs=sconn.execute(sql) if not (rs.bof and rs.eof) then rgxx=rs("rgxx") rgcz=rs("rgcz") rgzfx=rs("rgzfx") end if rs.close sql="select * from rysmn where siceng='"&yue2&"月'" set rs=sconn.execute(sql) if not (rs.bof and rs.eof) then mingni1=rs("mingmi") end if rs.close sql="select * from rysmn where siceng='"&ri2&"日'" set rs=sconn.execute(sql) if not (rs.bof and rs.eof) then mingni2=rs("mingmi") end if rs.close sql="select * from rysmn where siceng='"&DiZhi(hh2)&"时'" set rs=sconn.execute(sql) if not (rs.bof and rs.eof) then mingni3=rs("mingmi") end if rs.close sql="select * from smtf where ri='"&dgz&"' and shi='"&tgz&"'" set rs=sconn.execute(sql) if not (rs.bof and rs.eof) then tf1=rs("tf1") tf2=rs("tf2") end if rs.close sql="select * from qtbj where tg='"&dg1&"' and dz='"&mz1&"'" set rs=sconn.execute(sql) if not (rs.bof and rs.eof) then qtbj=rs("content") end if rs.close %> |
出生时间: | (公历) | <%=nian1%>年 | <%=yue1%>月 | <%=ri1%>日 | <%=hh1%>点 |
八字: | <%=ygz%> | <%=mgz%> | <%=dgz%> | <%=tgz%> | ||
五行: | <%=tgdzwh(yg1)%><%=tgdzwh(yz1)%> | <%=tgdzwh(mg1)%><%=tgdzwh(mz1)%> | <%=tgdzwh(dg1)%><%=tgdzwh(dz1)%> | <%=tgdzwh(tg1)%><%=tgdzwh(tz1)%> | ||
纳音: | <%=layin(ygz)%> | <%=layin(mgz)%> | <%=layin(dgz)%> | <%=layin(tgz)%> |
八字五行个数 : <%=wnum1%>个金,<%=wnum2%>个木,<%=wnum3%>个水,<%=wnum4%>个火,<%=wnum5%>个土 |
四季用神参考 : 日主天干<%=tgdzwh(dg1)%>生于<%=siji(yue1)%>季,<%=sjrs%>。 |
穷通宝鉴调候用神参考 : <%=dg1%><%=tgdzwh(dg1)%>生于<%=mz1%>月,<%=qtbj%> |
日干心性 | <%=rgxx%> |
日干支层次 | <%=rgcz%> |
日干支分析 |
<%=rgzfx%> |
" )
mess888=Replace( mess888, "<", "<" )
mess888=Replace( mess888, ">", ">" )
mess888=Replace( mess888,"
","
") mess888=Replace( mess888, " ", " " ) mess888=Replace( mess888, "> ", "> " ) mess888=Replace( mess888, " ", " " ) mess888=Replace( mess888, " ", " " ) mess888=Replace( mess888, """, CHR(34)) mess888=Replace( mess888, "'", CHR(39)) htm=mess888 end if end function %> <% function whgs(mess888,lx888) whgs=0 for iii=1 to len(mess888) if mid(mess888,iii,1)=lx888 then whgs=whgs+1 next end function %> <% function whsheng(mess888,lx888) if lx888=1 then Select Case mess888 '五行相生: 金生水, 水生木, 木生火, 火生土, 土生金 '得到什么生此五行 case "金" whsheng="土" case "木" whsheng="水" case "水" whsheng="金" case "火" whsheng="木" case else whsheng="火" End Select else Select Case mess888 '五行相克: 金克木, 木克土, 土克水, 水克火, 火克金 '得到该五行克什么 case "金" whsheng="木" case "木" whsheng="土" case "水" whsheng="火" case "火" whsheng="金" case else whsheng="水" End Select end if end function %> <% conn.close set conn=nothing %>