xmlhttp 와 adodb.stream 캐 시 기술 을 이용 하여 원 격 웹 파일 을 다운로드 합 니 다.
sPath=Pathif left(lcase(path),7)<>"http://"then'----------앞 에 http 가 없 으 면 로 컬 파일 이 고 LocalFile 처리 에 맡긴다---------------------------그렇지 않 으 면 원 격 파일 을 위해 RemoteFile 처리 에 맡긴다-------------------------------------------------------------------
sub LocalFile(Path)'-----------------------------------------------로 컬 파일 이 라면 이 페이지 로 간단하게 이동 합 니 다.최종 SubSub RemoteFile(sPath)'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------ameif objectFso.FileExists(FileName)Then'-----파일 에 접근 한 적 이 있 는 지 확인 합 니 다.예 를 들 어,간단히 뛰 기------------Response.Redirect"cache/"&GetFileName(path)Else"-----------그렇지 않 으 면 먼저 GetBody 함수 로 읽 기---------------------------------------------------------------------------------------------------출력 버퍼다음 방문 을 기다 리 기 위해 파일 내용 을 로 컬 경로 에 캐 시 합 니 다.
Function GetBody(url)'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------비동기 적 인 방법 으로 보 내기------------------------------------------------------------------------------------------------------------------------------
Function GetFileName(str)'-------------------------------------------------------------------------------------------------------------------------------------------str = Replace(str,"&","")str = Replace(str,"/","")str = replace(str,vbcrlf,"")GetFileName = strEnd Function
sub SaveFile(str,fname)'---------------------------------------------------------------------------------------------------------------------------ADO 2.5 이상 버 전이 필요 합 니 다.oadFile\\cache\\"&fname,2'obstream.saveToFile"d:\\cache\\"&fname,adsaveCreateOverWrite'-------------------------------------------------------------------------------------------------------------자원 방출
function savemign(from,tofile)dim geturl,objectStream,imgsgeturl=trim(from)imgs=gethttppage(geturl)'그림 을 가 져 오 는 쉬 운 내용 의 과정 Set objectStream=Server.CreateObject("ADODB.Stream")'는 ADODB.Stream 대상 을 만 들 고,ADO 2.5 이상 버 전의 obj Stream.Type=1'을 바 이 너 리 모드 로 열 어야 합 니 다.Openobstream.write imgs'는 버퍼 obj stream.saveToFile server.mappath(tofile),2'-버퍼 내용 을 파일 obj stream.close()'대상 set obj stream=nothingend function%>을 닫 습 니 다.