ASP下载防盗链

整理日期：2007年08月30日【字体：大中小】

伊图教程网[www.etoow.com]
http://www.etoow.com/html/2007-08/1188451024.html

else
Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
Dim FileExt
Const adTypeBinary = 1
Response.Clear
Response.ContentType = "application/ms-download"
Response.AddHeader "content-disposition", "attachment; filename="&softname&"." & F_Ext & ""
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(""&downurl&"")
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
end if
rs.close
set rs=nothing
%>

Tags：

ASP下载防盗链
'http://www.etoow.com/html/2007-08/1188451024.html

最新文章教程

这串代码，大家可以试着将其改一改，主要是应用在下载页面。

<%
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(From_url,8,len(Serv_url)) <> Serv_url then
response.write "非法链接！" '防止盗链
response.end
end if
if(request.querystring("id") <> "") then
　 colname = request.querystring("id")
end if
url="soft_url"+request("url")
sql="select * from [zf11_d_news] where id="&colname&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
downurl=rs(url)
softname=rs("soft_name")
FileExt = Mid(downurl, InStrRev(downurl, ".") + 1)
F_Ext=UCase(FileExt)
set rs=conn.execute("select id,soft_dcount from zf11_d_news")
sql="UPDATE zf11_d_news SET soft_dcount = soft_dcount + 1　 WHERE id="&request.querystring("id")
conn.execute (sql)
if lcase(left(downurl,7))="http://" or lcase(left(downurl,6))="ftp://" then
response.redirect downurl