login register Sysop! about ME  

2020년 04월 01일 10시 47분 00초,     조회수 : 272
  제목 : RE : 자기서버의 이미지 저장 또는 http url경로의 이미지 저장방법
SEQ : 164261 글쓴이 : supercore

작성 포맷 : TEXT 모드, 자동 줄바꿈 사용

1. 단순 경로 오류 아닌가요? 

\ / 문제 

F:\home\egsfood\www\images\product\1/E000182A.jpg

F:\home\egsfood\www\images\product\1\E000182A.jpg


2. 

테스트는....아마 될거 에요..;;;


result = fn_DownloadFileAs("https://i2.wp.com/www.mykp.co.uk/wp-content/uploads/2017/06/logo-active-server-
pages.png?w=400&ssl=1", Server.MapPath("/"), "asp")



Function fn_DownloadFileAs(fileUrl, targetPath, fileNameAs)
    Dim objHttp, objStream
    Dim targetFileName, resultFileName, startPos, fileExtension

    startPos = InStrRev(fileUrl, "/") + 1
    targetFileName = Mid(fileUrl, startPos)

    If InStr(targetFileName, "?") > 0 Then targetFileName = Left(targetFileName, InStr(targetFileName, "?") - 1)

    startPos  = InStr(fileName, ".")
    fileExtension = Mid(fileName, startPos + 1)

    resultFileName  = fileNameAs &"."& fileExtension

    If Not objFso.FileExists(targetPath & "\" & resultFileName) Then

        Set objHttp = Server.Createobject("MSXML2.ServerXMLHTTP")

        objHttp.Open "GET", fileUrl, False
        objHttp.Send

        If objHttp.Status = 200 Then 

            With Server.Createobject("ADODB.Stream")
                .Type = 1 
                .Open
                .write objHttp.ResponseBody
                .SaveToFile targetPath & "\" & resultFileName, 2 '// overwrite
            End With

        Else 
            resultFileName = "NOT FOUND"
        End If
        
        Set objHttp = Nothing
    Else
        resultFileName = "ERROR"
    End If

    fn_DownloadFileAs = resultFileName
End Function



제목 작성자 날짜 조회
자기서버의 이미지 저장 또는 http url경로의 이미지 저장방법 ksi0824 2020-03-31 227
RE : 자기서버의 이미지 저장 또는 http url경로의 이미지 저장방법 supercore 2020-04-01 272

 
 
.NET과 Java 동영상 기반의 교육사이트

로딩 중입니다...

서버 프레임워크 지원 : NeoDEEX
based on ASP.NET 3.5
Creative Commons License
{5}
{2} 읽음   :{3} ({4})