url.asp

本程序采用花香内核

<!--#include file="inc/config.asp"-->
<!-- #include file=mdb.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") = False
dim djid
djid=cint(request.querystring("dj_id"))
sql="select * from dj where dj_id="&djid
set rs=conn.execute(sql)
dim djurl,djpic
djurl=rs("dj_url")
djpic=rs("dj_pic")
djname=rs("dj_name")
if request.querystring("action")="rm" then
response.write djurl
elseif request.querystring("action")="wma" then
response.write "<ASX version = ""3.0"">"
response.write "<Entry>"
response.write "<title>" & djname & "</title>"
response.write "<author>" & webname & "</author>"
response.write "<Copyright>" & weburl & "</Copyright>"
response.write "<ref href = """ & djurl & """/>"
response.write "<param name=""Artist"" value=""" & webname & """/>"
response.write "<param name=""Album"" value=""" & webname & """/>"
response.write "<param name=""Title"" value=""" & djname & """/>"
response.write "</Entry>"
response.write "</ASX>"
end if
else
response.write "严禁非法盗链！"
end if%>