<%
dim point,lng,lat,zoom
lng="120.939545"
lat="31.388211"
zoom="12"
point=eycms.getsys(eycms.fget("p",0))
if eycms.strlen(point)>0 and ubound(split(point,","))=2 then
lng=split(point,",")(0)
lat=split(point,",")(1)
zoom=split(point,",")(2)
elseif ubound(split(point,","))=1 then
lng=split(point,",")(0)
lat=split(point,",")(1)
end if
dim mInfo
mInfo=""&eycms.getsys("webname")&""
if eycms.strlen(eycms.getsys("my_tel"))>0 then mInfo=mInfo & "
电话：" & eycms.getsys("my_tel")
if eycms.strlen(eycms.getsys("my_add"))>0 then mInfo=mInfo & "
地址：" & eycms.getsys("my_add")
mInfo=translate(mInfo,theme_root)
function translate(t0,t1)
dim dlang
dlang=t1
if instr(dlang,"_")>0 then
dlang=split(dlang,"_")(1)
else
If cachedate="62" Then dlang="en"
If cachedate="63" Then dlang="jp"
If cachedate="64" Then dlang="ko"
If cachedate="65" Then dlang="fr"
end if
if len(dlang)<>2 then
translate=t0
exit function
end if
If InStr("en|jp|ko|fr",dlang) then
dim s,t,c,d,i
s ="电话|地址"
select case dlang
case "en"
t ="Tel|Address"
case "jp"
t ="電話|住所"
case "ko"
t ="전화기|주소"
case "fr"
t ="Téléphone|Adresse"
end select
c=split(s,"|")
d=split(t,"|")
for i=0 to ubound(c)
t0=replace(t0,c(i),d(i))
next
end if
translate=t0
end function
%>
百度地图
地图加载中...