<% 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%><% name=request("name") sex=request("sex") birthyear=request("birthyear") zhanshi=request("zhanshi") Pmethod=request("R1") nian=request("year") yue=request("month") ri=request("date") shi=request("hour") fen=request("minute") order=request("order") zhuanf=trim(request.Form("r1")) %> <% times=nian&"-"&yue&"-"&ri&" "&shi&":"&fen&":00" NowTime=nian&"-"&yue&"-"&ri if not isdate(NowTime) then response.Write(NowTIME&"不是一个合法的日期,请重新选择日期") RESPONSE.END END IF call sizhu(nian,yue,ri,shi,fen,ygz,mgz,dgz,tgz) call xunkong(dgz,rxunk,rxunshou) call xunkong(tgz,txunk,txunshou) call xunkong(ygz,yxunk,yxunshou) call xunkong(mgz,mxunk,mxunshou) 'response.Write(ygz) %> <%set fo=server.CreateObject("scripting.filesystemobject") path=server.MapPath("temp\cal.txt") set cal=fo.opentextfile(path) tag=true i=0 while (not cal.atendofstream) and tag str=cal.readline strarr=split(str,",") 'response.Write(strarr(1)) 'response.Write(time1&"
") 'response.Write(time2&"
") if trim(strarr(1))=trim(nian) then time1=strarr(1)&"-"&strarr(2)&"-"&strarr(3)&" "&strarr(6)&":"&strarr(7)&":00" time2=strarr(1)&"-"&strarr(2)&"-"&strarr(8)&" "&strarr(10)&":"&strarr(9)&":00" if datediff("s",time1,times)>=0 then i=i+1 'response.Write("ddddd") jiaoj=time1 else tag=false end if if datediff("s",time2,times)>=0 then i=i+1 ' response.Write("aaaaa") jiaoj=time2 ' response.Write(times&time2&"
") end if end if wend i=(i+21)mod 24 jieqq=nian&"年"&yue&"月"&ri&"日"&jq(i) NjieQi=jq(i) jieqq1=jiaoj&jq(i) select case njieqi case "立春","雨水","惊蛰" tqindex=1 case "春分","清明","谷雨" tqindex=2 case "立夏","小满","芒种" tqindex=3 case "夏至","小暑","大暑" tqindex=4 case "立秋","处暑","白露" tqindex=5 case "秋分","寒露","霜降" tqindex=6 case "立冬","小雪","大雪" tqindex=7 case "冬至","小寒","大寒" tqindex=0 end select %> <% tiangan1=left(dgz,1) dizhi1=right(dgz,1) for i=0 to 9 if tg(i)=tiangan1 then tgi=i exit for end if next '获得天干序号 for i=0 to 11 if dz(i)=dizhi1 then dzi=i exit for end if next '获得地支序号 %> <% J=0 for i=0 to 59 TgIndex=i mod 10 DzIndex=i mod 12 if tg(TgIndex)&dz(DzIndex)=dgz then exit for end if j=j+1 next j=j \ 5 select case j case 0,3,6,9 yuan="上元" case 1,4,7,10 yuan="中元" case 2,5,8,11 yuan="下元" end select %> <% select case NjieQi case "冬至","惊蛰" YyJu="一七四" case "小寒" YyJu="二八五" case "大寒","春分" YyJu="三九六" case "雨水" YyJu="九六三" case "清明","立夏" YyJu="四一七" case "立春" YyJu="八五二" case "谷雨","小满" YyJu="五二八" case "芒种" YyJu="六三九" case "夏至","白露" YinJu="九三六" case "小暑" YinJu="八二五" case "大暑","秋分" YinJu="七一四" case "立秋" YinJu="二五八" case "寒露","立冬" YinJu="六九三" case "处暑" YinJu="一四七" case "霜降","小雪" YinJu="五八二" case "大雪" YinJu="四七一" end select if YyJu<>"" then select case yuan case "中元" JuXu=mid(YyJu,2,1) case "上元" JuXu=left(YyJu,1) case "下元" JuXu=RIGHT(YyJu,1) end select DunJu="阳遁"&JuXu&"局" yinyang=true '阳局 else yinyang=false '阴局 select case yuan case "中元" JuXu=mid(YinJu,2,1) case "上元" JuXu=left(YinJu,1) case "下元" JuXu=RIGHT(YinJu,1) end select DunJu="阴遁"&JuXu&"局" end if'获得阴阳遁局 if trim(request("jutag"))=1 then ju=request("ju") if ju>0 then dunju="阳遁"&ju&"局" else dunju="阴遁"&abs(ju)&"局" end if end if %> <%dim sqly(8) DIM lIUyIA(8) dim bamens(7) dim bashens(7) dim jiuxings(7) dim tp(7) dim tpj(7) dim tianqin(7) 'dim dpjs(8) select case JuXu case "一" JuX=1 case "二" JuX=2 case "三" JuX=3 case "四" JuX=4 case "五" JuX=5 case "六" JuX=6 case "七" JuX=7 case "八" JuX=8 case "九" JuX=9 end select if trim(request("jutag"))=1 then jux=abs(ju) end if %> <% if yinyang then ijk=0 for i=jux-1 to jux+7 sqindex=i mod 9 sqly(sqindex)=left(liuyi(ijk),1) LiuYiA(sqindex)=liuyi(ijk) ijk=ijk+1 'dpjs(sqindex) next else ijk=10 for i=jux-1 to jux+7 sqindex=i mod 9 ijk=(ijk+8) mod 9 sqly(sqindex)=left(liuyi(ijk),1) LiuYiA(sqindex)=liuyi(ijk) next end if '三奇六议 %> <%zHuFu=0 FOR I=0 TO 8 IF INSTR(LiuYiA(I),tXunShou)>0 then ZhuFu=i+1 exit for end if NEXT select case zhufu case 1 zfindex=1 case 8 zfindex=2 case 3 zfindex=3 case 4 zfindex=4 case 9 zfindex=5 case 2 zfindex=6 case 7 zfindex=7 case 6 zfindex=8 case 5 zfindex=6 end select '转盘排法 zhifu=jiuxing(zfindex-1) '值符 if zfindex=9 then zfindex1=tqindex+1 else zfindex1=zfindex '值使 end if'直符和直使 等于5怎么办 'response.write zfindex&zfindex1&zhufu zhishi=bamen(zfindex1-1) if zhuanf="fg" then '飞宫排法 zhifu=Fjiuxing(zhufu-1) zhishi=Fjiumen(zhufu-1) end if sg=left(tgz,1) '时干 if sg="甲" then select case tgz case "甲子" sg="戊" case "甲戌" sg="己" case "甲申" sg="庚" case "甲午" sg="辛" case "甲辰" sg="壬" case "甲寅" sg="癸" end select end if 'response.write txunshou for ia=0 to 8 if sqly(ia)=sg then sgIndex=ia+1 exit for end if '求出时干所在的宫sgindex next 'response.write sg 'response.write sgindex&sg select case sgindex case 1 zfindexa=0 case 8 zfindexa=1 case 3 zfindexa=2 case 4 zfindexa=3 case 9 zfindexa=4 case 2 zfindexa=5 case 7 zfindexa=6 case 6 zfindexa=7 case 5 zfindexa=5 end select 'response.write zfindex if sgindex=5 then trindex=6 else trindex=zfindex end if ' response.Write zfindexa&trindex ' response.write jiuxing(trindex-1) for ib=0 to 7 zf=(zfindexa+ib)mod 8 zfindexb=(zfindex-1+ib+8)mod 8 if zfindexb=5 then tianqindex=zf end if jiuxings(zf)=left(jiuxing(zfindexb),2)'九星 next 'response.Write(jiuxings(0)) 'response.write zfindexa&"
" 'response.write zhufu&"
" for i=0 to 7 tianqin(i)="  " next tianqingindex=(zfindexb+1) mod 9 'response.Write(zhufu) tianqin(tianqindex)="" 'if zhufu=5 then '替宫的问题 ' for i=0 to 7 ' if jiuxings(i)="天禽" then ' itag=i ' exit for ' end if ' next ' for j=0 to 7 ' jiuxings((i+j)mod 8)=left(jiuxing((tqindex+j)mod 8),2) ' next 'tianqin(itag)=mid(jiuxings(itag),2,1) 'jiuxings(itag)="天禽" ' 'else 'tianqin(tqindex)="禽" 'end if '天禽星 %> <%for i=0 to 9 if tg(i)=left(tgz,1) then Iindex=i exit for end if next 'response.write left(tgz,1)&Iindex select case Txunshou case "甲子" sg1="戊" case "甲戌" sg1="己" case "甲申" sg1="庚" case "甲午" sg1="辛" case "甲辰" sg1="壬" case "甲寅" sg1="癸" end select for i=0 to 7 if sqly(i)=sg1 then xsindext=i+1 exit for end if next 'response.Write(sg1) 'response.write Txunshou 'response.write Txunshou&xindex&zfindex1 select case zhishi case "休门" xsindex=1 case "死门" xsindex=2 case "伤门" xsindex=3 case "杜门" xsindex=4 case "开门" xsindex=6 case "惊门" xsindex=7 case "生门" xsindex=8 case "景门" xsindex=9 end select 'response.Write(yinyang&xsindex&iindex) 'response.Write(xsindext&"dd"&iindex) if yinyang then bmindex=(xsindext+iindex) mod 9 'response.write iindex 'response.write zhufu else bmindex=(xsindext-iindex+9)mod 9 end if 'response.write "b="&Iindex&"
a="&xsindex&"
bm="&bmindex if bmindex=0 then bmindex=9 end if 'response.write bmindex 'response.write Txunshou&iindex&xsindex select case bmindex case 1 bmindexa=0 case 8 bmindexa=1 case 3 bmindexa=2 case 4 bmindexa=3 case 9 bmindexa=4 case 2 bmindexa=5 case 7 bmindexa=6 case 6 bmindexa=7 case 5 bmindexa=5 end select 'if yinyang then 'response.write bmindex 'response.write bmindexa&zfindex 'response.write BmIndex for i=0 to 7 bamenindex=(bmindexa+i)mod 8 zfindexb=(zfindex1-1+i)mod 8 'response.Write(zfindexb) bamens(bamenindex)=bamen(zfindexb) select case bamens(bamenindex) case "开门", "休门", "生门" bamens(bamenindex)=""&bamens(bamenindex)&"" end select next 'response.write zfindex1'八门算法 %> <%' 天盘天干 dim sqtag(8) for i=0 to 7 select case jiuxings(i) case "天蓬" tpi=0 case "天任" tpi=7 case "天冲" tpi=2 case "天辅" tpi=3 case "天英" tpi=8 case "天芮" tpi=1 case "天柱" tpi=6 case "天心" tpi=5 case "天禽" tpi=4 end select tp(i)=sqly(tpi) 'response.write tpi&jiuxings(i) sqtag(tpi)=true next for i=0 to 8 if not sqtag(i) and zhufu<>5 then tpj(tianqindex)=sqly(i) exit for else if not sqtag(i) and zhufu=5 then tpj(tianqindex)=sqly(i) exit for end if end if next'天盘天干 for i=0 to 7 if trim(tpj(i))="" then tpj(i)="  " end if next %> <%'八神 if yinyang then for i=0 to 7 ij=(zfindexa+i)mod 8 bashens(ij)=bashen(i) select case bashens(i) case "直符","六合", "九地" ,"九天" bashens(i)=""&bashens(i)&"" end select next else for i=0 to 7 ij=(zfindexa+i)mod 8 ik=(8-i)mod 8 bashens(ij)=bashen(ik) select case bashens(i) case "直符","六合", "九地" ,"九天" bashens(i)=""&bashens(i)&"" end select next end if 'response.write "zhufu"&zhufu %> <% '飞宫排法 DIM fgJx(8) Dim FgBm(8) dim fGtp(8) dim fgtpJS(8) dim FgDpJs(8) if zhuanf="fg" then '飞宫排法 for ia=0 to 8 if sqly(ia)=sg then Fgsg=ia exit for end if next 'response.write fgsg&"
"&zhufu&"
" if bmindex=0 then bmindex=9 end if if yinyang then '九门九星顺排 for i=0 TO 8 FgJx((i+FgSg)mod 9)=FJIUXing((i+zhufu-1)mod 9) NEXT for i=0 to 8 FgBm((I+bmIndex-1)mod 9)=FjiuMen((zhufu+i-1)mod 9) next for i=0 to 8 '天盘九神 FgtpjS((i+FgSg)mod 9)=Fjiushen(i) next for i=0 to 8 '地盘九神 FgdpjS((i+zhufu-1)mod 9)=Fjiushen(i) next else '九门九星逆排 for i=0 TO 8 FgJx((i+FgSg)mod 9)=FJIUXing((zhufu-i+8)mod 9) 'response.Write((zhufu-i+8)mod 9) NEXT for i=0 to 8'九门 FgBm((I+bmIndex-1)mod 9)=FjiuMen((zhufu-i+8)mod 9) next for i=0 to 8 '九神 FgtpjS((i+FgSg)mod 9)=Fyjiushen((9-i)mod 9) next for i=0 to 8 '地盘九神 FgdpjS((i+zhufu-1)mod 9)=Fyjiushen((9-i)mod 9) next end if '九门九星结尾 'if yinyang then 'response.write Fjiumen(zhufu-1) '天盘天干的 for i=0 to 8 select case FgJx(i) case "蓬" FgTpIndex=0 case "芮" FgTpIndex=1 case "冲" FgTpIndex=2 case "辅" FgTpIndex=3 case "禽" FgTpIndex=4 case "心" FgTpIndex=5 case "柱" FgTpIndex=6 case "任" FgTpIndex=7 case "英" FgTpIndex=8 end select FgTp(i)=sqly(FgTpIndex) next '天盘天干 end if '飞宫结尾 'response.Write(txunshou&) for i= 0 to 8 select case sqly(i) case "乙","丙","丁" sqly(i)=""&sqly(i)&"" end select next for i= 0 to 7 select case tpj(i) case "乙","丙","丁" tpj(i)=""&tpj(i)&"" end select select case tp(i) case "乙","丙","丁" tp(i)=""&tp(i)&"" end select select case jiuxings(i) case "天辅", "天心", "天任", "天禽" jiuxings(i)=""&jiuxings(i)&"" end select next %> <%if phn=1 then%> <%end if%>
奇门遁甲在线排盘系统
姓名:<%=request("name")%> 出生年:<%=request("birthyear")%> 性别: <% if sex=1 then response.Write("男") else response.Write("女") end if %>  占事:<%=zhanshi%>          重算
公历时间:<%=times%>  农历时间:<% call form_load(times,ntime,cyue,cri,cnian) response.Write(ntime) %>
节气:<%=jieqq1&yuan%>&
干支:<%=ygz&" "&mgz&" "&dgz&" "&tgz%>
当日旬空<%=yxunk%>(年) <%=mxunk%>(月) <%=rxunk%>(日) <%=txunk%>(时)
 
