<% writecookies() %> 经度查询-国内各大城市西安/上海/成都/武汉/深圳/北京经纬度查询定位

经度查询-国内各大城市西安/上海/成都/武汉/深圳/北京经纬度查询定位

<% if xing<>"" then userbirthday=nian1&"-"&yue1&"-"&ri1 userll=DateDiff("yyyy", userbirthday, date) %>
当前算命者<%=xing&ming%>的信息
姓名:<%=xing&ming%> 性别:<%=xingbie%> <%if xuexing<>"" then%> 血型:<%=xuexing%> 型 <%end if%> 出生:<%=nian1%>年<%=yue1%>月<%=ri1%>日<%=hh1%>时<%=mm1%>分 今年<%=userll%>岁 属相:<%=sx%> 星座:<%=Constellation(nian1&"-"&yue1&"-"&ri1)%> 
<%end if%>
四柱八字 | 大六壬起课 | 六爻起卦 | 奇门遁甲起局 | 玄空飞星 | 金口诀立课 | 紫微斗数 | 真太阳时间修正 | 地区经度查询
<% '其他数据 province1=trim(request("province1")) city1=trim(request("city1")) if not isnumeric(jingdu) then jingdu=0 on error resume next db1="senlonjingdu.asp" Set conn1 = Server.CreateObject("ADODB.Connection") connstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db1) conn1.Open connstr1 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") jingdu=Split(jingdu,".") else jingdu="没有找到相关地区" end if else end if conn1.close set conn1=nothing %> <%if request("act")="ok" then%> <%end if%>
地区经度查询
省份名称: 县市名称:   

 
所查地区:<%=province1%>-<%=city1%>

地区经度:<%=jingdu(0)%>度<%=jingdu(1)%>分

地区经度查询

免费在线电脑算命系统可以为您提供经度查询,包括北京经度,成都经度,武汉经度,深圳经度,上海经度查询等。
* 本系统目前不支持中国以外的地区经度查询,支持中国县级以上城市的经度查询,城市名称结尾请不要带“市”、“县”等字,尽量写短一些,本系统数据支持模糊方式查询。(县市名称可以为空)

卜卦列表
四柱八字 大六壬起课 六爻起卦 奇门遁甲 玄空飞星 紫微斗数 金口诀