<%if request("act")="ok" then%> <% yea=year(now()) mon=month(now()) dat=day(now()) hou=hour(now()) minut=minute(now()) %> <% shi=request.Form("shi") name=request.Form("name") sn=request.Form("sn") Response.Cookies("ciduppname")=name y=request.Form("year") m=request.Form("month") d=request.Form("date") h=request.Form("hour") min=request.Form("minute") ZhanShi=request.Form("zhanshi") sex=request.Form("sex") if sex="1" then sex="男" else sex="女" bornyear=request.Form("birthyear") qgfs=request.Form("qgfs") select case qgfs case 1 Fs="电脑自动" case 2 Fs="时间起卦" case 3 Fs="直接指定" case 4 Fs="报数起卦" case 5 Fs="双数起卦" end select '获得提交的数字%> <% qgsj=y&"年"&m&"月"&d&"日"&h&"时"&min&"分" '起卦时间 truedate=y&"-"&m&"-"&d&" "&h&":"&min&":00" '时间格式 call sizhu(y,m,d,h,min,ygz,mgz,dgz,tgz) '四柱 call xunkong(dgz,xunk,xunshou) call form_load(truedate,ntime,CYUE,CRI,cniaN) call MakeJq(truedate,PreJq,Njq1,Njq2) %> <% 'response.Write(rnd(0)) 'rnd(-1) select case qgfs case 1 Randomize a=rnd(100) GuaIndex=int(a*63) '随即产生卦 'response.Write(a) YaoIndex=INT(a*5)+1'随即产生爻 case 2 select case request("tfs") case 1 yorder=Dzorder(ygz) torder=dzorder(tgz) shangGua=((yorder+cyue+cri) mod 8)-1 xiagua=((yorder+cyue+cri+torder) mod 8)-1 if shanggua=-1 then shanggua=7 end if if xiagua=-1 then xiagua=7 end if yaoindex=(yorder+cyue+cri+torder) mod 6 bgindex=baguabit(xiagua)&baguabit(shanggua) 'response.Write(shanggua&","&xiagua&"
") 'response.Write(yorder&"
") ' response.Write(torder&"
") ' response.Write(cyue&"
") ' response.Write(cri&"
") case 2 num=request("tnum") yorder=Dzorder(ygz) torder=dzorder(tgz) shangGua=((yorder+cyue+cri+num) mod 8)-1 xiagua=((yorder+cyue+cri+num+torder) mod 8)-1 if shanggua=-1 then shanggua=7 end if if xiagua=-1 then xiagua=7 end if yaoindex=(xiagua+num) mod 6 bgindex=baguabit(xiagua)&baguabit(shanggua) case 3 Minutes=Minute(now) Seconds=Second(now) shanggua=(minutes mod 8)-1 xiagua=(seconds mod 8)-1 if shanggua=-1 then shanggua=7 end if if xiagua=-1 then xiagua=7 end if yaoindex=(minutes+seconds) mod 6 bgindex=baguabit(xiagua)&baguabit(shanggua) end select 'response.write yorder&"
" 'response.write torder&"
" 'response.write cyue&"
" 'response.write cri&"
" 'response.write bgindex&"
" 'response.write yaoindex&"
" ' response.end case 3 yaoindex=request("dy") BgInDex=request("y1")&request("y2")&request("y3")&request("y4")&request("y5")&request("y6") case 4 num=trim(request("num")) yorder=Dzorder(ygz) torder=dzorder(tgz) shanggua=(num mod 8)-1 xiagua=((num+torder) mod 8)-1 if shanggua=-1 then shanggua=7 end if if xiagua=-1 then xiagua=7 end if yaoindex=(num+torder) mod 6 'response.Write(torder) 'response.Write(num) 'response.End() bgindex=baguabit(xiagua)&baguabit(shanggua) case 5 num1=trim(request("num_up"))-1 num2=trim(request("num_down"))-1 shanggua=num1 mod 8 xiagua=num2 mod 8 if shanggua=-1 then shanggua=7 end if if xiagua=-1 then xiagua=7 end if yaoindex=(num1+num2+2) mod 6 bgindex=baguabit(xiagua)&baguabit(shanggua) case 6 shanggua=request.Form("num1")-1 xiagua=trim(request("num2"))-1 if shanggua=-1 then shanggua=7 end if if xiagua=-1 then xiagua=7 end if yaoindex=trim(request("num3")) bgindex=baguabit(xiagua)&baguabit(shanggua) end select 'response.Write(bgindex) if yaoindex=0 then yaoindex=6 end if select case yaoindex case 1 yao="初爻" case 2 yao="二爻" case 3 yao="三爻" case 4 yao="四爻" case 5 yao="五爻" case 6 yao="上爻" end select 'response.Write(yaoindex) 'response.end '本卦 if qgfs=1 then BgIndex=gua(GuaIndex) end if Bit=Mid(BgIndex,YaoIndex,1) Bit=bit xor "1" Biangbit=left(BgIndex,YaoIndex-1)&bit&right(BgIndex,6-YaoIndex) '变卦序号 'Bin=CBTOI(biangindex) 'response.write biangindex Uhg=mid(bgIndex,2,3) Lhg=mid(bgindex,3,3) HgBit=Uhg&Lhg '互卦 ZgBit=strreverse(BgIndex) call Cfan(bgindex,CgBit) 'response.Write("111111" xor "001011") for i=0 to 63 if Gua(i)=Biangbit then '求出变卦序号 biangIndex=i end if if Gua(i)=HgBit then '求出互卦序号 HgIndex=i end if if Gua(i)=cgBit then '求出错卦序号 cgIndex=i end if if Gua(i)=zgBit then '求出错卦序号 zgIndex=i end if if Gua(i)=bgindex then '求出错卦序号 guaIndex=i end if next %> <%'变卦,本卦,互卦 BenGua=GM(gUAiNDEX) BianGua=GM(biangindex) HuGua=Gm(HgIndex) CuoGua=Gm(cgindex) zonggua=Gm(zgindex) 'response.Write(bgindex&"."&cgbit&"."&biangbit) %>
姓名:<%=name%>  性别:<%=sex%> 生年:<%=sn%>
占问事情:<%=shi%>
起卦方式:<%=fs%>    
公历:<%=qgsj%>   
农历:<%response.Write(ntime)%>
<%=njq1%>     <%=webname%>在线排盘系统
<%=njq2%>     <%=weburl%>

四柱:<%=ygz%>年 <%=mgz%>月 <%=dgz%>日 <%=tgz%>时(<%=xunk%>空)
<% function cidugua(ciduguatemp) response.write ciduguatemp for i=1 to 4-len(ciduguatemp) response.write " " next End Function %>
本卦     互卦     变卦     错卦     综卦

<%=cidugua(BenGua)%>   <%=cidugua(HuGua)%>   <%=cidugua(BianGua)%>   <%=cidugua(cuoGua)%>   <%=cidugua(zongGua)%>
<%for i=1 to 6 bgBit=right(bgindex,1) bgindex=left(bgindex,6-i) hugBit=right(Hgbit,1) hgbit=left(hgbit,6-i) bianguabit=right(biangbit,1) biangbit=left(biangbit,6-i) zgsbit=right(zgbit,1) zgbit=left(zgbit,6-i) cgsbit=right(cgbit,1) cgbit=left(cgbit,6-i) YaoIndex=cint(yaoindex) %> <%if bgbit then %> ▅▅▅▅▅ <% if yaoindex=7-i then ' response.write "dddddddddddddd" response.Write("○") else response.Write("  ") end if%> <% else %> ▅▅ ▅▅ <%if yaoindex=7-i then ' response.write "dddddddddddddd" response.Write("×") else response.Write("  ") end if%> <% end if%> <%if hugbit then%> ▅▅▅▅▅   <%else%> ▅▅ ▅▅   <%end if%> <%if bianguabit then%> ▅▅▅▅▅   <%else%> ▅▅ ▅▅   <%end if%> <%if cgsbit then%> ▅▅▅▅▅   <%else%> ▅▅ ▅▅   <%end if%> <%if zgsbit then%> ▅▅▅▅▅   <%else%> ▅▅ ▅▅   <%end if%>
<%next%> <%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=trim(fn.readline) if instr(str,bengua)>0 then tag=false title=str end if wend while not fn.atendofstream and tag1 str=trim(fn.readline) if trim(str)<>"********************" then guaci=guaci&str else tag1=false end if wend while not fn.atendofstream and tag2 str=trim(fn.readline) if instr(str,"《易经》")>0 then tag2=false else guayao=guayao&"
"&str end if wend %>
<%=title%>
 
<%=guaci%> <%=guayao%>
<%else%> <%=webname%>----梅花易数在线排盘系统 <% yea=year(now()) mon=month(now()) dat=day(now()) hou=hour(now()) minut=minute(now()) %>

梅花易数排盘系统

<%=rs("ad2")%>
占事
信息
姓名性别生年
时间
方式 手动起卦 报数起卦 双数起卦
三数起卦 时间起卦 电脑自动
<%end if%><%end if%>