此局为<%=DunJu%>  直符:<%=zhifu%>  直使:<%=zhishi%>

<% if zhuanf="zp" then%>
     ┌──────┬──────┬──────┐
     │  <%=bashens(3)%>  │  <%=bashens(4)%>  │  <%=bashens(5)%>  │
     │<%=tianqin(3)%> <%=jiuxings(3)%> <%=tp(3)%>│<%=tianqin(4)%> <%=jiuxings(4)%> <%=tp(4)%>│<%=tianqin(5)%> <%=jiuxings(5)%> <%=tp(5)%>│
     │<%=tpj(3)%> <%=bamens(3)%> <%=sqly(3)%>│<%=tpj(4)%> <%=bamens(4)%> <%=sqly(8)%>│<%=tpj(5)%> <%=bamens(5)%> <%=sqly(1)%>│
     ├──────┼──────┼──────┤
     │  <%=bashens(2)%>  │      │  <%=bashens(6)%>  │
     │<%=tianqin(2)%> <%=jiuxings(2)%> <%=tp(2)%>│      │<%=tianqin(6)%> <%=jiuxings(6)%> <%=tp(6)%>│
     │<%=tpj(2)%> <%=bamens(2)%> <%=sqly(2)%>│     <%=sqly(4)%>│<%=tpj(6)%> <%=bamens(6)%> <%=sqly(6)%>│
     ├──────┼──────┼──────┤
     │  <%=bashens(1)%>  │  <%=bashens(0)%>  │  <%=bashens(7)%>  │
     │<%=tianqin(1)%> <%=jiuxings(1)%> <%=tp(1)%>│<%=tianqin(0)%>  <%=jiuxings(0)%> <%=tp(0)%>│<%=tianqin(7)%> <%=jiuxings(7)%> <%=tp(7)%>│
     │<%=tpj(1)%> <%=bamens(1)%> <%=sqly(7)%>│<%=tpj(0)%> <%=bamens(0)%> <%=sqly(0)%>│<%=tpj(7)%> <%=bamens(7)%> <%=sqly(5)%>│
     └──────┴──────┴──────┘

