<% '其他数据 youname1=trim(request("youname1")) youname2=trim(request("youname2")) nx=trim(request("nx")) xx=trim(request("xx")) sex=trim(request("sex")) riqi=trim(request("nian"))&"-"&trim(request("yue"))&"-"&trim(request("ri")) if len(riqi)<6 then riqi=trim(request("riqi")) if riqi="" then riqi=year(now())&"-"&month(now())&"-"&day(now()) else riqi=FormatDateTime(riqi, 1) '转换成时间格式 end if nian=year(riqi) yue=month(riqi) ri=day(riqi) hh=trim(request("hh")) fen=trim(request("fen")) if nian="" then nian=year(now()) if yue="" then yue=month(now()) if ri="" then ri=day(now()) if hh="" then hh=hour(now()) if fen="" then fen=minute(now()) hh1=hh province1=trim(request("province1")) city1=trim(request("city1")) jingdu=trim(request("jingdu")) if not isnumeric(jingdu) then jingdu=0 on error resume next db1="cidujingdu.asp" Set conn1 = Server.CreateObject("ADODB.Connection") connstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db1) conn1.Open connstr1 If Err Then err.Clear Response.Write "" Response.Write "欢迎使用Pibazi.net热线www.Pibazi.net/paipan提供的在线算命系统" Response.Write "" Response.Write "" Response.Write "Sorry! 数据库连接出错,请点这里刷新," Response.Write "如果多次刷新还出现这个情况,请告诉我们0335-6183960!我" Response.Write "们会尽快修复。

" conn1.close Set conn1 = Nothing Response.End End If if province1<>"" and city1<>"" then set rs=server.createobject("ADODB.recordset") strsql="select * from jd where sheng='"&province1&"' and xian='"&city1&"'" rs.open strsql,conn1,1,1 if not rs.eof then id=rs("id") jingdu=rs("jingdu") shi=rs("shi") cxsjk="yes" end if else shi=4*(jingdu-120)/60 end if if cxsjk="" then province1="" city1="" end if if cxsjk="" and jingdu<>0 then set rs=server.createobject("ADODB.recordset") strsql="select * from jd where jingdu="&jingdu&" order by jingdu" rs.open strsql,conn1,1,1 if not rs.eof then do while not rs.eof id2=rs("id") sheng2=rs("sheng") xian2=rs("xian") jingdu2=rs("jingdu") dilimess=dilimess&""&sheng2&"-"&xian2&" " rs.movenext loop dilimess="


该经度所处的地点可能是在 "&dilimess else set rs=server.createobject("ADODB.recordset") strsql="select * from jd where jingdu>="&jingdu&" order by jingdu" rs.open strsql,conn1,1,1 if not rs.eof then id2=rs("id") sheng2=rs("sheng") xian2=rs("xian") jingdu2=rs("jingdu") dilimess="
最靠近该经度的地点可能是在 "&sheng2&"-"&xian2&"(经度为"&jingdu2&") " end if set rs=server.createobject("ADODB.recordset") strsql="select * from jd where jingdu<="&jingdu&" order by jingdu desc" rs.open strsql,conn1,1,1 if not rs.eof then id2=rs("id") sheng2=rs("sheng") xian2=rs("xian") jingdu2=rs("jingdu") dilimess=dilimess&"和 "&sheng2&"-"&xian2&"(经度为"&jingdu2&") 。" end if end if end if miao=0 sj1=nian&"年"&yue&"月"&ri&"日 "&hh1&":"&fen&":"&miao&"" sj11=nian&"-"&yue&"-"&ri&" "&hh1&":"&fen&":"&miao&"" sj11=FormatDateTime(sj11, 0) '转换成时间格式 sj00=sj11 xialing=trim(request("xialing")) if xialing="yes" then sj11=DateAdd("s", -3600, sj11) '夏令时间处理 sj22=DateAdd("s", shi*3600, sj11) '加上平太阳时间差值 set rs=server.createobject("ADODB.recordset") strsql="select * from yr where yue="&yue&" and ri="&ri&"" rs.open strsql,conn1,1,1 if not rs.eof then id=rs("id") shi=rs("shi") end if conn1.close set conn1=nothing sj33=DateAdd("s", shi*3600, sj22) '加上平太阳时间差值 nian3=year(sj33) yue3=month(sj33) ri3=day(sj33) hh3=hour(sj33) fen3=minute(sj33) miao3=second(sj33) %> 杭州瀚发文化策划有限公司|在线排盘
真太阳时间修正

出生日期:
             
             
             
             
             
             
(*北京标准时间)
出生时间: (*24小时制,00:00~23:59。) checked<%end if%>>夏令时间
出生地点:

若不在上面的选择中,请填写出生地经度度<%=dilimess%>

 

<%if request("riqi")<>"" then%>

 
  原始时间:<%=sj00%>

北京标准时间:<%=sj11%>

 平太阳时间:<%=sj22%>

 真太阳时间:<%=sj33%>

<%end if%>