ASP网页编程之ASP实例教程:埋没下载地点和防盗

ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用</p>以下为援用的内容：
<%FunctIonDownloadFIle(StrFIle)
StrFIlename=StrFIle
Response.Buffer=True
Response.Clear
SetS=Server.CreateObJect("ADODB.Stream")
S.Open
S.Type=1
onErrorResumeNext
SetFso=Server.CreateObJect("ScrIptIng.FIleSystemObJect")
IfNotFso.FIleExists(StrFIleName)Then
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
Response.RedIrectRequest.ServerVarIables("HTTP_REFERER")
Response.End
EndIf
FileExt=MId(StrFIlename,InStrRev(StrFIleName,".")+1)
SelectCaseUCase(FIleExt)
Case"ASP","ASA","ASPX","ASAX","MDB","PHP","JSP","SHTML","HTML","HTM","TV","DATA"
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
Response.RedIrectRequest.ServerVarIables("HTTP_REFERER")
Response.End
EndSelect
SetF=Fso.GetFIle(StrFIlename)
IntFIlelength=F.SIze
s.LoadFromFIle(StrFIlename)
IfErrThen
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
Response.RedIrectRequest.ServerVarIables("HTTP_REFERER")
Response.End
EndIf
SetUpload=Server.CreateObJect("PersIts.Upload")
IfUploadIsNothingThen
Response.AddHeader"Content-DIsposItIon","attachment;FIlename="&F.Name
Response.AddHeader"Content-Length",IntFilelength
Response.CharSet="UTF-8"
Response.ContentType="application/x-download"
Response.BinaryWriteS.Read
Response.Flush
S.Close
Sets=NothIng
Else
Upload.SendBinaryStrFIlename,True,"application/x-download",False
EndIf
EndFunctIon
%>挪用
<%CallDownloadFIle("下载地点")%>
ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。

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

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write