[Classic ASP] pixlr API 활용법

pixlr API를 이용하여 사용자 로컬 이미지 전송, 편집 후 서버에 저장하기

폼 :

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

<h3>pixlr 연동 테스트</h3>   <form id="frm" name="frm" method="post" enctype="multipart/form-data" onsubmit="return frm_check(this)">     <input id="image" name="image" type="file">     <input id="method" name="method" value="get" type="hidden">     <input id="title" name="title" value="파일명" type="hidden"><!-- 파일명(확장자제외) -->     <input id="loc" name="loc" value="kr" type="hidden">     <input id="locktitle" name="locktitle" value="true" type="hidden">     <input id="target" name="target" value="저장처리URL" type="hidden">     <input id="exit" name="exit" value="끝낼때이동할URL" type="hidden">       <select id="service" name="service">         <option value="editor">Editor</option>         <option value="express">Express</option>     </select>     <input id="btnPicEdit" value="사진 편집하기" type="submit"> </form>   <script language="javascript" type="text/javascript"> //<![CDATA     function frm_check(f)     {         f.action = "http://pixlr.com/"+ f.service.value +"/";         return true;     } //]]> </script>

처리 :

<%
Session.Codepage = 949
Response.Charset = "euc-kr"

'// Save Path
Dim savePath, saveDir
savePath = "/data"
saveDir = Server.Mappath(savePath)

Response.Write("
[GET]

")
For Each strKey In Request.QueryString
	Response.Write(strKey &" = """& Request.QueryString(strKey) &"""

")
Next
Response.Write("[POST]

")
For Each strKey In Request.Form
	Response.Write(strKey &" = """& Request.Form(strKey) &"""

")
Next
Response.Write("
")

Dim imageData, imageSaveName
imageData = Request.QueryString("image")
If imageData = "" Then Response.Write("imageData is Nothing

"): Response.End
%>
Photo In Pixlr :


<%
imageName = Request.QueryString("title") '// 사용자 지정 파일명
imageType = Request.QueryString("type")  '// jpg, png, gif ...
imageSaveName = imageName &"."& imageType

Dim objXML, binXML
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET", imageData, False
objXML.Send
binXML = objXML.ResponseBody
Set objXML = Nothing

Dim objADO
Set objADO = CreateObject("ADODB.Stream")
objADO.Type = 1
objADO.Open
objADO.Write binXML
objADO.SaveToFile saveDir &"\"& imageSaveName, 2
Set objADO = Nothing

%>
Saved Photo :