<% youname1=trim(request("youname1")) youname2=trim(request("youname2")) youname=youname1&youname2 sex=trim(request("sex")) nx=trim(request("nx")) nian=trim(request("nian")) yue=trim(request("yue")) ri=trim(request("ri")) hh=trim(request("hh")) shi=trim(request("shi")) xx=trim(request("xx")) ns=trim(request("ns")) ji=trim(request("ji")) bj=trim(request("bj")) xiong=trim(request("xiong")) xn=trim(request("xn")) zf=trim(request("zf")) %> <% session("zf")=0 session("zp")="" youname1=trim(request("youname1")) youname2=trim(request("youname2")) youname=youname1&youname2 if instr(youname,"?")<>0 then response.write"算命网站大全-在线免费算命" response.write"

您忘了输入您的姓名了,请稍候,系统返回中..." response.end end if sex=trim(request("sex")) nian=trim(request("nian")) '计算姓笔画 bh11=bhk366(mid(youname1,1,1)) if len(youname1)=2 then bh12=bhk366(mid(youname1,2,1)) else dx=1 end if bh1=bh11+bh12 '计算名笔画 bh21=bhk366(mid(youname2,1,1)) if len(youname2)=2 then bh22=bhk366(mid(youname2,2,1)) else dm=1 end if bh2=bh21+bh22 %>

姓名测试打分首页 > 姓名测试结果

<% tg=bh1+dx if len(youname1)=1 then rg=bh1+bh21 else if len(youname1)=2 then rg=bh12+bh21 end if dg=bh2+dm zg=bh1+bh21+bh22 wg=zg-rg+dx+dm %>

繁体

拼音

笔划

五行

吉凶

<%=mid(youname1,1,1)%> <%=ft(mid(youname1,1,1))%> <%=py(mid(youname1,1,1))%> <%=bh11%> <%=wh(mid(youname1,1,1))%> <%=jxzi(mid(youname1,1,1))%>
<%=mid(youname1,2,1)%> <%=ft(mid(youname1,2,1))%> <%=py(mid(youname1,2,1))%> <%=bh12%> <%=wh(mid(youname1,2,1))%> <%=jxzi(mid(youname1,2,1))%>
<%=mid(youname2,1,1)%> <%=ft(mid(youname2,1,1))%> <%=py(mid(youname2,1,1))%> <%=bh21%> <%=wh(mid(youname2,1,1))%> <%=jxzi(mid(youname2,1,1))%>
<%=mid(youname2,2,1)%> <%=ft(mid(youname2,2,1))%> <%=py(mid(youname2,2,1))%> <%=bh22%> <%=wh(mid(youname2,2,1))%> <%=jxzi(mid(youname2,2,1))%>

天格-> <%=tg%>(<%=yy(tg)%>)

人格-> <%=rg%>(<%=yy(rg)%>)

地格-> <%=dg%>(<%=yy(dg)%>)

外格-> <%=wg%>(<%=yy(wg)%>)

总格-> <%=zg%>(<%=yy(zg)%>)

 

天格<%=tg%>的解析:天格数是先祖留传下来的,其数理对人影响不大。

什么是天格?

<%=jx(tg)%>

人格<%=rg%>的解析:人格数又称主运,是整个姓名的中心点,影响人的一生命运。

什么是人格?

<%=jx(rg)%>

地格<%=dg%>的解析:地格数又称前运,影响人中年以前的活动力。

什么是地格?

<%=jx(dg)%>

