<% if err<>0 then response.write("
無法連接數據庫
") else dim id dim s1,s2,jd,wd dim x0,y0,y1,y2,x1,x2 y1="南緯" y2="北緯" x1="東經" x2="西經" s1="經" s2="緯" ' s4=")" function dojwd(jwdstr) '東經103.4,北緯31.0 '經度 nstr=jwdstr l0=len(nstr) l1=instr(nstr,s1) t1=right(nstr,l0-l1) x0=x1 x3=instr(nstr,x0) if x3=0 then x0=x2 y0=y1 y3=instr(t1,y0) if y3=0 then y0=y2 y3=instr(t1,y0) end if jd=left(t1,y3-1) '緯度 wd=right(nstr,len(t1)-y3-1) 'response.write jd &"
"&wd end function function dojwdstr(sostrx) '北緯31.0,東經103.4 '北緯22.0°、東經114.3° 'response.write sostrx sostrx=replace(sostrx,",","") sostrx=replace(sostrx,"、","") 'sostrx=replace(sostrx,"、","") sostrx=replace(sostrx,"°","") sostrx=replace(sostrx,"°","") sostrx=replace(sostrx,"度","") dojwdstr=sostrx 'response.write sostrx end function function dowjd(jwdstr) '緯度 nstr=jwdstr 'response.write nstr l0=len(nstr) l1=instr(nstr,s2) t1=right(nstr,l0-l1) y0=y1 y3=instr(nstr,y0) if y3=0 then y0=y2 x0=x1 x3=instr(t1,x0) if x3=0 then x0=x2 x3=instr(t1,x0) end if wd=left(t1,x3-2) '經度 jd=right(t1,len(t1)-x3-1) 'response.write jd &"
"&wd end function id=request("id") sql="select * from dzbigseis where id="& id Set RS = Server.CreateObject("ADODB.RecordSet") pic="nrpic" rs.Open sql, Conn, 0, 2 nr=rs("nr") name=rs("name") sj=rs("shijian") nr="    "&replace(nr,"VbV","'") '據廣東省地震臺網測定,北京時間2011年04月14日14時08分,在日本本州東海岸附近海域(東經141.8北緯35.7)發生震級M6.0地震 '據中國地震臺網測定,北京時間2010-03-06 10:49 在河北省唐山市灤縣、唐山市市轄區交界(北緯39.7東經118.5) 發生3.1級地震。 'nr=replace(nr,",","") '去掉逗號 '(北緯22.0°、東經114.3°) l0=len(nr) v1=instr(nr,"(") ' response.write v1 if v1=0 then v1=instr(nr,"(") nr1=right(nr,l0-v1) v2=instr(nr1,")") if v2=0 then v2=instr(nr1,")") nr2=left(nr1,v2-1) nr2=trim(nr2) ' response.write nr2 nr2=dojwdstr(nr2) 'response.write"
"&nr2 dojwd(nr2) j1=jd w1=wd 'response.write w1 '******************************************* '如果經緯度位置調換 if (j1=0) or (w1=0) then dowjd(nr2) end if 'response.write wd 'response.write err.description 'response.write jd &"
"&wd '如果經緯度數值正確 %> 赌博长龙规律
<%=name%>
<%=nr%>
<% if (jd>0) and (wd>0) then 'response.write x0&"gg "&x2 if y0=y1 then wd=-wd if x0=x2 then jd=-jd 'wd=-7.8 %>
<% end if %> 票时时开奖结果 电玩捕鱼千炮版更新 攒劲甘肃麻将漏洞 别克君越滴滴赚钱吗 北京赛车投注网址多少 象棋开局布阵法 打开浙江快乐彩走势图 肉串赚钱吗 拼搏在线彩票网 陕西快乐10分多少期 幸运赛车 赚钱 上海时时乐幵奖结果彩票控 手游赚钱接单平台 博远棋牌后台代理网 悠洋棋牌官方下载 足彩4场进球怎么玩 <% rs.close set rs=nothing conn.close set conn=nothing end if %>