<%
Server.ScriptTimeOut=90
ON ERROR RESUME NEXT
'---------
fwfh=fwwzjc("/inc/fwpbip1.txt","")
if fwfh="ER_0" then
response.end
end if
'----------
'zxsnr:主显示内容,ztm1:主题目,fts1:付提示,fxxjs:付详细解释,fxgnr付相关内容
dim Tname,dhname,wynrms,wykey,strtxt,nrzsz,nrzszgs,i1,key,id,ztm1,fts1,fxxjs,fxgnr '主内容，内容数组，内容数组个数
'专用变量
dim zxsnr1,fl
id=request("id")
if id="" then
Response.Redirect("/tools/lyjd/")
Response.End
end if
strtxt=f_readall("lysqidzh.tat")
strtxt=Getcontent(strtxt,"{{"&id&"}}","{{",0)
Tname=strtxt
if Tname<>"" then
wynrms=replace(Tname,"_"," ")&"旅游景点"
wykey=replace(Tname,"_"," ")&"旅游景点"
dhname=" ＞ "&replace(Tname,"_"," ")&"旅游景点"
Tname=Tname&"旅游景点_"
end if
%>
<%=Tname%>旅游景点大全_实用查询