gztv.asp

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

<!--#include file="ConfIg.Asp"-->
<%
if session("login")="" then
response.redirect csurl
end if
ServerURL="http://video.gztv.com/live_video.jsp?id="&request("pxd")
Set Mail=Server.CreateObject("CDO.Message")   
Mail.CreateMHTMLBody ServerURL,31     
AA=Mail.HTMLBody 
pos=InStr(AA,"mms://")
pos2=InStr(AA,"token")
address=Mid(AA,pos,pos2-pos+38)
Response.ContentType="video/x-ms-asf" 
%>
<ASX Version = "3.0">
<ABSTRACT><%=webname%></ABSTRACT>
<TITLE> <%=webname%></TITLE>
<AUTHOR>更多精彩尽在 <%=http%></AUTHOR>
<COPYRIGHT><%=http%></COPYRIGHT>
<Entry> 
<Title><%=webname%> - <%=http%></Title>
<Author><%=webname%></Author>
<Copyright><%=http%></Copyright>
<Ref href= "<%=address%>"/>
</Entry>
</asx>