<%if request("act")="ok" then%> <% function wuxing(x) select case x case "甲","乙","寅","卯" wuxing="木金火" case "丙","丁","巳","午" wuxing="火水土" case "戊","己","辰","戌","丑","未" wuxing="土木金" case "庚","辛","申","酉" wuxing="金火水" case "亥","子","壬","癸" wuxing="水土木" end select end function name=request("name") jg=request("jg") Response.Cookies("ciduppname")=name zhanshi=request("zhanshi") Response.Cookies("ciduppzhanshi")=zhanshi y=request("y") m=request("m") d=request("d") mins=request("min") h=request("h") birthyear=request("birthyear") Response.Cookies("ciduppyear")=birthyear sex=request("sex") Response.Cookies("ciduppsex")=sex phn=request("pai") df=request("df") zhouye=trim(request("zhouye")) Pf=request("pf") Nyangli=y&"年"&m&"月"&d&"日"&h&"時"&mins&"分" zhouye=request.Form("zhouye") sex=request("sex") Gsarrage=request("guishen") %> <%'年命 dys=(birthyear-1924)mod 12 dys=(dys+12) mod 12 tys=(birthyear-1924)mod 10 tys=(tys+10)mod 10 ygzs=tg(tys)&dz(dys) call xunkong(ygzs,yxks,yxss) 'response.write yxss suishu=y-birthyear+1 if sex then hntg=(2+suishu-1) mod 10 hndz=(dzorder(yxss)+suishu)mod 12 else hntg=(9+suishu-1) mod 10 hndz=(dzorder(yxss)-4+suishu)mod 12 end if if phn=1 then if suishu<=0 then response.write "你的輸入有誤" response.end end if hangn=tg(hntg)&dz(hndz) end if 'response.write hangn&suishu %> <%dates=y&"-"&m&"-"&d Ytime=dates&" "&h&":"&m&":00" if not isdate(dates) then response.write dates&"不是一個合法的日期" response.end end if 'response.write ytime call sizhu(y,m,d,h,mins,ygz,mgz,dgz,tgz) call form_load(ytime,ntime,cyue,cri,cnian) call makejq(ytime,prejq,nextjq) nJQ=RIGHT(NEXTjQ,2) %> <%call xunkong(ygz,yxk,yxs) call xunkong(mgz,mxk,mxs) call xunkong(dgz,dxk,dxs) call xunkong(tgz,hxk,hxs) 'response.write yxk %> <%'地分 select case request("dftag") case 2 dzindex=request("nums") Df=dz((dzindex+11)mod 12) case 1 df=dz(request("df")) case 3 randomize df=dz(round(rnd*11) mod 12) end select %> <% '月將 select case pf case 1 select case nJQ case "立春","雨水" yuej="亥" case "驚蟄","春分" yuej="戌" case "清明","谷雨" yuej="酉" case "立夏","小滿" yuej="申" case "芒種","夏至" yuej="未" case "小暑","大暑" yuej="午" case "立秋","處暑" yuej="巳" case "白露","秋分" yuej="辰" case "寒露","霜降" yuej="卯" case "立冬","小雪" yuej="寅" case "大雪","冬至" yuej="丑" case "小寒","大寒" yuej="子" END SELECT case 2 select case njq case "雨水","驚蟄" yuej="亥" case "春分","清明" yuej="戌" case "谷雨","立夏" yuej="酉" case "小滿","芒種" yuej="申" case "夏至","小暑" yuej="未" case "大暑","立秋" yuej="午" case "處暑","白露" yuej="巳" case "秋分","寒露" yuej="辰" case "霜降","立冬" yuej="卯" case "小雪","大雪" yuej="寅" case "冬至","小寒" yuej="丑" case "大寒","立春" yuej="子" end select end select '月將 %> <%'將神 shizhi=right(tgz,1) riganorder=Tgorder(dgz)-1 szorder=DzOrder(shizhi) yjorder=dzorder(yuej) dforder=dzorder(df) jsorder=(yjorder+(dforder-szorder)+12) mod 12 if jsorder=0 then jsorder=12 end if jiangs=dz(jsorder-1) js=jsname(jsorder-1) %> <% '貴神 if zhouye=2 then if szorder>=4 and szorder<10 then zhouye=1 else zhouye=0 end if end if '默認的晝夜選擇 if gsarrage then select case left(dgz,1) case "甲","戊","庚" if zhouye then startGs="丑" else startGs="未" end if case "乙","己" if zhouye then startGs="子" else startGs="申" end if'寅申鄉 case "丙","丁" if zhouye then startGs="亥" else startGs="酉" end if'"巳"酉 case "壬","癸" if zhouye then startGs="巳" else startGs="卯" end if'巳亥 case "辛" if zhouye then startGs="午" else startGs="寅" end if'午虎 end select else select case left(dgz,1) case "甲" if zhouye then startGs="未" else startGs="丑" end if case "戊","庚" if zhouye then startGs="丑" else startGs="未" end if case "乙" if zhouye then startGs="申" else startGs="子" end if'寅申鄉 case "己" if zhouye then startGs="子" else startGs="申" end if'寅申鄉 case "丙" if zhouye then startGs="酉" else startGs="亥" end if'"巳"酉 case "丁" if zhouye then startGs="亥" else startGs="酉" end if'"巳"酉 case "壬" if zhouye then startGs="卯" else startGs="巳" end if'巳亥 case "癸" if zhouye then startGs="巳" else startGs="卯" end if'巳亥 case "辛" if zhouye then startGs="寅" else startGs="午" end if'午虎 end select end if StartGsOrder=DzOrder(startgs) if StartGsOrder>=6 and StartGsOrder<=11 then dir=0 else dir=1 end if '確定鬼神順逆 'response.Write(zhouye) if dir then gsorder=(12+dforder-startgsorder) mod 12 else gsorder=(12+startgsorder-dforder) mod 12 end if gsdz=uisdz(gsorder) guiren=guishen(gsorder) %> <%'人元 將神,貴神天干 if riganorder>4 then ryindex=(riganorder-4)*2-2 else ryindex=(riganorder+1)*2-2 end if jstgindex=(ryindex+jsorder-1)mod 10 'response.write riganorder&ryindex&gsorder gstgindex=(ryindex+dzorder(gsdz)-1)mod 10 ryindex=(ryindex+dforder-1)mod 10 'response.write jsorder gstg=tg(gstgindex) jstg=tg(jstgindex) renyuan=tg(ryindex) %> <%'定用爻 yyy=tgorder(renyuan) myy=dzorder(gsdz) dyy=dzorder(jiangs) hyy=dzorder(df) if (yyy mod 2)=1 then yyy=1 else yyy=-1 end if if (myy mod 2)=1 then myy=1 else myy=-1 end if if (dyy mod 2)=1 then dyy=1 else dyy=-1 end if if (hyy mod 2)=1 then hyy=1 else hyy=-1 end if yytag=yyy+myy+dyy+hyy 'response.write yytag if yytag=2 then if myy=-1 then gsyy="【用爻】" end if if dyy=-1 then jsyy="【用爻】" end if end if if yytag=-2 then if myy=1 then gsyy="【用爻】" end if if dyy=1 then jsyy="【用爻】" end if end if if yytag=0 or yytag=-4 then jsyy="【用爻】" end if if yytag=4 then gsyy="【用爻】" end if %> <%'四大空亡 if dxs="甲子" or dxs="甲午" then kongmang="水" end if if dxs="甲寅" or dxs="甲申" then kongmang="金" end if %> <%'14旺衰 dim ws(3) tag=0 wxry=wuxing(renyuan) wxgs=wuxing(gsdz) wxjs=wuxing(jiangs) wxdf=wuxing(df) wxstr=left(wxry,1)&left(wxgs,1)&left(wxjs,1)&left(wxdf,1) 'response.write wxstr if instr(wxstr,mid(wxry,2,1))=0 then ws(0)="旺" tag=tag+1 else ke=left(wxry,1) end if if instr(wxstr,mid(wxgs,2,1))=0 then ws(1)="旺" tag=tag+1 else ke=left(wxgs,1) end if if instr(wxstr,mid(wxjs,2,1))=0 then ws(2)="旺" tag=tag+1 else ke=left(wxjs,1) end if if instr(wxstr,mid(wxdf,2,1))=0 then ws(3)="旺" tag=tag+1 else ke=left(wxdf,1) end if if tag=2 then if right(wxry,1)=ke then ws(0)="" end if if right(wxgs,1)=ke then ws(1)="" end if if right(wxjs,1)=ke then ws(2)="" end if if right(wxdf,1)=ke then ws(3)="" end if end if %>
金口訣實用工具系統
   姓名:<%=name%>   生年:<%=birthyear%>  性別: <%if sex=1 then response.Write("男") else response.Write("女") end if%>   占事:<%=zhanshi%>
   公歷: <%=NYANGLI%>  農歷:<%=ntime%>
   節氣:<%=nextjq%>
   干支 <%=ygz%>  <%=mgz%>  <%=dgz%>  <%=tgz%>  月將:<%=yuej%>將
   旬空: <%=yxk%>  <%=mxk%>  <%=dxk%>  <%=hxk%>   <%if kongmang<>"" then%> 四大空亡: <%=kongmang%> <%else%> www.449346.tw <%end if%> <%if phn=1 then%>
   年命: <%=ygzs%> <%end if%> <%if phn=1 then%>
   行年: <%=hangn%> <%end if%>
 
   人元: <%=renyuan%> <%'=ws(0)%>
   貴神: <%=gstg%><%=gsdz%>(<%=guiren%>) <%=gsyy%><%'=ws(1)%>
   將神: <%=jstg%><%=jiangs%>(<%=js%>)<%=jsyy%> <%'=ws(2)%>
   地分: <%=df%> <%'=ws(3)%>
