djurl.asp

网站整站

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<%
'//版权所有：野草设计

'//程序作者：野草

'//当前版本：V2.0

'//联系QQ：94440079

'//官方网站：http://www.yecaoweb.com
%>
<%
call yecaosql()
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"  
dim mode,djid,num
mode=YC_post("地址模式",request.querystring("mode"),1,0,0)
djid=YC_post("娱乐ID",request.querystring("id"),1,0,0) 
num=YC_post("娱乐集数ID",request.querystring("num"),1,0,0)  
set rs=conn.execute("select title from [YC_dj] where id="&djid)
title=YC_post("娱乐集数名称",rs("title"),0,0,0)  
set rsurl=conn.execute("SELECT url FROM [YC_djurl] WHERE urlid="&djid&" and num="&num)
if mode=1 then 
YC("<ASX version=""3.0"">")
YC("<Entry>")
YC("<title>"&title&"</title>")
YC("<author>"&webname&"</author>")
YC("<Copyright>"&weburl&"</Copyright>")
YC("<ref href="""&rsurl("url")&"""/>")
YC("<param name=""Artist"" value="""&webceo&"""/>")
YC("<param name=""Album"" value="""&webname&"""/>")
YC("<param name=""Title"" value="""&title&"""/>")
YC("</Entry>")
YC("</ASX>")
elseif mode=2 then 
if lcase(left(trim(rsurl("url")),7))="http://" or lcase(left(trim(rsurl("url")),7))="rtsp://"  then
YCGO(rsurl("url"))
else
YCGO("http://"&Request.ServerVariables("server_name")&"/"&rsurl("url"))
end if
else
YCGO(rsurl("url"))
end if
Session("auth")=false
rsurl.close
set rsurl=nothing
rs.close
set rs=nothing
else
YC("严禁非法盗链！")
end if
%>