ASP编程:ASP埋没下载地点及防盗代码
帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。ASP埋没下载地点及防盗代码以下为援用的内容:<%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("下载地点")%>
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; 完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。 跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write 另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件) 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。 用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
页:
[1]