ASP教程之一个收罗进库天生当地文件的几个FUCTIO...
ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失；收罗|收罗function感化：使用流保留文件
参数：from（远程文件地点），tofile（保留文件地位）
*****************************************************************
PrivateFunctionSaveFiles(byreffrom,byreftofile)
DimDatas
Datas=GetData(from,0)
Response.Write"保留乐成：<fontcolor=red>"&formatnumber(len(Datas)/1024*2,2)&"</font>Kb"
response.Flush
ifformatnumber(len(Datas)/1024*2,2)>1then
ADOS.Type=1
ADOS.Mode=3
ADOS.Open
ADOS.writeDatas
ADOS.SaveToFileserver.mappath(tofile),2
ADOS.Close()
else
Response.Write"保留失利：<fontcolor=red>文件巨细"&formatnumber(len(imgs)/1024*2,2)&"Kb，小于1K</font>"
response.Flush
endif
endfunction
*****************************************************************
function（公有）
感化：使用fso检测文件是不是存在,存在前往true,不存在前往false
参数：filespes（文件地位）
*****************************************************************
PrivateFunctionIsExists(byreffilespec)
If(FSO.FileExists(server.MapPath(filespec)))Then
IsExists=True
Else
IsExists=False
EndIf
EndFunction*****************************************************************
function（公有）
感化：使用fso检测文件夹是不是存在,存在前往true,不存在前往false
参数：folder（文件夹地位）
*****************************************************************
PrivateFunctionIsFolder(byrefFolder)
IfFSO.FolderExists(server.MapPath(Folder))Then
IsFolder=True
Else
IsFolder=False
EndIf
EndFunction
*****************************************************************
function（公有）
感化：使用fso创立文件夹
参数：fldr（文件夹地位）
*****************************************************************
PrivateFunctionCreateFolder(byreffldr)
Dimf
Setf=FSO.CreateFolder(Server.MapPath(fldr))
CreateFolder=f.Path
Setf=nothing
EndFunction
*****************************************************************
function（私有）
感化：保留文件，并主动创立多级文件夹
参数：fromurl（远程文件地点），tofiles（保留地位）
*****************************************************************
PublicFunctionSaveData(byrefFromUrl,byrefToFiles)
ToFiles=trim(Replace(ToFiles,"//","/"))
flName=ToFiles
fldr=""
IfIsExists(flName)=falsethen
GetNewsFold=split(flName,"/")
Fori=0toUbound(GetNewsFold)-1
iffldr=""then
fldr=GetNewsFold(i)
else
fldr=fldr&""&GetNewsFold(i)
endif
IfIsFolder(fldr)=falsethen
CreateFolderfldr
Endif
Next
SaveFilesFromUrl,flName
Endif
Endfunction
*****************************************************************
function（私有）
感化：获得远程数据
参数：url（远程文件地点），getmode（形式:0为二进制，1为中文编码）
*****************************************************************
PublicFunctionGetData(byrefurl,byrefGetMode)
onerrorresumenext
SourceCode=OXML.open("GET",url,false)
OXML.send()
ifOXML.readystate4thenexitfunction
ifGetMode=0then
GetData=OXML.responseBody
else
GetData=BytesToBstr(OXML.responseBody)
endif
iferr.number0thenerr.Clear
EndFunction
*****************************************************************
function（私有）
感化：格局化远程图片地点为当地地位
参数：imgurl（远程图片地点），imgfolder（当地图片目次），fristname（到场的前缀称号）
*****************************************************************
PublicFunctionFormatImgPath(byrefImgUrl,byrefImgFolder,byrefFristName,byrefnoimg)
strpath=""
ImgUrl=ImgUrl
ifinstr(ImgUrl,"Nophoto")orlenb(GetData(ImgUrl,0))<=0then
strpath=noimg
Response.Write"<ahref="&strpath&">"&strpath&"</a>"&vbcrlf
else
ifInstr(ImgUrl,".asp")then
strpath=FristName&"_"&Mid(ImgUrl,InStrRev(ImgUrl,"=")+1)&".jpg"
else
strpath=FristName&"_"&Mid(ImgUrl,InStrRev(ImgUrl,"/")+1)
endif
strpath=ImgFolder&"/"&strpath
strpath=Replace(strpath,"//","/")
ifleft(strpath,1)="/"thenstrpath=right(strpath,len(strpath)-1)
strpath=trim(strpath)
Response.Write"<ahref="&strpath&">"&strpath&"</a>"&vbcrlf
savedataImgUrl,strpath
&
ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
页:
[1]