ASP网站制作之asp防盗链源码

仓酷云

ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。防盗链假如我们晓得一个静态文件的实践路径如：http://www.xx.com/download/51windows.pdf，假如服务器没有作出格的限定设置，我们就能够绝不吃力的把它下载上去！当网站供应51Windows.pdf下载时，怎样才干让下载者没法失掉他的实践路径呢！本文就来先容怎样利用ASP来埋没文件的实践下载路径。

　　我们在办理网站文件时，能够把扩大名一样的文件放在统一个目次下，起一个对照出格名字，比方放pdf文件目次为the_pdf_file_s，把上面代码另存为down.asp，他的网上路径为http://www.xx.com/down.asp，我们就能够用http://www.xx.com/down.asp?FileName=51windows.pdf来下载这个文件了，并且下载者没法看到这个文件实践下载路径的！在down.asp中我们还能够设置下载文件是不是必要上岸，判别下载的来历页是不是为内部网站，从而能够做到避免文件被盗链。

以下是示例代码：
<%
From_url=Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url=Cstr(Request.ServerVariables("SERVER_NAME"))
ifmid(From_url,8,len(Serv_url))Serv_urlthen
response.write"不法链接！"’避免盗链
response.end
endif

ifRequest.Cookies("Logined")=""then
response.redirect"/login.asp"’必要上岸！
endif
FunctionGetFileName(longname)’/folder1/folder2/file.asp=>file.asp
whileinstr(longname,"/")
longname=right(longname,len(longname)-1)
wend
GetFileName=longname
EndFunction
DimStream
DimContents
DimFileName
DimTrueFileName
DimFileExt
ConstadTypeBinary=1
FileName=Request.QueryString("FileName")
ifFileName=""Then
Response.Write"有效文件名！"
Response.End
Endif
FileExt=Mid(FileName,InStrRev(FileName,".")+1)
SelectCaseUCase(FileExt)
Case"ASP","ASA","ASPX","ASAX","MDB"

Response.Write"不法操纵！"
Response.End
EndSelect
Response.Clear
iflcase(right(FileName,3))="gif"orlcase(right(FileName,3))="jpg"orlcase(right(FileName,3))="png"then
Response.ContentType="image/*"’对图象文件不呈现下载对话框
else
Response.ContentType="application/ms-download"
endif
Response.AddHeader"content-disposition","attachment;filename="&GetFileName(Request.QueryString("FileName"))
SetStream=server.CreateObject("ADODB.Stream")
Stream.Type=adTypeBinary
Stream.Open
iflcase(right(FileName,3))="pdf"then’设置pdf范例文件目次

TrueFileName="/the_pdf_file_s/"&FileName
endif
iflcase(right(FileName,3))="doc"then’设置DOC范例文件目次
TrueFileName="/my_D_O_C_file/"&FileName
endif
iflcase(right(FileName,3))="gif"orlcase(right(FileName,3))="jpg"orlcase(right(FileName,3))="png"then
TrueFileName="/all_images_/"&FileName’设置图象文件目次
endif
Stream.LoadFromFileServer.MapPath(TrueFileName)
WhileNotStream.EOS
Response.BinaryWriteStream.Read(1024*64)
Wend
Stream.Close
SetStream=Nothing
Response.Flush
Response.End
%>ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。