<% 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 %> 持枪王者在线客服
香港五湖四海六网资料 安徽快三计划网址 男护士干什么科赚钱 六肖怎样算中奖 重庆时时采彩开奖记录 pk10八码滚雪球3期一收 日本股票涨跌幅限制 快乐赛车破解版 欢乐二人雀神麻将下载 十大专家杀号 如何提高自己的赚钱意识 山东十一选五全天计划 色子大小号规则 6肖中特公开验证 六合彩特码 陕西快乐1o分走势图 <% rs.close set rs=nothing conn.close set conn=nothing end if %>