downdj.asp

网站整站

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

'//程序作者：野草

'//当前版本：V2.0

'//联系QQ：94440079

'//官方网站：http://www.yecaoweb.com
%>
<%
call yecaosql()
if downdj<>"yes" then
YCGO("error.asp?action=error&text="&Server.Urlencode("管理员已经禁止了娱乐下载功能，请联系管理员！"))
response.End
end if
dim djid,num,myurl,title
djid=YC_post("娱乐ID",request.querystring("id"),1,0,0) 
num=YC_post("娱乐集数ID",request.querystring("num"),1,0,0)  
url1=Cstr(Request.ServerVariables("HTTP_REFERER"))
url2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(url1,8,len(url2))<>url2 then
YCGO("error.asp?action=error&text="&Server.Urlencode("禁止下载！")) 
response.end
elseif isnull(djid) then
YCGO("error.asp?action=error&text="&Server.Urlencode("请指定对象！")) 
response.end
end if

sql="select * from [YC_djurl] where urlid="&djid&" and num="&num
set rsurl=conn.execute(sql)
dim djurl(1)
djurl(0)=rsurl("title")
djurl(1)=rsurl("url")
rsurl.close
set rsurl=nothing

if lcase(left(djurl(1),7))="http://" or lcase(left(djurl(1),6))="ftp://" then
YCGO("error.asp?action=error&text="&Server.Urlencode("娱乐地址："&djurl(1)))
response.end
elseif lcase(left(djurl(1),7))="rtsp://" or lcase(left(djurl(1),6))="mms://" then
YCGO("error.asp?action=error&text="&server.urlencode("娱乐地址："&djurl(1)))
response.end
else
call godj()
end if

sub godj()
Response.Clear
Response.ContentType="application/ms-download"
Response.AddHeader"content-disposition","attachment;filename="&djurl(0)&Mid(djurl(1),InStrRev(djurl(1),"."))&""
Set Stream=server.CreateObject("ADODB.Stream")
Stream.Type=1
Stream.Open
Stream.LoadFromFile Server.MapPath(djurl(1))
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024*64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
end sub
call closedata()
%>