ASP采集入库生成本地文件的几个函数

'*****************************************************************' function' 作用：利用流保存文件' 参数：from（远程文件地址），tofile（保存文件位置）'*****************************************************************Private Function SaveFiles(byref from,byref tofile)Dim DatasDatas=GetData(from,0)Response.Write "保存成功："&formatnumber(len(Datas)/1024*2,2)&"Kb"response.Flushif formatnumber(len(Datas)/1024*2,2)>1 thenADOS.Type = 1ADOS.Mode =3ADOS.OpenADOS.write DatasADOS.SaveToFile server.mappath(tofile),2ADOS.Close()elseResponse.Write "保存失败：文件大小"&formatnumber(len(imgs)/1024*2,2)&"Kb，小于1K"response.Flushend ifend function '*****************************************************************' function（私有）' 作用：利用fso检测文件是否存在,存在返回true,不存在返回false' 参数：filespes（文件位置）'*****************************************************************Private Function IsExists(byref filespec) If (FSO.FileExists(server.MapPath(filespec))) ThenIsExists = TrueElseIsExists = FalseEnd IfEnd Function '*****************************************************************' function（私有）' 作用：利用fso检测文件夹是否存在,存在返回true,不存在返回false' 参数：folder（文件夹位置）'*****************************************************************Private Function IsFolder(byref Folder)If FSO.FolderExists(server.MapPath(Folder)) Then IsFolder = TrueElseIsFolder = FalseEnd IfEnd Function '*****************************************************************' function（私有）' 作用：利用fso创建文件夹' 参数：fldr（文件夹位置）'*****************************************************************Private Function CreateFolder(byref fldr) Dim fSet f = FSO.CreateFolder(Server.MapPath(fldr))CreateFolder = f.PathSet f=nothingEnd Function '*****************************************************************' function（公有）' 作用：保存文件，并自动创建多级文件夹' 参数：fromurl（远程文件地址），tofiles （保存位置）'*****************************************************************Public Function SaveData(byref FromUrl,byref ToFiles)ToFiles=trim(Replace(ToFiles,"//","/"))flName=ToFilesfldr=""If IsExists(flName)=false then GetNewsFold=split(flName,"/")For i=0 to Ubound(GetNewsFold)-1if fldr="" thenfldr=GetNewsFold(i)elsefldr=fldr&""&GetNewsFold(i)end ifIf IsFolder(fldr)=false thenCreateFolder fldrEnd ifNextSaveFiles FromUrl,flNameEnd ifEnd function'*****************************************************************' function（公有）' 作用：取得远程数据' 参数：url（远程文件地址），getmode （模式:0为二进制，1为中文编码）'*****************************************************************Public Function GetData(byref url,byref GetMode) 'on error resume next SourceCode = OXML.open ("GET",url,false)OXML.send() if OXML.readystate<>4 then exit functionif GetMode=0 thenGetData = OXML.responseBodyelseGetData = BytesToBstr(OXML.responseBody)end ifif err.number<>0 then err.ClearEnd Function '*****************************************************************' function（公有）' 作用：格式化远程图片地址为本地位置' 参数：imgurl（远程图片地址），imgfolder （本地图片目录），fristname（加入的前缀名称）'*****************************************************************Public Function FormatImgPath(byref ImgUrl,byref ImgFolder,byref FristName,byref noimg)strpath=""ImgUrl=ImgUrlif instr(ImgUrl,"Nophoto") or lenb(GetData(ImgUrl,0))<=0 thenstrpath=noimgResponse.Write ""&strpath&"" &vbcrlfelseif Instr(ImgUrl,".asp") thenstrpath=FristName&"_"&Mid(ImgUrl, InStrRev(ImgUrl, "=")+1)&".jpg"elsestrpath=FristName&"_"&Mid(ImgUrl, InStrRev(ImgUrl, "/")+1)end ifstrpath = ImgFolder&"/"&strpathstrpath = Replace(strpath,"//","/")if left(strpath,1)="/" then strpath=right(strpath,len(strpath)-1)strpath = trim(strpath)Response.Write ""&strpath&"" &vbcrlfsavedata ImgUrl,strpathend ifFormatImgPath = strpathEnd function

　　推荐阅读

　　两种小偷程序的比较第1/2页

Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False .Send GetURL = bytes2bstr(.responsebody) '对取得信息进行验证，如果信息长度小于100则说>>>详细阅读

本文标题：ASP采集入库生成本地文件的几个函数

地址：http://www.17bianji.com/kaifa2/ASP/33289.html

1/2 1