%
Server.ScriptTimeOut=90
ON ERROR RESUME NEXT
'fwfh=fwwzjc("tv_fwpbip1.tat","")
fwfh=fwwzjc("/inc/fwpbip1.txt","")
if fwfh="ER_0" then
response.end
end if
'----------
khdfs=0
if isMobile()=true then
khdfs=1
end if
'----------
dim tvid,channelid,programDT,fid,pro
tvid=request("tvid")
channelid=request("channelid")
programDT=request("programDT")
pro=request("pro")
fid=request("fid")
wid=request("w")
if programDT="" then
else
response.redirect ("/tools/tv/")
response.end
end if
%>