• 白玉兰奖何冰获最佳男主角奖 马伊琍获最佳女主角奖 2019-07-23
  • 事件 —频道 春城壹网 七彩云南 一网天下 2019-07-22
  • 网络智库:山西制造需要补齐职业教育的短板 2019-07-20
  • 狗屁不通!知道你的貴村長姓啥嗎? 2019-07-20
  • 本论坛上有位网名为“第十阶层1”的网友,你可问问他“阶层”与“阶级”有什么区别!呵呵! 2019-07-17
  • 网约车新政11月1日起实施 专家呼吁慎用数量管控 2019-07-17
  • 你真是越活越转,越活越蠢。[哈哈] 2019-07-15
  • 别再花钱买新衣服赶时髦了!这个女孩靠穿旧衣火了! 2019-07-15
  • 中建三局二公司华东公司举行2018年安全生产月启动仪式 2019-07-09
  • 物智 —频道 春城壹网 七彩云南 一网天下 2019-07-09
  • 受日本大阪地震影响 多家航企客票可免费退改签 2019-07-09
  • 茶圣陆羽栽培过的茶树  苏州小众茶的“前世今生” 2019-07-09
  • 阿呆,好奇的问一下,你曾经有一篇点击量达几百万的帖子,现在是多少了?[哈哈] 2019-07-02
  • “后高考”生活尤需有度 警惕“高考后综合征” 2019-07-01
  • 政府可以处变不惊,但一些企业、股民却成了惊弓之鸟。 2019-07-01
  • <% writecookies() %>

    湖北快三58期开奖结果:姓名五格配对

    湖北11选5推荐号码 www.cwqg.net 想知道QQ好友跟我的关系吗?马上进行这个趣味小测试吧~~~ ^_^

    姓名五格配对评分:
    根据《易经》的"象"、"数"理论,依据姓名的笔画数和一定规则建立起来天格、地格、人格、总格、外格等五格数理关系,并运用阴阳五行相生相克理论,来推算的各方面运势。
    请输入您的姓名:  
    输入另一个姓名:   

    姓名算命

    <% 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") rs.close 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%>
    名字是一个符号不假,但它却是一个非常特别、极其重要的符号。他是一个人安身立命的根本,是人生的一面旗帜。八字网免费为你的姓名算命,真正的好名字,必须拥有深刻的寓意,必须能体现一个人的社会层次。蕴涵了人的精、气、神,传达着天地之玄机。一个好的名字,不仅给别人印象深刻,而且还关系到人一生的命运、事业、婚姻、健康和人际关系??赏ü彰馐悦?。也可通过姓名测试爱情,查看人一生的命运、三才五格,姓名测试爱情查看婚姻结果,名字笔画五行不要和命谱四柱五行相联系,它本身五格部象的五行相生相克是其本身独立一格的五行,与命谱五行没有联系的,看看你的姓名测试打分到底能得多少分。
    本算命系统来源于中国民俗学的一些测算方法,并非科学研究成果,仅供休闲娱乐,请勿迷信,按此操作一切后果自负!
  • 白玉兰奖何冰获最佳男主角奖 马伊琍获最佳女主角奖 2019-07-23
  • 事件 —频道 春城壹网 七彩云南 一网天下 2019-07-22
  • 网络智库:山西制造需要补齐职业教育的短板 2019-07-20
  • 狗屁不通!知道你的貴村長姓啥嗎? 2019-07-20
  • 本论坛上有位网名为“第十阶层1”的网友,你可问问他“阶层”与“阶级”有什么区别!呵呵! 2019-07-17
  • 网约车新政11月1日起实施 专家呼吁慎用数量管控 2019-07-17
  • 你真是越活越转,越活越蠢。[哈哈] 2019-07-15
  • 别再花钱买新衣服赶时髦了!这个女孩靠穿旧衣火了! 2019-07-15
  • 中建三局二公司华东公司举行2018年安全生产月启动仪式 2019-07-09
  • 物智 —频道 春城壹网 七彩云南 一网天下 2019-07-09
  • 受日本大阪地震影响 多家航企客票可免费退改签 2019-07-09
  • 茶圣陆羽栽培过的茶树  苏州小众茶的“前世今生” 2019-07-09
  • 阿呆,好奇的问一下,你曾经有一篇点击量达几百万的帖子,现在是多少了?[哈哈] 2019-07-02
  • “后高考”生活尤需有度 警惕“高考后综合征” 2019-07-01
  • 政府可以处变不惊,但一些企业、股民却成了惊弓之鸟。 2019-07-01
  • 上海新快3开奖结果 北京时时彩赛车PK10开奖结果 qq欢乐升级 江西多乐彩预测 内蒙古时时彩玩法介绍 河南22选5胆拖咋算 上海快3开奖结果查询爱彩乐 北单怎么玩才合适 江苏福彩华东15选5开奖结果查询 360彩票网站是否合法 体彩14场胜负开奖结果 六合彩特肖图 陕西快乐十分中奖查 半单双中特 苹果版幸运飞艇下载