<%
Server.ScriptTimeOut=90
ON ERROR RESUME NEXT
'---------
fwfh=fwwzjc("/inc/fwpbip1.txt","")
if fwfh="ER_0" then
response.end
end if
'----------
id=request("id")
if id=0 or id="" then
Response.Redirect("/tools/yingyang/")
Response.End
end if
nrzszgs=28
zswfh=520 'SWF宽度
zipgh=int((id-1)/100+1)
strtxt=f_readall("yycfnrtlb\yycfshowt"&zipgh&".tat")
strtxt=GetContent(strtxt,"{{"&id&"}}","{{",0)
'response.write strtxt&" "
'response.end
if strtxt="" then
Response.Redirect("/tools/yingyang/")
Response.End
end if
nrzsz= Split(strtxt, "|")
zname=nrzsz(0)
'response.write ubound(nrzsz)&"|"&nrzsz(0)&" "
if ubound(nrzsz)<>nrzszgs-1 or strtxt="" then '有误处理
Response.Redirect("/tools/yingyang/")
Response.End
else '正常内容处理，关键字处理
end if
Tname=zname&"_"
dhname=" ＞ "&zname
wykey=zname
wynrms=zname
%>
<%=Tname%>食物营养成分查询_实用查询