<%else%><% dz(0)="子" dz(1)="丑" dz(2)="寅" dz(3)="卯" dz(4)="辰" dz(5)="巳" dz(6)="午" dz(7)="未" dz(8)="申" dz(9)="酉" dz(10)="戌" dz(11)="亥" %>
金口訣實用工具系統
姓名: 出生時間: 性別: 占事:
公歷時間: 分   排行年
地分。 報數 隨機地分
貴人運行: 自動
 
<%end if%>
金口訣的源流

  提到金口訣就不可以不說大六壬,因為金口訣的全稱就是"大六壬神課金口訣"。因此,可知金口訣是源于大六壬脫胎形成的新的一種預測科學。
   大六壬據傳說源于上古九天玄女,但這畢竟只是傳說。有史料記載的就是東漢趙曄《吳越春秋》,袁康《越絕書》均已有大六壬之文字,故由此可知大六壬應早于東漢時期出現。
   大六壬發展到戰國時期,由阿鄄之間出生的偉大的軍事家、玄學家孫臏簡化而形成一門嶄新的預測體系--"大六壬神課金口訣",又有"孫臏神課"、"小六壬"、"六壬時課"等諸多別名。
  金口訣自孫臏創立后,在其傳人后代中口口相傳,不留文字,一直不為外人所知。我們現在可以看到的有關金口訣的著作最早的就是明朝時期的《大六壬神課金口訣》。這也是金口訣唯一的古版專著,但內容參差不齊,留下了幾個時代的痕跡,并且篇張之間的距離感很強,由我推測應該不是一個人所著,此書應該是幾個朝代的金口訣先師智慧的結晶。
  金口訣在孫臏之后的傳承者們遠離了政治舞臺。以行卜為生,由于時代的久遠,在傳承上出現了一些不同的小支派,有的重口訣神煞,有的重旺相休囚,有的重年月日時對課內的影響等等,不一而同。這給金口訣的愛好者帶來了許多的麻煩事,以致于到今天為止能全力研究金口訣的易學愛好者寥寥無幾,更談不上精通了。
