<%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") D1=request("D1") D2=request("D2") dy=request("dy") 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=4 then response.write(request("addhour")) Randomize() shangguashu=Int((100-1+1)*Rnd(now())+1) shangguashu=int(((shangguashu/8)-int( shangguashu/8))*8+0.5) if shangguashu = 0 then shangguashu=8 end if Randomize() xiaguashu=Rnd(xiaguashu)*100*1 xiaguashu=int(((xiaguashu/8)-int(xiaguashu/8))*8+0.5) if xiaguashu = 0 then xiaguashu=8 end if bianguashu=shangguashu+xiaguashu 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 bianguashu=request("selh")*1+request("selm")*1 response.write(request("addhour")) shangguashu=request("selh")*1 shangguashu=int(((shangguashu/8)-int( shangguashu/8))*8+0.5) if shangguashu = 0 then shangguashu=8 end if xiaguashu=request("selm")*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=2 then bianguashu=dy bianguashu=int(((bianguashu/6)-int(bianguashu/6))*6) 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 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) %>

<% '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)%>   <%=bagua(j,13)%>    <%= tempguaming&bagua(k,1)%>    <%=zcg(j,1)%>
<% for l=1 to 6 %> <% if yao(7-l)<>3 and yao(7-l)<>4 then %> <%=" "&bagua(j,l+1) &"  "&baguabian(k,l+1)&"   "&zcg(j,l+1)%>
<% end if %> <% if yao(7-l)=3 then %> <%="○"&bagua(j,l+1) &"  "&baguabian(k,l+1)&"   "&zcg(j,l+1)%>
<% end if %> <% if yao(7-l)=4 then %> <%="×"&bagua(j,l+1) &"  "&baguabian(k,l+1)&"   "&zcg(j,l+1)%>
<% end if %> <% next %> <% else %> <% fu1=bagua(j,8)*1 fu2=bagua(j,10)*1 %>
<%="  主 卦    互 卦    变 卦     错 卦    综 卦"%>
  <%= tempguaming&bagua(j,1)%>   <%=bagua(j,13)%>    <%= tempguaming&bagua(k,1)%>    <%=zcg(j,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 %> <%=" "&bagua(j,l+1) &"  "&baguabian(k,l+1)&"   "&zcg(j,l+1)%>
<% end if %> <% if yao(7-l)=3 then %> <%="○"&bagua(j,l+1) &"  "&baguabian(k,l+1)&"   "&zcg(j,l+1)%>
<% end if %> <% if yao(7-l)=4 then %> <%="×"&bagua(j,l+1) &"  "&baguabian(k,l+1)&"   "&zcg(j,l+1)%>
<% end if %> <% end if %> <% if fu1=(7-l) then %> <% if yao(7-l)<>3 and yao(7-l)<>4 then %> <%=" "&bagua(j,9)&bagua(j,l+1) &"  "&baguabian(k,l+1)&"   "&zcg(j,l+1)%>
<% end if %> <% if yao(7-l)=3 then %> <%="○"&bagua(j,9)&bagua(j,l+1) &"  "&baguabian(k,l+1)&"   "&zcg(j,l+1)%>
<% end if %> <% if yao(7-l)=4 then %> <%="×"&bagua(j,9)&bagua(j,l+1) &"  "&baguabian(k,l+1)&"   "&zcg(j,l+1)%>
<% end if %> <% end if %> <% if fu2=(7-l) then %> <% if yao(7-l)<>3 and yao(7-l)<>4 then %> <%=" "&bagua(j,11)&bagua(j,l+1) &"  "&baguabian(k,l+1)&"   "&zcg(j,l+1)%>
<% end if %> <% if yao(7-l)=3 then %> <%="○"&bagua(j,11)&bagua(j,l+1) &"  "&baguabian(k,l+1)&"   "&zcg(j,l+1)%>
<% end if %> <% if yao(7-l)=4 then %> <% ="×"&bagua(j,11)&bagua(j,l+1) &"  "&baguabian(k,l+1)&"   "&zcg(j,l+1)%>
<% end if %> <% end if %> <% next %> <% end if %> <% end if %>


  <%bengua=mid(bagua(j,1),1,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%>