外格<%=wg%>的解析:外格数影响命运之灵活力。(姓名 测试提供:http://m.k366.com/cm/)

什么是外格?

<%=jx(wg)%>

总格<%=zg%>的解析:总格又称后运,影响人中年至晚年的命运。

什么是总格?

<%=jx(zg)%>


对基础运的影响:

<% symb="" a=rg-int(rg/10)*10:if a=0 then a=10 b=dg-int(dg/10)*10:if b=0 then b=10 sql="select * from rendi where rens="&a&" and dis="&b&"" Set Rs=conn.Execute(sql) if not rs.eof then symb=rs("symb") end if if instr(symb,"吉")<>0 then session("zf")=session("zf")+5 if instr(symb,"平")<>0 then session("zf")=session("zf")+1 if instr(symb,"凶")<>0 then session("zf")=session("zf") %><%=symb%>  

对成功运的影响:

<% symb="" a=rg-int(rg/10)*10:if a=0 then a=10 b=tg-int(tg/10)*10:if b=0 then b=10 sql="select * from rentian where rens="&a&" and tians="&b&"" Set Rs=conn.Execute(sql) if not rs.eof then symb=rs("symb") end if if instr(symb,"吉")<>0 then session("zf")=session("zf")+5 if instr(symb,"平")<>0 then session("zf")=session("zf")+1 if instr(symb,"凶")<>0 then session("zf")=session("zf") %><%=symb%>  

对人际关系影响:

<% symb="" a=rg-int(rg/10)*10:if a=0 then a=10 b=wg-int(wg/10)*10:if b=0 then b=10 sql="select * from renwandwai where rens="&a&" and wais="&b&"" Set Rs=conn.Execute(sql) if not rs.eof then symb=rs("content")&"  ("&rs("jixiong")&")" end if if instr(symb,"吉")<>0 then session("zf")=session("zf")+5 if instr(symb,"平")<>0 then session("zf")=session("zf")+1 if instr(symb,"凶")<>0 then session("zf")=session("zf") %><%=symb%>  

对三才数理的影响↓

具有如下诱导力,会对人生产生一定的影响。 <% if tg>10 then tg3=tg-int(tg/10)*10 else tg3=tg if rg>10 then rg3=rg-int(rg/10)*10 else rg3=rg if dg>10 then dg3=dg-int(dg/10)*10 else dg3=dg fivegwx=sc(tg3)&sc(rg3)&sc(dg3) symb="" a=rg-int(rg/10)*10:if a=0 then a=10 b=tg-int(tg/10)*10:if b=0 then b=10 sql="select * from cai where fivegwx='"&fivegwx&"'" Set Rs=conn.Execute(sql) if not rs.eof then jixiong=rs("jixiong") symb=rs("content")&"  ("&jixiong&")" end if if instr(jixiong,"吉")<>0 then session("zf")=session("zf")+5 if instr(jixiong,"平")<>0 then session("zf")=session("zf")+1 if instr(jixiong,"凶")<>0 then session("zf")=session("zf") %>

什么是三才?

<%=symb%>

人格<%=rg%>数理有以下暗示:

<%=anshi(rg)%> 

地格<%=dg%>数理有以下暗示:

<%=anshi(dg)%> 

外格<%=wg%>数理有以下暗示:

<%=anshi(wg)%> 

总格<%=zg%>数理有以下暗示:

<%=anshi(zg)%> 


  华易算命网(m.k366.com/cm/)对此名的总评及建议:
   <% zf=session("zf")+60 if zf="" or zf=0 then zf=60 if zf>=100 then zf=99.5 sql="select * from score where low<="&zf&" and upper>="&zf&"" Set Rs=conn.Execute(sql) if not rs.eof then hisword=rs("hisword") end if hisword=Replace( hisword, vbCrLf, "
" ) hisword=Replace( hisword, " "," " ) %><%=hisword%>
   取此名 <% if instr(session("zp"),"1")<>0 and sex<>"女" then zp="只要多加努力,成功与幸福就会伴随你。 " if instr(session("zp"),"2")<>0 then zp=zp&"另外花钱不要大手大脚的啊。" if zp="" then zp="不错啊" if youname="k366" then zf="99.9 ?" %><%=zp%>

     <%=zf%>

仅供参考(满分99.5)

更多测算

<% conn.close set conn=nothing Response.end %><% 'sql="update usecount set defen="&zf&" where usename1='"&youname1&"' and usename2='"&youname2&"'" 'conn.execute(sql) CloseDatabase %>