<%
'程序名称：飞扬网站管理系统[YCMS] 
'程序作者：激情飞扬 
'作者邮箱：bgh_edu@126.com
'作者 Q Q：99686532
'作者电话：0515-8842543
'官方主页：http://www.51fy.cn
'官方论坛：http://www.51fy.cn/bbs
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<%
IF Session("auth") = True THEN 
Response.ContentType = "application/x-javascript"  
Response.Expires = 0  
Response.Expiresabsolute = Now() - 1  
Response.AddHeader "pragma","no-cache"  
Response.AddHeader "cache-control","private"  
Response.CacheControl = "no-cache"  
Session("auth") = true
dim djid
djid=cint(request.querystring("id"))
sql="select * from YC_dj where id="&djid
set rs=conn.execute(sql)
dim url,player
url=rs("url")
player=rs("player")
title=rs("title")
if request.querystring("action")="real" then
response.write url
elseif request.querystring("action")="media" then
response.write "<ASX version = ""3.0"">"
response.write "<Entry>"
response.write "<title>"&title&"</title>"
response.write "<author>"&webname&"</author>"
response.write "<Copyright>"&weburl&"</Copyright>"
response.write "<ref href = """&url&"""/>"
response.write "<param name=""Artist"" value="""&webceo& """/>"
response.write "<param name=""Album"" value="""&webname& """/>"
response.write "<param name=""Title"" value="""&title& """/>"
response.write "</Entry>"
response.write "</ASX>"
end if
else
response.write "严禁非法盗链！"
end if%>
