ASP 채집 입고 로 컬 파일 생 성 함수

******************************************************************************************************************************************************************************************************************Private Function SaveFiles(byref from,byref tofile)Dim DatasDatas=GetData(from,0)Response.Write"저장 성공:"&formattenumber(len(Datas)/1024*2,2)&"Kb"response.Flushif formattenumber(len(Datas)/1024*2,2)>1 thenADOS.Type=1ADOS.Mode=3ADOS.OpenADOS.write DatasADOS.saveToFile server.mappath(tofile),2ADOS.Close()elseResponse.Write"저장 실패:파일 크기"&formattenumber(len(imgs)/1024*2,2)&"Kb,1K 이하"response.Flushend ifend function
'************************************************************반환 false'인자 가 존재 하지 않 습 니 다:filespes(파일 위치)'***********************************************************************************Private Function IsExists(by ref filespec)If(FSO.FileExists(server.MapPath(filespec))ThenIsExists=TrueElseIsExists=FalseEnd IfEnd Function
'************************************************************false 로 되 돌아 가 는 인자 가 존재 하지 않 습 니 다:folder(폴 더 위치)'***************************************************************************************Private Function IsFolder(by ref Folder)If FSO.FolderExists(server.MapPath(Folder)Then IsFolder=TrueElseIsFolder=FalseEnd If Function
*************************************************************************************************************************************************************************************************************개인 기능 CreateFolder(by ref fldr)Dim fSet f=FSO.CreateFolder(Server.MapPath(fldr))CreateFolder=f.PathSet f=nothingEnd Function
*****************************************************************************************************************************************************************************************************************************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,*********************************************************************************************************************************************************************************************************************************************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(로 컬 이미지 디 렉 터 리),*********************************************************************************************************************************************************************************************************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