<% writecookies() %> 情侣配对|血型配对|生肖配对

情侣配对|血型配对|生肖配对

<% if xing<>"" then userbirthday=nian1&"-"&yue1&"-"&ri1 userll=DateDiff("yyyy", userbirthday, date) %>
当前算命者<%=xing&ming%>的信息
姓名:<%=xing&ming%> 性别:<%=xingbie%> <%if xuexing<>"" then%> 血型:<%=xuexing%> 型 <%end if%> 出生:<%=nian1%>年<%=yue1%>月<%=ri1%>日<%=hh1%>时<%=mm1%>分 今年<%=userll%>岁 属相:<%=sx%> 星座:<%=Constellation(nian1&"-"&yue1&"-"&ri1)%> 
生辰八字八字测算日干论命称骨论命姓名测试在线排盘诸葛神算三世财运
生肖星座生日密码属相性格血型性格择吉黄历前世今生 EQ曲线 情侣速配
<%end if%>
<% if xing<>"" then myxz=Constellation(nian1&"-"&yue1&"-"&ri1) %><%=xing&ming%>(<%=nian1%>-<%=yue1%>-<%=ri1%>) 我的星座:<%=myxz%>[星座详情] 我的属相:<%=sx%>[属相性格] 我的血型:<%=xuexing%>[血型详解] <%else%>查询我的星座:
日(公历生日) <%if request("act")="xzcx" then %> 查询结果:<%=Constellation(""&request("y")&""&"-"&""&request("m")&""&"-"&""&request("d")&"")%>
<%end if%><%end if%>
星座详解·牡羊座·金牛座·双子座·巨蟹座·狮子座·处女座·天秤座·天蝎座·射手座·魔羯座·水瓶座·双鱼座
配对测试 不测试八字相合程度 同时测试八字相合程度
请输入第一个姓名:    


请输入第二个姓名:    

<%fs=request.form("fs") name1=request.form("name1") name2=request.form("name2") xing1=request.form("xing1") xing2=request.form("xing2") sex1=request.form("sex1") sex2=request.form("sex2") y1=request.form("y1") m1=request.form("m1") d1=request.form("d1") h1=request.form("h1") f1=request.form("f1") y2=request.form("y2") m2=request.form("m2") d2=request.form("d2") h2=request.form("h2") f2=request.form("f2") 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 fs=1 then%>生日:<%=y1%>年<%=m1%>月<%=d1%>日<%=h1%>时<%=f1%>分<%end if%>
<%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 fs=1 then%>生日:<%=y2%>年<%=m2%>月<%=d2%>日<%=h2%>时<%=f2%>分<%end if%>
<%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%>
星座对对配:
你相信星座配对吗?最佳的星座配能保证你的爱情浪漫永久吗?您认为星座是科学吗?星座真的有神奇力量吗?不管信或不信,测试一下看看先~~~~~
我的星座: 他/她的星座 :
姓名配对关系提示:
姓名当中究竟隐藏了多少奥秘,可能至今也没有人能完全说破,这里有个趣味游戏,通过姓名笔划数看看你和爱人的关系究竟怎样——
请输入您的姓名: 请输入您爱人的名字:
姓名五格配对评分:
根据《易经》的"象"、"数"理论,依据姓名的笔画数和一定规则建立起来天格、地格、人格、总格、外格等五格数理关系,并运用阴阳五行相生相克理论,来推算的各方面运势。
请输入您的姓名:  
输入另一个姓名:   
生肖配对:
属相有鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪十二种。属相又都是由五行来区分的,而五行则存在着相生相克的道理。相生的属相较能和睦相处,而相克的属相就不那么……了。您是否还对您的爱情犹豫不决啊,那就进来看看你们的生肖配不配吧!
我的生肖: 他/她的生肖 :
血型配对:
血型配对,根据血型测试您和恋人的缘分和婚姻!
我的血型: 他/她的血型 :
QQ号码关系提示:
想知道QQ好友跟我的关系吗?马上进行这个趣味小测试吧~~~ ^_^
我的QQ: 对方QQ:
其它在线工具: IP查询 钢笔字在线生成 文字转成图片 字数统计 朝代顺序表 在线尺子 计算器 长度单位换算表 重量单位换算 身高体重计算器 两日距离天数计算 面积换算器 年龄计算器 功率换算 华氏温度和摄氏温度换算器 压力单位换算表