반응형
<%
Dim imageBaseUrl : imageBaseUrl = "https://" & request.servervariables("HTTP_HOST") & "/디렉토리/"
Dim imageFile : imageFile = Request.QueryString("imageFile")
Dim imageUrl : imageUrl = ""
imageUrl = imageBaseUrl & imageFile
Response.ContentType = "image/png"
Set xh = CreateObject("MSXML2.ServerXMLHTTP")
xh.Open "GET" , imageUrl , false
xh.Send
binBody = xh.responseBody
Set xh = nothing
Response.BinaryWrite binBody
%>
728x90
'Programming > Classic ASP, ASP.NET' 카테고리의 다른 글
[IIS] iis 사용시 0x8007000d 오류 (0) | 2022.11.27 |
---|---|
[ASP] ABCUpload4 컴포넌트 등록하기. (0) | 2022.10.27 |
[ASP] 다이렉트센드 SMS 전송 함수 (0) | 2022.10.08 |
[ASP] ASP에서 DB 결과 객체를 함수에 전달하여 사용하기 (0) | 2022.10.07 |
[ASP] ASP에서 YYMMDDHHMMSS 형식으로 출력하는 함수 (0) | 2022.10.06 |
댓글