?? 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%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -