<%
'==============================================================================
'软件名称：游买有卖分销管理系统
'当前版本：V1.0)
'最新更新：2006.4
'==============================================================================
Dim objRecord
Set objRecord = New cls_PTR
objRecord.Format = "js"
Call objRecord.Record("类初始")
%>
<%Dim city,words
city=request("city")
words=request("words")
Dim netprovince,netcity,provincelist,citylist,Continent,ctitle
Dim province,provincecnname,cityname
province=request.QueryString("province")
On Error Resume Next
Dim clsTemplate,PageContent
Set clsTemplate=New cls_N_TEMP
'If Not IsObject(Application(umumcom.CacheName &"_netprovince")) Then youmyoumnet.LoadProvince()
'If Not IsObject(Application(umumcom.CacheName &"_netcity")) Then youmyoumnet.LoadCity()
Set netprovince=youmyoumnet.xmlload("/templates/common/xmldata/destination_netprovince.xml")
Set netcity=youmyoumnet.xmlload("/templates/common/xmldata/destination_netcity.xml")
If city="" Then city=netcity.documentElement.selectSingleNode("netcity[@city_cnname='"&request.Cookies("mylocal")("city")&"']/@cityid").text
If city="" Then city="420100"
Dim Node
'response.write province
'response.End
Call objRecord.Record("其它")
For Each Node In netcity.documentElement.SelectNodes("netcity[@city_level='True' and @city_ischina='1']")
If Node.selectSingleNode("@cityid").text=city Then
cityname=Node.selectSingleNode("@city_cnname").text
citylist=citylist&""&Node.selectSingleNode("@city_cnname").text&" "&vbcrlf
Else
citylist=citylist&""&Node.selectSingleNode("@city_cnname").text&""&vbcrlf
End If
Next
'response.write city
'response.write cityname
'response.End
Call objRecord.Record("城市")
Dim RsCityObj,CitySql
CitySql="Select city_cnname,REPLACE(REPLACE(REPLACE(CAST(City_GoogleEarth AS varchar(8000)), 'http://flashearth.youmyoum.com/?lat=', ''), '&lon=', ','), '&r=0&src=0', '') AS City_GoogleEarth from Ym_City where Cityid='"&city&"'"
'response.write citysql
Set RsCityObj = umumcom.execute(CitySql)
if RsCityObj.Eof then
Response.Write("")
Response.End
Else
'ProvinceID=RsCityObj(3)
'ProvinceCnName=GetAnyInfo("ym_province","provinceid",ProvinceID,"province_cnname",Conn)
CitySql=RsCityObj.getrows(-1)
end if
Set RsCityObj = Nothing
cityname=CitySql(0,0)
Call objRecord.Record("地图")
clsTemplate.TempPath="/templates/"
PageContent=clsTemplate.LoadTemplate("index_title_com.htm")
clsTemplate.TempPath="/templates/emap/"
PageContent=PageContent&clsTemplate.LoadTemplate("index_title_emap_com.htm")
PageContent=Replace(PageContent,"{$title}",cityname&"市电子地图，"&cityname&"市卫星地图，"&cityname&"市地图")
PageContent=Replace(PageContent,"{$nowcity}",request.Cookies("mylocal")("city"))
'PageContent=Replace(PageContent,"{$provincelist}",provincelist)
response.write PageContent
%>
首页 > 游地有图 > <%=cityname%>市电子地图 |
<%=citylist%>
<%If InStr(citylist,city)=0 then%>
- <%=cityname%>
<%End if%>
|
<%
clsTemplate.TempPath="/templates/"
PageContent=clsTemplate.LoadTemplate("foot.htm")
response.write PageContent
Call objRecord.Record("底部")
Response.Write objRecord.Statistic
%>
<%Sub TripList()
Dim xmaps,latlo
xmaps=Split(CitySql(1,0)&"111","&")
latlo=xmaps(0)
If latlo="111" Then latlo=","
'response.write latlo&"111"
'response.End
%>
<%End Sub%> 
卫星地图 
