<% 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)%> 
<%end if%>
四柱八字 | 大六壬起课 | 六爻起卦 | 奇门遁甲起局 | 玄空飞星 | 金口诀立课 | 紫微斗数 | 真太阳时间修正 | 地区经度查询
<%if request("act")="ok" then%><% Dim fangfa(5) fangfa(1)="电脑自动" fangfa(2)="手工指定" fangfa(3)="时间起卦" fangfa(4)="手动摇卦" fangfa(5)="报数起卦" name=request.Form("name") jg=request("jg") reason=request("reason") birthyear=request("birthyear") sex=request("sex") if sex="1" then sex="男" else sex="女" sely=request("sely") selmo=request("selmo") seld=request("seld") selh=request("selh") selm=request("selm") nongligan=request("nongligan")*1 nongzhi=request("nongzhi")*1 nongmonth=request("nongmonth")*1 nongday=request("nongday")*1 isLeap=request("isLeap")*1 if selh=23 or selh=0 then guashi=1 else guashi=int((selh+2)/2+0.5) end if %> <% Dim yao(6) yao(6)=request("Y6") yao(5)=request("Y5") yao(4)=request("Y4") yao(3)=request("Y3") yao(2)=request("Y2") yao(1)=request("Y1") auto=request("auto")*1 if auto=3 then shangguashu=nongzhi+nongmonth+nongday shangguashu=int(((shangguashu/8)-int( shangguashu/8))*8+0.5) if shangguashu = 0 then shangguashu=8 end if xiaguashu=nongzhi+nongmonth+nongday+guashi xiaguashu=int(((xiaguashu/8)-int(xiaguashu/8))*8+0.5) if xiaguashu = 0 then xiaguashu=8 end if bianguashu=nongzhi+nongmonth+nongday+guashi bianguashu=int(((bianguashu/6)-int(bianguashu/6))*6+0.5) if bianguashu = 0 then bianguashu=6 end if for i=1 to 8 if shangguashu=benbagua(i,4) then for j=1 to 3 yao(j+3)=benbagua(i,j) next end if if xiaguashu=benbagua(i,4) then for j=1 to 3 yao(j)=benbagua(i,j) next end if next if yao(bianguashu)=1 then yao(bianguashu)=3 else yao(bianguashu)=4 end if end if if auto=5 then bianguashu=request("bsnums_up")*1+request("bsnums_down")*1 'response.write(request("addhour")) shangguashu=request("bsnums_up")*1 shangguashu=int(((shangguashu/8)-int( shangguashu/8))*8+0.5) if shangguashu = 0 then shangguashu=8 end if xiaguashu=request("bsnums_down")*1 xiaguashu=int(((xiaguashu/8)-int(xiaguashu/8))*8+0.5) if xiaguashu = 0 then xiaguashu=8 end if if request("addhour")="1" then bianguashu=bianguashu+guashi end if bianguashu=int(((bianguashu/6)-int(bianguashu/6))*6+0.5) if bianguashu = 0 then bianguashu=6 end if for i=1 to 8 if shangguashu=benbagua(i,4) then for j=1 to 3 yao(j+3)=benbagua(i,j) next end if if xiaguashu=benbagua(i,4) then for j=1 to 3 yao(j)=benbagua(i,j) next end if next if yao(bianguashu)=1 then yao(bianguashu)=3 else yao(bianguashu)=4 end if end if if auto=1 then Randomize() temprndyao=Rnd(1)*100 yao(1)=int(((temprndyao/4)-int(temprndyao/4))*4+0.5) if yao(1)=0 then yao(1)=4 end if temprndyao=rnd(2)*100 yao(2)=int(((temprndyao/4)-int(temprndyao/4))*4+0.5) if yao(2)=0 then yao(2)=4 end if temprndyao=rnd(3)*100 yao(3)=int(((temprndyao/4)-int(temprndyao/4))*4+0.5) if yao(3)=0 then yao(3)=4 end if temprndyao=rnd(4)*100 yao(4)=int(((temprndyao/4)-int(temprndyao/4))*4+0.5) if yao(4)=0 then yao(4)=4 end if temprndyao=rnd(5)*100 yao(5)=int(((temprndyao/4)-int(temprndyao/4))*4+0.5) if yao(5)=0 then yao(5)=4 end if temprndyao=rnd(6)*100 yao(6)=int(((temprndyao/4)-int(temprndyao/4))*4+0.5) if yao(6)=0 then yao(6)=4 end if end if benggua="" biangua="" isbiangua=0 for i=6 to 1 step -1 if (yao(i)="1") or (yao(i)="3") then benggua=benggua&"1" end if if (yao(i)="2") or (yao(i)="4") then benggua=benggua&"0" end if if yao(i)="3" then biangua=biangua&"0" isbiangua=1 end if if yao(i)="4" then biangua=biangua&"1" isbiangua=1 end if if yao(i)="2" then biangua=biangua&"0" end if if yao(i)="1" then biangua=biangua&"1" end if Next %> <%if phn=1 then%> <%end if%>
纳甲六爻在线排卦(在线起卦)系统
姓名:<%=request("name")%> 出生年:<%=request("birthyear")%> 性别:<%= Sex %> 占事:<%= reason %>
起卦方式:<%= fangfa(auto) %> <% if request("auto")="5" then %> (<%=request("bsnums_up")%>,<%=request("bsnums_down")%>) <% if request("addhour")=1 then %> 动爻加时辰 <% else %> 动爻不加时辰 <%end if %> <%end if%>
公历时间:<%=sely %>年<%=selmo %>月<%=seld %>日<%=selh %>时<%=selm %>分 <% niangan=0%> <% 'tempdate3=CDate("2004/4/15 3:21") 'date3=CDate(sely&"/"&selmo&"/"&seld&" "&selh&":"&selm) tempdate3=CDate(sely&"/"&selmo&"/"&seld&" "&selh&":"&selm) '2/4/2004 19:46 datenumberniangan=DateDiff("d","1900/12/26",tempdate3) datenumberdizhi=DateDiff("d","1900/12/28",tempdate3) temp=int(((datenumberniangan/10)-int( datenumberniangan/10))*10+0.5) rigan=temp if rigan= 0 then rigan=10 end if rizhi=int(((datenumberdizhi/12)-int( datenumberdizhi/12))*12+0.5) if rizhi= 0 then rizhi=12 end if 'response.write(rigan) 'response.write("
") 'response.write(rizhi) 'response.write("
") for i=1 to 1331 date1=CDate(jieqi(i)) date2=CDate(jieqi(i+1)) date3=tempdate3 if (date3>=date1) and(date3") 'response.write(tempnianzhi) 'response.write("
") nianzhi=int(((tempnianzhi/12)-int(tempnianzhi/12))*12+0.5)+1 if nianzhi= 12 then nianzhi=12 end if tempniangan=int(monthnumberdiff/12) niangan=int(((tempniangan/10)-int(tempniangan/10))*10+0.5)+7 if niangan> 10 then niangan=niangan-10 end if %> <% if ((selh*1)>=0) and ((selh*1)<1) then shizhi=1 end if if ((selh*1)>=1) and ((selh*1)<3) then shizhi=2 end if if ((selh*1)>=3) and ((selh*1)<5) then shizhi=3 end if if ((selh*1)>=5) and ((selh*1)<7) then shizhi=4 end if if ((selh*1)>=7) and ((selh*1)<9) then shizhi=5 end if if ((selh*1)>=9) and ((selh*1)<11) then shizhi=6 end if if ((selh*1)>=11) and ((selh*1)<13) then shizhi=7 end if if ((selh*1)>=13) and ((selh*1)<15) then shizhi=8 end if if ((selh*1)>=15) and ((selh*1)<17) then shizhi=9 end if if ((selh*1)>=17) and ((selh*1)<19) then shizhi=10 end if if ((selh*1)>=19) and ((selh*1)<21) then shizhi=11 end if if ((selh*1)>=21) and ((selh*1)<23) then shizhi=12 end if if ((selh*1)=23) then shizhi=1 if rigan=10 then rigan=1 else rigan=rigan+1 end if if rizhi=12 then rizhi=1 else rizhi=rizhi+1 end if end if %> <% Dim tempshigan(12) if rigan=1 or rigan=6 then tempshigan(1)=1 tempshigan(2)=2 tempshigan(3)=3 tempshigan(4)=4 tempshigan(5)=5 tempshigan(6)=6 tempshigan(7)=7 tempshigan(8)=8 tempshigan(9)=9 tempshigan(10)=10 tempshigan(11)=1 tempshigan(12)=2 end if if rigan=2 or rigan=7 then tempshigan(1)=3 tempshigan(2)=4 tempshigan(3)=5 tempshigan(4)=6 tempshigan(5)=7 tempshigan(6)=8 tempshigan(7)=9 tempshigan(8)=10 tempshigan(9)=1 tempshigan(10)=2 tempshigan(11)=3 tempshigan(12)=4 end if if rigan=3 or rigan=8 then tempshigan(1)=5 tempshigan(2)=6 tempshigan(3)=7 tempshigan(4)=8 tempshigan(5)=9 tempshigan(6)=10 tempshigan(7)=1 tempshigan(8)=2 tempshigan(9)=3 tempshigan(10)=4 tempshigan(11)=5 tempshigan(12)=6 end if if rigan=4 or rigan=9 then tempshigan(1)=7 tempshigan(2)=8 tempshigan(3)=9 tempshigan(4)=10 tempshigan(5)=1 tempshigan(6)=2 tempshigan(7)=3 tempshigan(8)=4 tempshigan(9)=5 tempshigan(10)=6 tempshigan(11)=7 tempshigan(12)=8 end if if rigan=5 or rigan=10 then tempshigan(1)=9 tempshigan(2)=10 tempshigan(3)=1 tempshigan(4)=2 tempshigan(5)=3 tempshigan(6)=4 tempshigan(7)=5 tempshigan(8)=6 tempshigan(9)=7 tempshigan(10)=8 tempshigan(11)=9 tempshigan(12)=10 end if %> <% if (rizhi-rigan)=0 then kongzhi=12 else if rizhi>rigan then kongzhi=rizhi-rigan else kongzhi=rizhi+12-rigan end if end if %> <% if rizhi= 3 or rizhi=7 or rizhi=11 then maxing=9 taohua=4 end if if rizhi= 1 or rizhi=5 or rizhi=9 then maxing=3 taohua=10 end if if rizhi= 4 or rizhi=8 or rizhi=12 then maxing=6 taohua=1 end if if rizhi= 2 or rizhi=6 or rizhi=10 then maxing=12 taohua=7 end if if rigan=1 then lu=3 end if if rigan=2 then lu=4 end if if rigan=3 or rigan=5 then lu=6 end if if rigan=4 or rigan=6 then lu=7 end if if rigan=7 then lu=9 end if if rigan=8 then lu=10 end if if rigan=9 then lu=12 end if if rigan=10 then lu=1 end if if rigan=1 or rigan=5 or rigan=7 then guiren1=2 guiren2=8 end if if rigan=2 or rigan=6 then guiren1=1 guiren2=9 end if if rigan=3 or rigan=4 then guiren1=10 guiren2=12 end if if rigan=9 or rigan=10 then guiren1=6 guiren2=4 end if if rigan=8 then guiren1=3 guiren2=7 end if %>    农历时间:<%= tiangan(nongligan)&dizhi(nongzhi) %>年 <% if isLeap=1 then %> 闰 <% end if %> <%=nongliyu(nongmonth)%>月<%=nongliri(nongday) %>日<%=dizhi(shizhi)%>时
干  支:<%= tiangan(niangan)&dizhi(nianzhi)%>年 <%= tiangan(yuegan)&dizhi(yuezhi)%>月 <%= tiangan(rigan)&dizhi(rizhi)%>日 <%=tiangan(tempshigan(shizhi))&dizhi(shizhi)%>时 
<%call xunkong(tiangan(niangan)&dizhi(nianzhi),yxk,yxs) call xunkong(tiangan(yuegan)&dizhi(yuezhi),mxk,mxs) call xunkong(tiangan(rigan)&dizhi(rizhi),dxk,dxs) call xunkong(tiangan(tempshigan(shizhi))&dizhi(shizhi),txk,txs) %> 旬  空:<%= yxk%>   <%= mxk%>   <%= dxk%>   <%=txk%>   
神  煞:驿马─<%=dizhi(maxing) %> 桃花─<%=dizhi(taohua) %> 日禄─<%=dizhi(lu) %> 贵人─<%=dizhi(guiren1) %>,<%=dizhi(guiren2) %>
<% if rigan=1 or rigan=2 then liushen(1)=liushentemp(1) liushen(2)=liushentemp(2) liushen(3)=liushentemp(3) liushen(4)=liushentemp(4) liushen(5)=liushentemp(5) liushen(6)=liushentemp(6) end if if rigan=3 or rigan=4 then liushen(1)=liushentemp(6) liushen(2)=liushentemp(1) liushen(3)=liushentemp(2) liushen(4)=liushentemp(3) liushen(5)=liushentemp(4) liushen(6)=liushentemp(5) end if if rigan=5 then liushen(1)=liushentemp(5) liushen(2)=liushentemp(6) liushen(3)=liushentemp(1) liushen(4)=liushentemp(2) liushen(5)=liushentemp(3) liushen(6)=liushentemp(4) end if if rigan=6 then liushen(1)=liushentemp(4) liushen(2)=liushentemp(5) liushen(3)=liushentemp(6) liushen(4)=liushentemp(1) liushen(5)=liushentemp(2) liushen(6)=liushentemp(3) end if if rigan=7 or rigan=8 then liushen(1)=liushentemp(3) liushen(2)=liushentemp(4) liushen(3)=liushentemp(5) liushen(4)=liushentemp(6) liushen(5)=liushentemp(1) liushen(6)=liushentemp(2) end if if rigan=9 or rigan=10 then liushen(1)=liushentemp(2) liushen(2)=liushentemp(3) liushen(3)=liushentemp(4) liushen(4)=liushentemp(5) liushen(5)=liushentemp(6) liushen(6)=liushentemp(1) end if %> <% 'response.write(benggua) for i=1 to 64 if bagua(i,12)=benggua then j=i end if if bagua(i,12)=biangua then k=i end if next fu1=bagua(j,8)*1 fu2=bagua(j,10)*1 %>
  <% if isbiangua=0 then %> <% if bagua(j,8)="0" then %>
    <%= "   "&bagua(j,1) %>
  <%= "六神 【本  卦】" %>
  <% for l=1 to 6 %> <%= liushen(l)&" "&bagua(j,l+1) %>
  <% next %>
<% else %>
<% fu1=bagua(j,8)*1 fu2=bagua(j,10)*1 %> <%= "         "&bagua(j,1) %>
<%= "六神  伏  神 【本  卦】" %>
<% for l=1 to 6 %> <% if fu1<>(7-l) and fu2<>(7-l) then %> <%= liushen(l)&"       "&bagua(j,l+1) %>
<% end if %> <% if fu1=(7-l) then %> <%= liushen(l)&" "&bagua(j,9)&bagua(j,l+1) %>
<% end if %> <% if fu2=(7-l) then %> <%= liushen(l)&" "&bagua(j,11)&bagua(j,l+1) %>
<% end if %> <% next %> <% end if %> <% else %> <% if bagua(j,8)="0" then %> <% tempguaming= "   "&bagua(j,1) while Len(tempguaming)<19 tempguaming=tempguaming+" " Wend %>
<%= tempguaming&bagua(k,1)%> <%'= "   "&bagua(j,1) &"       "&bagua(k,1)%>
<%= "六神 【本  卦】         【变  卦】" %>
<% for l=1 to 6 %> <% if yao(7-l)<>3 and yao(7-l)<>4 then %> <%= liushen(l)&" "&bagua(j,l+1) &"   "&baguabian(k,l+1)&liuqing(liunum(baguabian(j,1),baguaganzhi(k,l+1)))&baguabiangz(k,l+1)%>
<% end if %> <% if yao(7-l)=3 then %> <%= liushen(l)&" "&bagua(j,l+1) &"O-> "&" "&baguabian(k,l+1)&liuqing(liunum(baguabian(j,1),baguaganzhi(k,l+1)))&baguabiangz(k,l+1)%>
<% end if %> <% if yao(7-l)=4 then %> <%= liushen(l)&" "&bagua(j,l+1) &"X-> "&" "&baguabian(k,l+1)&liuqing(liunum(baguabian(j,1),baguaganzhi(k,l+1)))&baguabiangz(k,l+1)%>
<% end if %> <% next %> <% else %> <% fu1=bagua(j,8)*1 fu2=bagua(j,10)*1 %> <% tempguaming= "         "&bagua(j,1) while Len(tempguaming)<25 tempguaming=tempguaming+" " Wend %>
<%= tempguaming&bagua(k,1) %> <%'= "         "&bagua(j,1)&"       "&bagua(k,1) %>
<%= "六神  伏  神 【本  卦】         【变  卦】" %>
<% for l=1 to 6 %> <% if fu1<>(7-l) and fu2<>(7-l) then %> <% if yao(7-l)<>3 and yao(7-l)<>4 then %> <%= liushen(l)&"       "&bagua(j,l+1) &"   "&baguabian(k,l+1)&liuqing(liunum(baguabian(j,1),baguaganzhi(k,l+1)))&baguabiangz(k,l+1)%>
<% end if %> <% if yao(7-l)=3 then %> <%= liushen(l)&"       "&bagua(j,l+1) &"O-> "&" "&baguabian(k,l+1)&liuqing(liunum(baguabian(j,1),baguaganzhi(k,l+1)))&baguabiangz(k,l+1)%>
<% end if %> <% if yao(7-l)=4 then %> <%= liushen(l)&"       "&bagua(j,l+1) &"X-> "&" "&baguabian(k,l+1)&liuqing(liunum(baguabian(j,1),baguaganzhi(k,l+1)))&baguabiangz(k,l+1)%>
<% end if %> <% end if %> <% if fu1=(7-l) then %> <% if yao(7-l)<>3 and yao(7-l)<>4 then %> <%= liushen(l)&" "&bagua(j,9)&bagua(j,l+1) &"   "&baguabian(k,l+1)&liuqing(liunum(baguabian(j,1),baguaganzhi(k,l+1)))&baguabiangz(k,l+1)%>
<% end if %> <% if yao(7-l)=3 then %> <%= liushen(l)&" "&bagua(j,9)&bagua(j,l+1) &"O-> "&" "&baguabian(k,l+1)&liuqing(liunum(baguabian(j,1),baguaganzhi(k,l+1)))&baguabiangz(k,l+1)%>
<% end if %> <% if yao(7-l)=4 then %> <%= liushen(l)&" "&bagua(j,9)&bagua(j,l+1) &"X-> "&" "&baguabian(k,l+1)&liuqing(liunum(baguabian(j,1),baguaganzhi(k,l+1)))&baguabiangz(k,l+1)%>
<% end if %> <% end if %> <% if fu2=(7-l) then %> <% if yao(7-l)<>3 and yao(7-l)<>4 then %> <%= liushen(l)&" "&bagua(j,11)&bagua(j,l+1) &"   "&baguabian(k,l+1)&liuqing(liunum(baguabian(j,1),baguaganzhi(k,l+1)))&baguabiangz(k,l+1)%>
<% end if %> <% if yao(7-l)=3 then %> <%= liushen(l)&" "&bagua(j,11)&bagua(j,l+1) &"O-> "&" "&baguabian(k,l+1)&liuqing(liunum(baguabian(j,1),baguaganzhi(k,l+1)))&baguabiangz(k,l+1)%>
<% end if %> <% if yao(7-l)=4 then %> <%= liushen(l)&" "&bagua(j,11)&bagua(j,l+1) &"X-> "&" "&baguabian(k,l+1)&liuqing(liunum(baguabian(j,1),baguaganzhi(k,l+1)))&baguabiangz(k,l+1)%>
<% end if %> <% end if %> <% next %> <% end if %> <% end if %>
<%bengua=mid(bagua(j,1),4,3) 'response.write tempguaming set fo=server.createobject("scripting.filesystemobject") path=server.mappath("temp") path=path&"/guaci.txt" set fn=fo.opentextfile(path) tag=true tag1=true tag2=true while not fn.atendofstream and tag str=fn.readline if instr(str,bengua)>0 then tag=false title=str end if wend while not fn.atendofstream and tag1 str=fn.readline if trim(str)<>"********************" then guaci=guaci&str else tag1=false end if wend while not fn.atendofstream and tag2 str=fn.readline if instr(str,"《易经》")>0 then tag2=false else guayao=guayao&"
"&str end if wend 'response.write bengua %>
<%=title%>
<%=guaci%>
<%=guayao%>
 
<%else%>
本网站提供六爻排盘、六爻预测、六爻起卦、六爻八卦算命、六爻占卜、纳甲六爻在线排盘等服务。纳甲六爻在线排卦(在线起卦)系统
姓名: 出生时间: 性别: 女 占事:
公历时间: 分  
起卦方式: 手动摇卦 手工指定 报数起卦 时间起卦 电脑自动 

     
     

第六爻

第五爻
第四爻
第三爻
第二爻
第一爻
    
<%end if%>
六爻
一、六爻是我国传统预测方法的一种,往往和八字等同论。叫六爻基本是民间普及的叫法,它的别名还有“火珠林预测”、“纳甲预测”“周易预测”、“纳甲筮法”等,书本上多称之为周易预测。我们为您提提供本网站提供六爻排盘、六爻预测、六爻占卜、纳甲六爻在线排盘、六爻起卦、六爻八卦算命等服务。

二、六爻所以叫六爻基本上是从形上叫来的。卦成后,它有六个爻位,由于动静不同的原因,变化也就很多了。易有六十四卦,一卦有六爻。卦因为爻动又分主和变等,所以六爻的演化的繁复是不逊于八字的。

三、六爻成卦的方法也交多,在高手处更是随意而为。如:金钱起卦,以蓍草起卦,声音起卦,名字起卦,方位起卦等等,凡成有数,尽皆可为。起了卦能做什么?我们依照成卦的显示,从象理数占上入手,依爻与爻间的生克制化就能推算天地人间任何事物了(信否在您),六爻占卜方法很多,变化玄奥。六爻八卦算命属于爱好者研究,不喜勿信。
卜卦列表
四柱八字 大六壬起课 六爻起卦 奇门遁甲 玄空飞星 紫微斗数 金口诀