<%@Language="vbscript" codepage="65001"%>
<%
web_id2="jdushnx0oplk" '代入用戶參數
rid=request("id")
pn=request("pn")
act=request("act")
rkw=request("kw")
kw1=request("kw1")
kw2=request("kw2")
msg=request("msg")
cl=request("cl")
cl2=request("cl2")
s1=request("s1")
s2=request("s2")
s3=request("s3")
s4=request("s4")
s5=request("s5")
rti=request("ti")
rcl=request("cl")
if rkw<>"" then
pn="pg2"
rti="搜尋結果"
end if
%>
<%
sql="select top 1 site_id, site_title, site_tel, site_addr, site_url, site_fb, site_email, site_fax, site_line, site_sms, site_intro, site_email2 from site_data where id2='"& web_id2 &"'"
set rs=c_tdbs.execute(sql)
if not rs.eof then
web_id=rs("site_id")
web_name=rs("site_title")
web_tel=rs("site_tel")
web_addr=rs("site_addr")
url=rs("site_url")
web_fb=rs("site_fb")
web_email=rs("site_email")
web_fax=rs("site_fax")
web_line=rs("site_line")
web_sms=rs("site_sms")
web_intro=rs("site_intro")
web_email2=rs("site_email2")
session("web_email2")=web_email2
'url="https://ikh.tw/"+web_id
web_title=web_name
web_description=web_intro
web_description=replace(web_description,chr(13)&chr(10),"")
web_description=replace(web_description," ","")
web_title="台灣花蓮觀光醫療 Taiwan 台湾 Formosa 花蓮 Hualian 医療観光 いりょうかんこう 医療ツーリズム メディカルツーリズム Medical tourism Tourisme médical Medizintourismus"
web_description=web_title
web_shoptime=""
og_img="https://img.ikh.tw/"+web_id+"/fb.jpg"
end if
web_url="https://ikh.tw/hlc"
msg1=""
geo=geo
gz="15"
gkw=kw_g
gmapt="https://ikh.tw/map/map_hlc.asp?mgeo="+geo+"&z="+gz+"&mcl="+mcl+"&gkw="+gkw
%>
<%
if url_str<>"" then url_str="?"+url_str
share_url=web_url+url_str
share_keyword=web_name
ss=""
ss=ss+""
ss=ss+""" onclick=""return fbs_click()"" data-desc=""FB-分享"">"
ss=ss+"![]()
"
ss=ss+""
ss=ss+"![]()
"
ss=ss+"![]()
"
ss=ss+""
ss=ss+"![]()
"
ss=ss+"![]()
"
str_share=ss
ss=""
%>
<%select case pn%>
<%end select%>
<%if pn="vw" then%><%end if%>
<%if pn="sear" then%><%end if%>
<%if pn="pg1" then%><%end if%>
<%if pn="pg2" then%><%end if%>
<%if pn="pg3" then%><%end if%>
<%if pn="pg4" then%><%end if%>
<%if pn="gmap" then%><%end if%>
<%if pn="slist" then%><%end if%>
<%if pn="wlist" then%><%end if%>
<%if pn="" then%>
<%end if%>
<%
function picchk(fs1,fs2,fs3)
ppta="\\192.168.254.1\web\img\"+web_id+"\"+fs1+"_"+web_id+"_"+fs2+"_"
pf=ppta+fs3+".jpg"
fpic="http://img.ikh.tw/"+web_id+"/"+fs1+"_"+web_id+"_"+fs2+"_"+fs3+".jpg"
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(pf) then
fpic=fpic
else
fpic=""
end if
set fs=nothing
picchk=fpic
end function
function fbpicchk(fs1)
pf="\\192.168.254.1\web\img\"+fs1+"\fb.jpg"
fpic="https://img.ikh.tw/"+fs1+"/fb.jpg"
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(pf) then
fpic=fpic
else
fpic="https://img.ikh.tw/tmp/nopic.jpg"
end if
set fs=nothing
fbpicchk=fpic
end function
function stripHTML(strHTML)
Dim objRegExp, strOutput, tempStr
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<(.|n)+?>"
'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")
'Replace all < and > with < and >
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
stripHTML = strOutput 'Return the value of strOutput
end function
%>
<%=web_title%>
<%=str_navi%>
<%=str_main%>
<%=str_map%>
<%=str_vlist%>
<%'=str_main%>
<%=str_tlist%>
<%=str_hlist%>
<%=str_blist%>
<%=str_rsc%>
<%=str_footer%>
<%=str_share%>