姓名五格配對
姓名五格配對
 

姓名五格配對評分:

根據《易經》的"象"、"數"理論,依據姓名的筆畫數和一定規則建立起來天格、地格、人格、總格、外格等五格數理關系,并運用陰陽五行相生相克理論,來推算的各方面運勢。

請輸入您的姓名  
輸入另一個姓名:   
<% if request("act")="ok" then tiange=0 dige=0 renge1=0 renge2=0 renge=0 '姓 bihua1=0 bihua2=0 xing1=mid(xing,1,1) xing11=mid(xing,1,1) bihua1=getnum(xing1) tiange=bihua1+1 tiangee=bihua1+1 renge1=bihua1 if mid(xing,2,1) <> "" then xing2=mid(xing,2,1) xing22=mid(xing,2,1) bihua2=getnum(xing2) tiange=bihua1+bihua2 tiangee=bihua1+bihua2 renge1=bihua2 end if '名 bihua3=0 bihua4=0 ming1=mid(ming,1,1) ming11=mid(ming,1,1) bihua3=getnum(ming1) dige=bihua3+1 digee=bihua3+1 renge2=bihua3 if mid(ming,2,1) <> "" then ming2=mid(ming,2,1) ming22=mid(ming,2,1) bihua4=getnum(ming2) dige=bihua3+bihua4 digee=bihua3+bihua4 end if zhongge=bihua1+bihua2+bihua3+bihua4 zhonggee=bihua1+bihua2+bihua3+bihua4 '計算三才 renge=renge1+renge2 rengee=renge1+renge2 waige=zhongge-renge waigee=zhonggee-rengee if mid(xing,2,1) = "" then waige=waige+1 waigee=waigee+1 end if if mid(ming,2,1) = "" then waige=waige+1 waigee=waigee+1 end if%> <% name1=request.form("name1") name2=request.form("name2") xing1=request.form("xing1") xing2=request.form("xing2") sex1=request.form("sex1") sex2=request.form("sex2") tiange=0 dige=0 renge1=0 renge2=0 renge=0 bihua1=0 bihua2=0 nxing1=mid(name1,1,1) nxing11=mid(name1,1,1) bihua1=getnum(nxing1) tiange1=bihua1+1 tiangee1=bihua1+1 renge1=bihua1 rengee1=bihua1 '判斷第一個名字 姓 if xing1 = "2" then nxing2=mid(name1,2,1) nxing22=mid(name1,2,1) bihua2=getnum(nxing2) tiange1=bihua1+bihua2 tiangee1=bihua1+bihua2 renge1=bihua2 rengee1=bihua2 bihua3=0 bihua4=0 nming1=mid(name1,3,1) nming12=mid(name1,3,1) bihua3=getnum(nming1) dige1=bihua3+1 digee1=bihua3+1 renge2=bihua3 rengee2=bihua3 if mid(name1,4,1) <> "" then nming2=mid(name1,4,1) nming22=mid(name1,4,1) bihua4=getnum(nming2) dige1=bihua3+bihua4 digee1=bihua3+bihua4 end if else bihua3=0 bihua4=0 nming1=mid(name1,2,1) nming12=mid(name1,2,1) bihua3=getnum(nming1) dige1=bihua3+1 digee1=bihua3+1 renge2=bihua3 rengee2=bihua3 waige1=waige1+1 waigee1=waigee1+1 if mid(name1,3,1) <> "" then nming2=mid(name1,3,1) nming22=mid(name1,3,1) bihua4=getnum(nming2) dige1=bihua3+bihua4 digee1=bihua3+bihua4 end if end if zhongge1=bihua1+bihua2+bihua3+bihua4 zhonggee1=bihua1+bihua2+bihua3+bihua4 renge1=renge1+renge2 rengee1=rengee1+rengee2 waige1=zhongge1-renge1 waigee1=zhonggee1-rengee1 if nxing2 = "" then waige1=waige1+1 waigee1=waigee1+1 end if if nming2 = "" then waige1=waige1+1 waigee1=waigee1+1 end if %>
姓名:<%=name1%> 性別:<%=sex1%>
<%if nxing2<>"" then%> <%end if%> <%if nming2<>"" then%><%end if%>
繁體 拼音 筆劃 五行
<%=nxing1%> <%=GbToBig(nxing1)%> <%=c(mid(nxing11,1,1))%> <%=bihua1%> <%=getzywh(nxing11)%>
<%=nxing2%> <%=GbToBig(nxing2)%> <%=c(nxing22)%> <%=bihua2%> <%=getzywh(nxing22)%>
<%=nming1%> <%=GbToBig(nming1)%> <%=c(nming12)%> <%=bihua3%> <%=getzywh(nming12)%>
<%=nming2%> <%=GbToBig(nming2)%> <%=c(nming22)%> <%=bihua4%> <%=getzywh(nming22)%>
天格-> <%=tiange1%> (<%=getsancai(tiange1)%>) <%set rs=server.createobject("adodb.recordset") sql="select * from 81 where num='"&tiangee1&"'" rs.open sql,conn,1,1 tgjx=rs("jx") rs.close tgf1=getpf(tgjx) %> ->(<%=tgjx%>)

