Function Make_UrlToFile(ori_url,save_url,save_filename)
server.ScriptTimeOut=12000
'ori_url(페이지든,이미지경로든 상관없음)
if save_url = "" then save_url = "/"
path = Server.MapPath(save_url) '현재페이지
'url경로의 페이지를 통으로 바이너리 데이터로 읽어드림
Set xh = CreateObject("MSXML2.ServerXMLHTTP")
xh.Open "GET", ori_url, false
lResolve = 5 * 1000
lConnect = 5 * 1000
lSend = 15 * 10000
lReceive = 15 * 10000
xh.setTimeouts lResolve,lConnect,lSend,lReceive
xh.Send()
strData = xh.ResponseBody
Set xh = Nothing
server.ScriptTimeOut=12000
'ori_url(페이지든,이미지경로든 상관없음)
if save_url = "" then save_url = "/"
path = Server.MapPath(save_url) '현재페이지
'url경로의 페이지를 통으로 바이너리 데이터로 읽어드림
Set xh = CreateObject("MSXML2.ServerXMLHTTP")
xh.Open "GET", ori_url, false
lResolve = 5 * 1000
lConnect = 5 * 1000
lSend = 15 * 10000
lReceive = 15 * 10000
xh.setTimeouts lResolve,lConnect,lSend,lReceive
xh.Send()
strData = xh.ResponseBody
Set xh = Nothing
save_root = path & "\"&save_filename '저정될 총경로
Set FSO = CreateObject("Scripting.FileSystemObject")
if (FSO.FileExists(save_root)) then
old_root = path& "\"&mid(save_filename,1,instrrev(save_filename,".")-1)&"_old"&mid(save_filename,instrrev(save_filename,"."))
FSO.CopyFile save_root,old_root,true '원본파일을 구파일로 복사(aa.htm -> aa_old.htm)
FSO.DeleteFile(save_root) '원본 파일 삭제
end if
Set FSO = Nothing
'바이너리 파일 저장
Set s = CreateObject("ADODB.Stream")
s.open()
s.type = 1
s.Write strData
s.SaveToFile save_root,2 'aa.htm 생성
Set s = Nothing
'바이너리 출력
Response.BinaryWrite strData
End Function
' Response.Redirect return_url
[출처] ASP 페이지 자동 html파일저장 함수|작성자 파란천사
