体育直播节目表-NBA直播节目表-赛事直播节目表

<% Dim cids,cacheTime,exptime,HttpUrl,StartGet,List cids = request("cids") querystr = Request.QueryString cacheTime=3600 '单位为s秒 If cids="" Then HttpUrl="http://www.tvsou.com/sports/sports.htm" Else HttpUrl="http://www.tvsou.com/union/unichsweek.asp?"&querystr End If exptime="exptime_"&HttpUrl if application(HttpUrl)<>"" And isDate(application(exptime)) And CDate(application(exptime))>Now() Then List=application(HttpUrl) Else If cids="" Then StartGet = GetHttpPage(HttpUrl,"gb2312") List=GetBody(StartGet,"","

]*>","",1) List=preg_replace(List,"]*>([\s\S]*?)","$1",1) List=preg_replace(List,"

","",1) Else StartGet = GetHttpPage(HttpUrl,"gb2312") List=GetBody(StartGet,"

体育节目分类导视([\s\S]*?)

","",True,false) List=replace(List,"/union/unichsweek.asp","") List=replace(List,"

","

") List=preg_replace(List,"]*>[\s\S]*?","",1) List=preg_replace(List,"]*>([\s\S]*?)","$1",1) End If application.lock application(HttpUrl)=List application(exptime)=dateadd("s",cacheTime,Now()) application.unlock End If 'List=Remove_a(List) %> 体育直播节目表-NBA直播节目表-赛事直播节目表 - <%=webname%>

class="an_cur"<% Else %> onclick="location.href='zhibo.asp'"<% End If %>> 一周最精彩 class="an_cur"<% Else %> onclick="location.href='?cids=6,72,400,935,1557,1099,1220,65,76,268,134,1187'"<% End If %>> 电视节目表(1) class="an_cur"<% Else %> onclick="location.href='?cids=46,44,43,81,60,42,1,3,4,5,7,8,9,10,11,12,13,14,24,27'"<% End If %>> 电视节目表(2)

<%=List%>