本站电视节目缩影--7KTV网络电视

	设为首页
	加入收藏
	联系站长

今天是：	首页 \| Ppstream电视 \| Pplive电视 \| Uusee电视\| Tvkoo电视 \| 免费电影 \| 电视下载 \| 网络电台 \| 本站节目缩影

电视节目信息 5分钟刷新一次本站全部电视节目缩影一览

<% Set rs7 = Server.CreateObject("ADODB.Recordset") sql="select * from Affiche order by id desc" rs7.open sql,conn,1,1 %>

公告：	<% do while not Rs7.eof %> <%=rs7("Title")%> (<%= FormatDateTime(rs7("time"),2) %>) <%Rs7.MoveNext loop %>

推荐:免费电影	推荐:网络小说
北京奥运会开闭幕式下载
Ppstream电视	Pplive电视
Uusee电视	Tvkoo电视
电台直播	电台直播

推荐电视

<% sql="select * from 7ktv where hot>1000 and ok=true order by hot desc,AddDate desc" set rs2=conn.execute(sql) do while not rs2.eof %>

<% if rs2("hot")>0 then response.write "

" end if %>

--添加时间:<%= RS2("AddDate") %> "> <%ti=now()%> <% if rs2("AddDate")+3>ti then response.write "" end if%> <%= RS2("TITLE") %> <% if rs2("AddDate")+3>ti then response.write "" end if%>

<%= month(RS2("AddDate")) %>-<%= day(RS2("AddDate")) %>

<% rs2.movenext loop rs2.close set rs2=nothing %>

<% Set Rs1 = Server.CreateObject("ADODB.Recordset") sql="select BigClassName from BigClass_New order by num asc" Rs1.open sql,conn,1,3 do while not Rs1.eof %>

<%=Rs1("BigClassName")%>

<% BigClass=Rs1("BigClassName") If BigClass<>"" then sql="select * from 7ktv where BigClassName='"& BigClass &"' and ok=true order by hot desc,AddDate desc" set rs=conn.execute(sql) do while not rs.eof %>

<%ti=now()%> <%' if rs("hot")>1000 then 'response.write "

" %> <% if rs("AddDate")+3>ti then response.write "

" %> <% else %>

<% end if %>

--添加时间:<%= RS("AddDate") %> "><%= RS("TITLE") %>　

<%= month(RS("AddDate")) %>-<%= day(RS("AddDate")) %>

<% rs.movenext loop rs.close set rs=nothing %> <% End If %>

<%Rs1.movenext loop Rs1.close set Rs1=nothing %>