url.asp

电视直播源码程序 说明： 1、p2p电视台只能添加一个播放地址

<!--#include file="Conn.Asp"-->
<%
Response.Expires=0 
Response.Expiresabsolute=Now()-1 
Response.AddHeader "pragma","no-cache" 
Response.AddHeader "cache-control","private" 
Response.CacheControl="no-cache"
if session("login")="" then
response.redirect csurl
end if
dim dpxd,checkpxd
dpxd=trim(request("pxd"))
checkpxd=trim(request.cookies("look")("s"))
if dpxd="" or checkpxd="" then
response.redirect csurl 
end if
if not dpxd=checkpxd then
response.redirect csurl 
end if
response.cookies("LIve")="url"
sql="select * from data where id="&Request("ID")              
set rs=server.createobject("adodb.recordset")               
rs.open sql,connstr,1,1 
if rs("type")="MedIa" then
response.cookies("look")("s")=""
Response.ContentType="video/x-ms-asf" 
%>
<ASX Version="3.0">
<ABSTRACT><%=rs("name")%></ABSTRACT>
<TITLE><%=rs("name")%> - <%=webname%></TITLE>
<AUTHOR>更多精彩尽在 <%=http%></AUTHOR>
<COPYRIGHT><%=http%></COPYRIGHT>
<Entry> 
<Title><%=rs("name")%></Title>
<Author><%=webname%></Author>
<Copyright><%=http%></Copyright>
<Ref href= "<%=rs("address1")%>"/>
</Entry>
<Entry> 
<Title><%=rs("name")%></Title>
<Author><%=webname%></Author>
<Copyright><%=http%></Copyright>
<Ref href= "<%=rs("address2")%>"/>
</Entry>
<Entry> 
<Title><%=rs("name")%></Title>
<Author><%=webname%></Author>
<Copyright><%=http%></Copyright>
<Ref href= "<%=rs("address3")%>"/>
</Entry>
<Entry> 
<Title><%=rs("name")%></Title>
<Author><%=webname%></Author>
<Copyright><%=http%></Copyright>
<Ref href= "<%=rs("address4")%>"/>
</Entry>
<Entry> 
<Title><%=rs("name")%></Title>
<Author><%=webname%></Author>
<Copyright><%=http%></Copyright>
<Ref href= "<%=rs("address5")%>"/>
</Entry>
</asx>
<%
end if
if rs("type")="Real" then
Response.ContentType="audio/x-pn-realaudio"
response.redirect rs("address1")
end if
if rs("type")="FLV" then
Response.ContentType="video/x-ms-asf" 
response.redirect rs("address1")
end if
%>