<!--#include file="setup.asp"-->
<%
top
if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>社区")

sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3
%>

<html>
<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <a href=Default.asp><%ClubTree%></a> → <a
href="tvshow.asp">网络广播电视</a>(所有的资源只表示当前有效，不表示一直有效！有★标记表示较流畅)
</td></tr></table>
<br>
<SCRIPT>valigntop()</SCRIPT>
<%
Call Main()
%>
<%
Sub Main()
Dim tv, MediaStr
	tv = Request("tv")
	If Request("tv")="" Then tv = "CCTV-5"
Select Case tv
Case "凤凰卫视中文台"
	MediaStr = "mmst://221.2.138.90/fenghuang"
Case "香港NOW"
	MediaStr = "mms://61.55.139.33/103/103.asf"
Case "HBO电影台"
	MediaStr = "mmst://221.2.138.90/hbo"
Case "韩国阿里郎电视"
	MediaStr = "http://www.jtzj.com/tv/all.asx"
Case "BBC"
	MediaStr = "mms://mplay.donga.com/bbc"
Case "CCTV-1"
	MediaStr = "mms://winmedia.cctv.com.cn/live1"
Case "CCTV-4"
	MediaStr = "mms://winmedia.cctv.com.cn/live"
Case "CCTV-5"
	MediaStr = "mmst://221.2.138.90/cctv5"
Case "CCTV-9"
	MediaStr = "mms://winmedia.cctv.com.cn/live3"
Case "星空卫视"
	MediaStr = "mmst://221.2.138.90/xingkong"
Case "东风卫视"
	MediaStr = "mms://61.55.139.33/102/102.asf"
Case "华娱台"
        MediaStr = "mmst://221.2.138.90/huayu"
Case "广州电视台"
	MediaStr = "mmst://61.145.126.65/gztv?userid=guest&token=4b255890a8530302800475e71173e8bf"
Case Else
	MediaStr = "mms://202.110.222.245/休闲音乐"
End Select
response.write "<table cellpadding=3 cellspacing=1 width=97% align=center class=a2><tr><td valign=top colspan=2 align=left height=25 class=a3><b><font color=#FF0000>"&tv&"在线直播</font><br><a href=tvshow.asp?tv=BBC>BBC★</a> <br>  <a href=tvshow.asp?tv=CCTV-1>CCTV-1</a>  <br><a href=tvshow.asp?tv=CCTV-4>CCTV-4</a>  <br><a href=tvshow.asp?tv=CCTV-5>CCTV-5★</a> <br><a href=tvshow.asp?tv=CCTV-9>CCTV-9</a>  <br><a href=tvshow.asp?tv=华娱台>华娱台★</a><br><a href=tvshow.asp?tv=香港NOW>香港NOW</a><br>  <a href=tvshow.asp?tv=东风卫视>东风卫视</a><br><a href=tvshow.asp?tv=星空卫视>星空卫视★</a>  <br><a href=tvshow.asp?tv=HBO电影台>HBO电影台★</a><br><a href=tvshow.asp?tv=广州电视台>广州电视台★</a><br> <a href=tvshow.asp?tv=韩国阿里郎电视>韩国阿里郎电视</a> <br><a href=tvshow.ASP?tv=凤凰卫视中文台>凤凰卫视中文台★</a><br></b></td><td valign=middle class=a3 height=100><CENTER>"
%>
<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer723 width=520 height=390><PARAM NAME=AUTOSTART VALUE=true ><param name=ShowStatusBar value=-1><param name=Filename value=<%=MediaStr%>><embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=<%=MediaStr%> width=480 height=360></embed></object>
<%
response.write "</CENTER></td></tr></table>"
end sub
%>
<SCRIPT>valignbottom()</SCRIPT>
</html>
<%htmlend%>