<%
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%>���ξ����ȫ_ʵ�ò�ѯ