게시판 본문 ASP, ASP.NET, IIS & Script - Read Only

re: 전통적인 ASP 환경에서 작업하는 경우
작성자: 송원석 작성일시: 2005-09-28 21:49, 조회수: 6,403
이 경우에는 다음의 함수를 사용하시면 됩니다. 제가 직접 작성한 함수는 아니고 예전에 구글에서 발견해서 정리해 놓았던 코드입니다. 원본의 출처는 기억이 잘 나지 않는군요. 참고하시기 바랍니다. Public Function SaveWebBinary(strUrl, strFile) Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 Const ForWriting = 2 Dim web, varByteArray, strData, strBuffer, lngCounter, ado On Error Resume Next Err.Clear Set web = Nothing Set web = CreateObject("WinHttp.WinHttpRequest.5.1") If web Is Nothing Then Set web = CreateObject("WinHttp.WinHttpRequest") If web Is Nothing Then Set web = CreateObject("MSXML2.ServerXMLHTTP") If web Is Nothing Then Set web = CreateObject("Microsoft.XMLHTTP") web.Open "GET", strURL, False web.Send If Err.Number <> 0 Then SaveWebBinary = False Set web = Nothing Exit Function End If If web.Status <> "200" Then SaveWebBinary = False Set web = Nothing Exit Function End If varByteArray = web.ResponseBody Set web = Nothing Set ado = Nothing Set ado = CreateObject("ADODB.Stream") If ado Is Nothing Then Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile(strFile, ForWriting, True) strData = "" strBuffer = "" For lngCounter = 0 to UBound(varByteArray) ts.Write Chr(255 And Ascb(Midb(varByteArray, lngCounter + 1, 1))) Next ts.Close Else ado.Type = adTypeBinary ado.Open ado.Write varByteArray ado.SaveToFile strFile, adSaveCreateOverWrite ado.Close End If SaveWebBinary = True End Function 코드가 무척 흥미롭다는 것을 알 수 있으실 것입니다. ^_^ 감사합니다.
IP 주소: 211.226.151.37

re: 전통적인 ASP 환경에서 작업하는 경우

작성자: 송원석

작성일시: 2005-09-28 21:49, 조회수: 6,403

이 경우에는 다음의 함수를 사용하시면 됩니다. 제가 직접 작성한 함수는 아니고 예전에 구글에서 발견해서 정리해 놓았던 코드입니다. 원본의 출처는 기억이 잘 나지 않는군요. 참고하시기 바랍니다.

Public Function SaveWebBinary(strUrl, strFile)

    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2
    Const ForWriting = 2
    
    Dim web, varByteArray, strData, strBuffer, lngCounter, ado
    
On Error Resume Next

    Err.Clear
    
    Set web = Nothing
    
    Set web = CreateObject("WinHttp.WinHttpRequest.5.1")
    If web Is Nothing Then Set web = CreateObject("WinHttp.WinHttpRequest")
    If web Is Nothing Then Set web = CreateObject("MSXML2.ServerXMLHTTP")
    If web Is Nothing Then Set web = CreateObject("Microsoft.XMLHTTP")
    
    web.Open "GET", strURL, False
    web.Send
    
    If Err.Number <> 0 Then
        SaveWebBinary = False
        Set web = Nothing
        Exit Function
    End If
    
    If web.Status <> "200" Then
        SaveWebBinary = False
        Set web = Nothing
        Exit Function
    End If
    
    varByteArray = web.ResponseBody
    
    Set web = Nothing
    
    Set ado = Nothing
    Set ado = CreateObject("ADODB.Stream")
    
    If ado Is Nothing Then
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set ts = fs.OpenTextFile(strFile, ForWriting, True)
        strData = ""
        strBuffer = ""
        For lngCounter = 0 to UBound(varByteArray)
            ts.Write Chr(255 And Ascb(Midb(varByteArray, lngCounter + 1, 1)))
        Next
        ts.Close
    Else
        ado.Type = adTypeBinary
        ado.Open
        ado.Write varByteArray
        ado.SaveToFile strFile, adSaveCreateOverWrite
        ado.Close
    End If
    
    SaveWebBinary = True
    
End Function

코드가 무척 흥미롭다는 것을 알 수 있으실 것입니다. ^_^

감사합니다.

IP 주소: 211.226.151.37

목록으로

이전 다음

전체 2 건의 댓글이 존재합니다.

작성자	댓글 내용	작성일시
송원석	다음의 사이트가 원본 코드의 출처입니다. 겨우 찾았네요. 또 다른 흥미로운 코드들을 많이 발견하실 수 있으실 것입니다.	2005-09-28 21:58
송원석	http://www.ericphelps.com/	2005-09-28 21:59

전체 2,095 건의 게시물, 84 페이지로 구성된 ASP, ASP.NET, IIS & Script 게시판의 33 페이지입니다.

번호	게시물 제목	작성자	작성일시	조회수
1,332	re: XSS (Cross Site Scripting)	송원석	2005-11-01	5,832
1,331	파일 갯수, 데이터 갯수	궁금이	2005-10-31	1,517
1,330	re: 파일 갯수, 데이터 갯수	송원석	2005-10-31	3,271
1,329	게시판 리스트에서	궁금이	2005-10-31	2,829
1,328	re: 게시판 리스트에서	송원석	2005-10-31	3,828
1,327	javascript의 replace 정규식에 대해...	영이	2005-10-25	1,691
1,326	re: javascript의 replace 정규식에 대해...	송원석	2005-10-25	3,310
1,325	엑셀 문제입니다.	궁금이	2005-10-18	1,707
1,324	re: 엑셀 문제입니다.	송원석	2005-10-19	3,378
1,323	soap메세지및 파일을 받아서 서버에 저장하고 리턴시킬려고 하는데..	김수민	2005-10-17	2,995
1,322	re: soap메세지및 파일을 받아서 서버에 저장하고 리턴시킬려고 하는데..	송원석	2005-10-18	3,889
1,321	content_type을 가져와서 구분을 주는건가요?	김수민	2005-10-18	2,024
1,320	re: content_type을 가져와서 구분을 주는건가요?	송원석	2005-10-19	3,519
1,319	정규식 표현 질문.... [1]	영이	2005-10-05	1,438
1,318	re: 정규식 표현 질문....	송원석	2005-10-06	3,592
1,317	re: 정규식 표현 질문.... [1]	영이	2005-10-06	1,289
1,316	질문하러 또 왔습니다 ^^;	영이	2005-09-30	1,519
1,315	re: 질문하러 또 왔습니다 ^^;	송원석	2005-09-30	3,967
1,314	re: 이럴수가....	영이	2005-09-30	1,311
1,313	파일 큐브 질문입니다. [1]	궁금이	2005-09-28	1,222
1,312	^^ 방법이 있을가 해서 문의 드립니다. 다른서버..	훈스	2005-09-28	1,283
1,311	re: .NET 프레임워크 환경에서 작업하는 경우	송원석	2005-09-28	3,446
	re: 전통적인 ASP 환경에서 작업하는 경우 [2]	송원석	2005-09-28	6,403
1,309	중복기간 검색	궁금이	2005-09-28	1,241
1,308	re: 중복기간 검색	송원석	2005-09-28	3,267

첫 페이지 이전 페이지

다음 페이지 끝 페이지