<% Response.Cookies("cm-nyrs")=nian&"-"&yue&"-"&ri&"-"&hh if request("qm")<>"" then youname1=trim(request("youname1")) sex=trim(request("sex")) nian=req(request("nian")) yue=req(request("yue")) ri=req(request("ri")) hh=req(request("hh")) nx=trim(request("nx")) ns=req(request("ns")) ji=trim(request("ji")) bj=trim(request("bj")) xiong=trim(request("xiong")) xn=req(request("xn")) zf=req(request("zf")) shi=trim(request("shi")) zd=trim(request("zd")) bh=req(request("bh")) bh11=req(request("bh11")) bh12=req(request("bh12")) jxjx=req(request("jxjx")) lx=req(request("lx")) back=(request("back")) if zd="1" then zdasp="zd" %> <% Response.end end if %>

姓名测试打分首页 > 日干论命 

<%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%>
* 根据四柱预测学部分专家学者提供的资料,归纳整理,个别字句有待考证,总体准确度较高!

<% function smth(messtemp1,messtemp2) sql="select * from SanMingTongHui where rigan='"&messtemp1&"' and Shiganzhi='"&messtemp2&"'" Set Rs=conn.Execute(sql) if not rs.eof then smth=rs("lunduan") smth=htm(smth) end if end function %> <% function wh(messtemp) sql="select * from wuhang where wh='"&messtemp&"'" Set Rs=conn.Execute(sql) if not rs.eof then wh=rs("fh")&"|"&rs("wj")&"|"&rs("wz")&"|"&rs("xs")&"|"&rs("xk")&"|"&rs("skzh")&"|"&rs("wx") wh=htm(wh) end if end function %> <% function yrs(lb888,messtemp) sql="select * from yrs where "&lb888&" like '%"&messtemp&"%'" Set Rs=conn.Execute(sql) if not rs.eof then if lb888="yue" then yrs=rs("yl") if lb888="ri" then yrs=rs("rl") if lb888="shi" then yrs=rs("sl") yrs=htm(yrs) end if end function %> <% function uhtm(mess888) if mess888<>"" then mess888=lcase(mess888) 'mess888=server.HTMLEncode(mess888) mess888=Replace( mess888, vbCrLf, "
" ) mess888=Replace( mess888, "<", "<" ) mess888=Replace( mess888, ">", ">" ) mess888=Replace( mess888, " ", " " ) mess888=Replace(mess888, CHR(34), """) '祛除双引号 mess888=Replace(mess888, CHR(39), "'") '去除但引号 uhtm=mess888 end if end function %> <% function htm(mess888) if mess888<>"" then mess888=lcase(mess888) mess888=Replace( mess888, vbCrLf, "

" ) 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 %>