人格-> <%=renge1%> (<%=getsancai(renge1)%>)<%set rs=server.createobject("adodb.recordset") sql="select * from 81 where num='"&rengee1&"'" rs.open sql,conn,1,1 rgjx=rs("jx") rs.close rgf1=getpf(rgjx) %> ->(<%=rgjx%>)

地格-> <%=dige1%> (<%=getsancai(dige1)%>)<%set rs=server.createobject("adodb.recordset") sql="select * from 81 where num='"&digee1&"'" rs.open sql,conn,1,1 dgjx=rs("jx") rs.close dgf1=getpf(dgjx) %> ->(<%=dgjx%>)

外格-> <%=waige1%> (<%=getsancai(waige1)%>)<%set rs=server.createobject("adodb.recordset") sql="select * from 81 where num='"&waigee1&"'" rs.open sql,conn,1,1 wgjx=rs("jx") rs.close wgf1=getpf(wgjx) %> ->(<%=wgjx%>)

 

總格-> <%=zhongge1%> (<%=getsancai(zhongge1)%>)<%set rs=server.createobject("adodb.recordset") sql="select * from 81 where num='"&zhonggee1&"'" rs.open sql,conn,1,1 zgjx=rs("jx") rs.close zgf1=getpf(zgjx) %> ->(<%=zgjx%>)

姓名蘊含的個性分析:<%sancai1=getsancai(tiangee1)+getsancai(rengee1)+getsancai(digee1) sqlsancai="select * from sancai where title='"&sancai1&"'" set rssancai=conn.execute(sqlsancai) if not (rssancai.bof and rssancai.eof) then xg1=rssancai("xg") end if %><%=xg1%>
<% name2=request.form("name2") name2=request.form("name2") xing1=request.form("xing1") xing2=request.form("xing2") sex1=request.form("sex1") sex2=request.form("sex2") ntiange=0 ndige=0 nrenge1=0 nrenge2=0 nrenge=0 nbihua1=0 nbihua2=0 n2xing1=mid(name2,1,1) n2xing11=mid(name2,1,1) nbihua1=getnum(n2xing1) ntiange1=nbihua1+1 ntiangee1=nbihua1+1 nrenge1=nbihua1 nrengee1=nbihua1 '判斷第一個名字 姓 if xing2 = "2" then n2xing2=mid(name2,2,1) n2xing22=mid(name2,2,1) nbihua2=getnum(n2xing2) ntiange1=nbihua1+nbihua2 ntiangee1=nbihua1+nbihua2 nrenge1=nbihua2 nrengee1=nbihua2 nbihua3=0 nbihua4=0 n2ming1=mid(name2,3,1) n2ming12=mid(name2,3,1) nbihua3=getnum(n2ming1) ndige1=nbihua3+1 ndigee1=nbihua3+1 nrenge2=nbihua3 nrengee2=nbihua3 if mid(name2,4,1) <> "" then n2ming2=mid(name2,4,1) n2ming22=mid(name2,4,1) nbihua4=getnum(n2ming2) ndige1=nbihua3+nbihua4 ndigee1=nbihua3+nbihua4 end if else nbihua3=0 nbihua4=0 n2ming1=mid(name2,2,1) n2ming12=mid(name2,2,1) nbihua3=getnum(n2ming1) ndige1=nbihua3+1 ndigee1=nbihua3+1 nrenge2=nbihua3 nrengee2=nbihua3 nwaige1=nwaige1+1 nwaigee1=nwaigee1+1 if mid(name2,3,1) <> "" then n2ming2=mid(name2,3,1) n2ming22=mid(name2,3,1) nbihua4=getnum(n2ming2) ndige1=nbihua3+nbihua4 ndigee1=nbihua3+nbihua4 end if end if nzhongge1=nbihua1+nbihua2+nbihua3+nbihua4 nzhonggee1=nbihua1+nbihua2+nbihua3+nbihua4 nrenge1=nrenge1+nrenge2 nrengee1=nrengee1+nrengee2 nwaige1=nzhongge1-nrenge1 nwaigee1=nzhonggee1-nrengee1 if n2xing2 = "" then nwaige1=nwaige1+1 nwaigee1=nwaigee1+1 end if if n2ming2 = "" then nwaige1=nwaige1+1 nwaigee1=nwaigee1+1 end if %>
姓名:<%=name2%> 性別:<%=sex2%>
<%if n2xing2<>"" then%> <%end if%> <%if n2ming2<>"" then%><%end if%>
繁體 拼音 筆劃 五行
<%=n2xing1%> <%=GbToBig(n2xing1)%> <%=c(mid(n2xing11,1,1))%> <%=nbihua1%> <%=getzywh(n2xing11)%>
<%=n2xing2%> <%=GbToBig(n2xing2)%> <%=c(n2xing22)%> <%=nbihua2%> <%=getzywh(n2xing22)%>
<%=n2ming1%> <%=GbToBig(n2ming1)%> <%=c(n2ming12)%> <%=nbihua3%> <%=getzywh(n2ming12)%>
<%=n2ming2%> <%=GbToBig(n2ming2)%> <%=c(n2ming22)%> <%=nbihua4%> <%=getzywh(n2ming22)%>
天格-> <%=ntiange1%> (<%=getsancai(ntiange1)%>) <%set rs=server.createobject("adodb.recordset") sql="select * from 81 where num='"&ntiangee1&"'" rs.open sql,conn,1,1 tgjx=rs("jx") rs.close tgf2=getpf(tgjx) %> ->(<%=tgjx%>)

