ycms_djurl.asp

安全性好,适用于展示和进行资源下载的个人和大型网站使用!

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/YCMS.asp"-->
<%
YCMS_Open()
IF Session("YCMS")=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 djid,num
djid=CInt(Trim(Request.QueryString("id"))) 
num=CInt(Trim(Request.QueryString("num")))
mode=CInt(Trim(Request.QueryString("mode")))
set rs=conn.execute("SELECT url FROM [YCMS_djurl] WHERE urlid="&djid&" and num="&num)
If mode=1 then 
YCMS_print("<ASX version=""3.0"">")
YCMS_print("<Entry>")
YCMS_print("<ref href="""&rs("url")&"""/>")
YCMS_print("</Entry>")
YCMS_print("</ASX>")
else
	If lcase(left(trim(rs("url")),7))="http://" or lcase(left(trim(rs("url")),7))="rtsp://" then
YCMS_url(rs("url"))
	Else
YCMS_url("http://"&Request.ServerVariables("server_name")&"/"&rs("url"))
	End If
End If
Set rs=Nothing
 Session("YCMS")=False
Else
YCMS_Print("闃茬洍杩炲姛鑳藉凡缁忓惎鐢