21世纪防雷网 - 中国防雷形势图

<% Response.Charset="utf-8" '========= 读取形势菜单注解 ================================================ dim EsArr(100) dim EstateStr EstateStr="" sql="select ID,MENU from [MenuTree] order by MENU" set rs=CON.execute(sql) if not (rs.bof or rs.eof) then do while not (rs.bof or rs.eof) EsArr(rs(0))=rs(1) EstateStr=EstateStr&"" rs.movenext loop end if rs.close set rs=nothing '========= 读取[ AREA ]形势菜单 ================================================ dim AmenuString AmenuString="" sql="select b.ID,b.ESTATE,a.PROV,a.CITY,b.ComName from AreaAdd as a inner join Company as b ON a.ID=b.AreaID order by b.ESTATE,PROV,CITY" set rs=CON.execute(sql) if not (rs.bof or rs.eof) then do while not (rs.bof or rs.eof) AmenuString=AmenuString&EsArr(rs(1))&"|"&rs(2)&"|"&rs(3)&"|"&rs(4)&"__"&rs(0)&"~~" rs.movenext loop end if rs.close set rs=nothing AmenuString=left(AmenuString,len(AmenuString)-2) '========= 读取[ ESTATE ]形势菜单 ================================================ dim EmenuString EmenuString="" sql="select b.ID,b.ESTATE,a.PROV,a.CITY,b.ComName from AreaAdd as a inner join Company as b ON a.ID=b.AreaID order by a.PROV,a.CITY,b.ESTATE" set rs=CON.execute(sql) if not (rs.bof or rs.eof) then do while not (rs.bof or rs.eof) EmenuString=EmenuString & rs(2) &"|"& rs(3) &"|"& EsArr(rs(1)) &"|"& rs(4) &"__"&rs(0)&"~~" rs.movenext loop end if rs.close set rs=nothing EmenuString=left(EmenuString,len(EmenuString)-2) '========= 读取[ STRIKE ]分时形势菜单 ================================================ dim SmenuString SmenuString="" sql="select a.ID,b.PROV,b.CITY,a.strikeTime,a.strikeName from strikeDB as a inner join AreaAdd as b ON a.AreaID=b.ID order by year(a.strikeTime),b.PROV,b.CITY" set rs=CON.execute(sql) if not (rs.bof or rs.eof) then do while not (rs.bof or rs.eof) SmenuString=SmenuString & year(rs(3)) &"|"& rs(1) &"|"& rs(2) &"|"& rs(4) &"__"&rs(0)&"~~" rs.movenext loop end if rs.close set rs=nothing SmenuString=left(SmenuString,len(SmenuString)-2) '========= 读取[ STRIKE ]分省形势菜单 ================================================ dim SPmenuString SPmenuString="" sql="select a.ID,b.PROV,b.CITY,a.strikeTime,a.strikeName from strikeDB as a inner join AreaAdd as b ON a.AreaID=b.ID order by b.PROV,b.CITY,a.strikeTime" set rs=CON.execute(sql) if not (rs.bof or rs.eof) then do while not (rs.bof or rs.eof) SPmenuString=SPmenuString & rs(1) &"|"& rs(2) &"|"& year(rs(3)) &"|" & rs(4) &"__"&rs(0)&"~~" rs.movenext loop end if rs.close set rs=nothing SPmenuString=left(SPmenuString,len(SPmenuString)-2)'========== 基本菜单读取完毕 ============================================================ dim gkey 'for bbs.asp.com.cn key=ABQIAAAAQu8n2Bd93aRxgDZFqbCLXxQ7H75yK2QyFVpqDXim_uzEVBFehRTf_mRYsyJCg0hk-KnQdS5jzLqoJQ 'key for asp.cn key=ABQIAAAAQu8n2Bd93aRxgDZFqbCLXxSG3yG7xqXZl7TtLvR8v0cYCRFUnBSGC2jZRWbW6s6bFZ35z6raCHXHRQ if instr(Request.ServerVariables("Server_Name"),"asp.com.cn")>0 then gkey="ABQIAAAAQu8n2Bd93aRxgDZFqbCLXxQ7H75yK2QyFVpqDXim_uzEVBFehRTf_mRYsyJCg0hk-KnQdS5jzLqoJQ" elseif instr(Request.ServerVariables("Server_Name"),"asp.cn")>0 then gkey="ABQIAAAAQu8n2Bd93aRxgDZFqbCLXxSG3yG7xqXZl7TtLvR8v0cYCRFUnBSGC2jZRWbW6s6bFZ35z6raCHXHRQ" end if '======================================================================================= %> 21世纪防雷网 - 中国防雷形势图 <% '======================================================================================= '====== 读取省地市三联数据 ============================================================== dim dsy0,dsy1,dsy2 dim prov dim city(50) dim county(50,50) dim s0,s1,s2 dim i,j,k i=0 j=0 prov="" 'On Error Resume Next '========================================================================================= 'ID PROV CITY COUNTY G_LAT G_LNG G_CLASS PCODE DCODE sql="select PROV,CITY,COUNTY from [AreaAdd] order by PROV,CITY,COUNTY" set rs=CON.execute(sql) if not (rs.bof or rs.eof) then do while not (rs.bof or rs.eof) if s0<>rs(0) then i=i+1 j=0 s0=rs(0)&"" s1=rs(1)&"" if prov="" then prov=s0 else prov=prov&","&s0 end if if city(i-1)="" then city(i-1)=rs(1)&"" else city(i-1)=city(i-1)&","&rs(1) end if if county(i-1,j)="" then county(i-1,j)=rs(2)&"" else county(i-1,j)=county(i-1,j)&","&rs(2) end if j=j+1 else if s1<>rs(1) then j=j+1 s1=rs(1)&"" if city(i-1)="" then city(i-1)=rs(1)&"" else city(i-1)=city(i-1)&","&rs(1) end if if county(i-1,j-1)="" then county(i-1,j-1)=rs(2)&"" else county(i-1,j-1)=county(i-1,j-1)&","&rs(2) end if else county(i-1,j-1)=county(i-1,j-1)&","&rs(2) end if end if rs.movenext loop end if rs.close set rs=nothing response.write "" '========================================================================================= ' if Err.Number<>0 then ' Err.Raise 6 '产生溢出错误。 ' MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description) ' Err.Clear '清除错误。 ' end if '========================================================================================= '========================================================================================= %>

由用户自己建立的地图

浏览器支持

查找

产业库雷灾库个人库地名库

经度
纬度

4 8 12 16 级放大

21世纪防雷网 | 中国防雷地图

分省产业形势
分行业产业形势
分年度雷灾形势
分省雷灾形势
我的地图
会员分布
俯瞰中国

请允许弹出窗口

~

本站结构及构思创意来自 www.asp.cn , 版权保护仿冒必究 Copyrights ©21世纪防雷网 www.asp.cn

<% '========================================================================== CON.close set CON=nothing '========================================================================== %>