<%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%>
奇門遁甲排盤說明

奇門遁甲,原來是中國古老的一本書,但它往往被認為是一本占卜用的書,但有的說法是說《奇門遁甲》是我國古代人民在同大自然作斗爭中,經過長期觀察、反復驗證,總結出來的一門傳統珍貴文化遺產。還有的說“奇門遁甲”是修真的功法。

“奇門遁甲”的含義是什么呢?就是由“奇”,“門”,“遁甲”三個概組成。“奇”就是乙,丙,丁三奇;“門”就是休,生,傷,杜,景,死,驚,開八門;“遁”是隱藏的意思,“甲”指六甲,即甲子,甲戌,甲申,甲午,甲辰,甲寅,“遁甲”是在十干中最為尊貴,它藏而不現,隱遁于六儀之下。“六儀”就是戊,己,庚,辛,壬,癸。隱遁原則是甲子同六戊,甲戌同六己,甲申同六庚,甲午同六辛,甲辰同六壬,甲寅同六癸。另外還配合蓬,任,沖,輔,英,芮,柱,心,禽九星。奇門遁的占測主要分為天,門,地三盤,象征三才。天盤的九宮有九星,中盤的八宮(中宮寄二宮)布八門,地盤的八宮代表八個方位,靜止不動,同時天盤地盤上,每宮都分配著特定的奇(乙,丙,丁)儀(戊,己,庚,辛,壬,癸六儀)。這樣,根據具體時日,以六儀,三奇,八門,九星排局,以占測事物關系,性狀,動向,選擇吉時吉方,就構成了中國神秘文化中一個特有的門類----奇門遁甲。

浙江6+1开奖时间几点