<%else%>
     ┌─────┬─────┬─────┐
     │<%=fgtpjs(3)%><%=fgjX(3)%>  <%=fgtp(3)%>│<%=fgtpjs(8)%><%=fgjX(8)%>  <%=fgtp(8)%>│<%=fgtpjs(1)%> <%=fgjX(1)%>  <%=fgtp(1)%>│
     │    <%=fgBm(3)%>    │    <%=fgBm(8)%>    │    <%=fgBm(1)%>    │
     │<%=fgdpjs(3)%>巽  <%=sqly(3)%>│<%=fgdpjs(8)%>离  <%=sqly(8)%>│<%=fgdpjs(1)%>坤  <%=sqly(1)%>│
     ├─────┼─────┼─────┤
      │<%=fgtpjs(2)%><%=fgjX(2)%>  <%=fgtp(2)%>│<%=fgtpjs(4)%><%=fgjX(4)%>  <%=fgtp(4)%>│<%=fgtpjs(6)%><%=fgjX(6)%>  <%=fgtp(6)%>│
     │    <%=fgBm(2)%>    │    <%=fgBm(4)%>    │    <%=fgBm(6)%>    │
     │<%=fgdpjs(2)%>震  <%=sqly(2)%>│<%=fgdpjs(4)%>中  <%=sqly(4)%>│<%=fgdpjs(6)%>兑  <%=sqly(6)%>│
     ├─────┼─────┼─────┤
     │<%=fgtpjs(7)%><%=fgjX(7)%>  <%=fgtp(7)%>│<%=fgtpjs(0)%><%=fgjX(0)%>  <%=fgtp(0)%>│<%=fgtpjs(5)%><%=fgjX(5)%>  <%=fgtp(5)%>│
     │    <%=fgBm(7)%>    │    <%=fgBm(0)%>    │    <%=fgBm(5)%>    │
     │<%=fgdpjs(7)%>艮  <%=sqly(7)%>│<%=fgdpjs(0)%>坎  <%=sqly(0)%>│<%=fgdpjs(5)%>乾  <%=sqly(5)%>│
     └─────┴─────┴─────┘