金口訣斷課的幾種層次
  一種易術的好壞高低,無非是準確率的問題。"金口訣"既然有這樣一個名字,也肯定有著它必然的道理。前文提到金口訣的傳承中出現了分化分支的問題,導致了每個流派在斷課中使用的方法不同,從而使準確率成為評價一種流派最佳的裁判。
  金口訣斷課分為以下幾種層次:
  第一種層次就是用口訣生搬硬套,簡單的三動五動、大量的神煞,以及用月令日辰分出旺衰,這種斷課方法是當前在金口訣界最多的斷課技能,流傳得最廣,也是最簡單的方法,應驗率一般。
  第二層次,就是可以不用口訣、神煞,不用月令日辰的旺衰,可以靈活應用三動五動,準確地判斷課內旺衰,大量地使用旺相休囚死配合用爻來判斷事體,達到這種層次的人已經不多了,用這種方法斷課準確率可迅速提升至令人驚漢的境界。
  第三層次,就是已經進入化境,對各種金口訣的理論精髓全部融會貫通,達到可以不用三動五動,不用旺相休囚死,只憑五行之間的生克來斷事,這種層次已經是超越了金口訣的界限,可以靈活應用各種易術來給金口訣服務,說到底的一句話就是干支關系爛熟于心。
  以上三個層次就是當今金口訣界的現狀,想提升層次又須要聚備扎實的基本功和敏于上進的心態和明師不斷的循循善誘。具備了以上幾點,學好用好金口訣就不是一件難事了。
  金口訣美好的明天靠我們一起來創造!
江西时时彩前三走势图