人格-> <%=nrenge1%> (<%=getsancai(nrenge1)%>)<%set rs=server.createobject("adodb.recordset") sql="select * from 81 where num='"&nrengee1&"'" rs.open sql,conn,1,1 rgjx=rs("jx") rs.close rgf2=getpf(rgjx) %> ->(<%=rgjx%>)

地格-> <%=ndige1%> (<%=getsancai(ndige1)%>)<%set rs=server.createobject("adodb.recordset") sql="select * from 81 where num='"&ndigee1&"'" rs.open sql,conn,1,1 dgjx=rs("jx") rs.close dgf2=getpf(dgjx) %> ->(<%=dgjx%>)

外格-> <%=nwaige1%> (<%=getsancai(nwaige1)%>)<%set rs=server.createobject("adodb.recordset") sql="select * from 81 where num='"&nwaigee1&"'" rs.open sql,conn,1,1 wgjx=rs("jx") rs.close wgf2=getpf(wgjx) %> ->(<%=wgjx%>)

 

總格-> <%=nzhongge1%> (<%=getsancai(nzhongge1)%>)<%set rs=server.createobject("adodb.recordset") sql="select * from 81 where num='"&nzhonggee1&"'" rs.open sql,conn,1,1 zgjx=rs("jx") rs.close zgf2=getpf(zgjx) %> ->(<%=zgjx%>)

姓名蘊含的個性分析:<%sancai1=getsancai(ntiangee1)+getsancai(nrengee1)+getsancai(ndigee1) sqlsancai="select * from sancai where title='"&sancai1&"'" set rssancai=conn.execute(sqlsancai) if not (rssancai.bof and rssancai.eof) then xg1=rssancai("xg") end if %><%=xg1%>
<% n1=abs(rgf1-rgf2) n2=abs(dgf1-dgf2) n3=abs(zgf1-zgf2) n4=abs(tgf1-tgf2) n5=abs(wgf1-wgf2) zf=(n1+n2+n3)+(n4+n5)/5 zf=round(100-zf) %>
經過分析,[<%=name1%>]和[<%=name2%>]的姓名配對評分如下:
姓名緣份指數:<%=zf%>
<%if sex1=sex2 then%>本站是按中國民俗學的一些測算方法來計算的,暫時不支持同性緣份的測試<%else%> <%if zf<60 then%>你們的姓名五格可能不是太合,不過八字配合所起的作用更大,另外彼此的努力也會讓你們改善關系,記住:事在人為! <%elseif zf<70 and zf>=60 then%> 你們的姓名五格相合程度馬馬虎虎,不過八字配合所起的作用更大,繼續努力改善關系,會對你們的關系有幫助的! <%elseif zf<80 and zf>=70 then%>你們的姓名五格相合一般! <%elseif zf<80 and zf>=70 then%>你們的姓名五格相合程度還不錯喲! <%elseif zf<90 and zf>=80 then%> 你們的姓名五格相合程度相當棒! <%elseif zf>=90then%> 你們的姓名五格相合程度太棒了!!恭喜!<%if name1=name2 then%>
^_^ 你們倆同名同姓嘛,真巧喲! <%end if%><%end if%> <%end if%>
<%end if%>
浙江6+1开奖时间几点