<%end if%>
<%else%>
您提供奇门遁甲在线排盘、阴盘奇门遁甲排盘、奇门遁甲预测实例等服务,让您学习奇门遁甲基础知识和入门。奇门遁甲在线排盘系统
姓名: 出生时间: 性别: 占事:
公历时间: 分  
                       
                        
<%end if%>
奇门遁甲排盘说明

本站为您提供阴盘奇门遁甲排盘、奇门遁甲在线排盘、奇门遁甲预测实例等服务,让您学习奇门遁甲入门和基础知识。奇门遁甲,原来是中国古老的一本书,但它往往被认为是一本占卜用的书,但有的说法是说《奇门遁甲》是我国古代人民在同大自然作斗争中,经过长期观察、反复验证,总结出来的一门传统珍贵文化遗产。还有的说“奇门遁甲”是修真的功法。

  “奇门遁甲”的含义是什么呢?就是由“奇”,“门”,“遁甲”三个概组成。“奇”就是乙,丙,丁三奇;“门”就是休,生,伤,杜,景,死,惊,开八门;“遁”是隐藏的意思,“甲”指六甲,即甲子,甲戌,甲申,甲午,甲辰,甲寅,“遁甲”是在十干中最为尊贵,它藏而不现,隐遁于六仪之下。“六仪”就是戊,己,庚,辛,壬,癸。隐遁原则是甲子同六戊,甲戌同六己,甲申同六庚,甲午同六辛,甲辰同六壬,甲寅同六癸。另外还配合蓬,任,冲,辅,英,芮,柱,心,禽九星。奇门遁的占测主要分为天,门,地三盘,象征三才。天盘的九宫有九星,中盘的八宫(中宫寄二宫)布八门,地盘的八宫代表八个方位,静止不动,同时天盘地盘上,每宫都分配着特定的奇(乙,丙,丁)仪(戊,己,庚,辛,壬,癸六仪)。这样,根据具体时日,以六仪,三奇,八门,九星排局,以占测事物关系,性状,动向,选择吉时吉方,就构成了中国神秘文化中一个特有的门类----奇门遁甲。