play1.asp

来自「网络电视类型的好网站」· ASP 代码 · 共 39 行

<!--#include file="conn.asp"-->
	<%  
	id=Trim(Request.QueryString("id"))
	gs=Trim(Request.QueryString("gs"))
	
    set rs=server.CreateObject("adodb.recordset")
	rs.open "select name from tvname where id="&id,conn,1,1
	
	 set rs_s=server.CreateObject("adodb.recordset")
	rs_s.open "select * from tvdizhi where tvname="&id,conn,1,1
	if rs_s.recordcount=0 then 
		 Response.Write("没有电视台")
   Else 
		  if gs="wmv" then
		  	str="<ASX version =""3.0""><Title>http://tv.yuyaonet.com</Title>"
 	    		while not rs_s.eof
			 str=str&"<Entry><Title>"&rs("name")&"</Title><Author>"&rs("name")&"</Author><Copyright>"&rs("name")&"</Copyright><ref href="""&rs_s("tvdizhi")&"""/></Entry>"
              rs_s.movenext
		    wend 
		     str=str&"</ASX>"
			  Response.Write( str) 
		 Else 
				 while not rs_s.eof
			Response.Write(rs_s("tvdizhi"))
			rs_s.movenext
			if  not rs_s.eof then
			Response.Write( Chr(10))
			 Response.Write( "--stop--")
			 Response.Write( Chr(10))
            End If 
		    wend 
		  end if
		   	end if	
	rs.close
set rs=nothing
	rs_s.close
set rs_s=nothing
		 %>