godj.asp

全能学校管理网站源码,小草网络提供,下载试用下

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="sqlx.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%>