게시판 본문 COM / COM+ by VB 6.0 - Read Only

답변글을 올리고 돌아다니다가... 뉴스그룹에서 재미난걸 찾았습니다.
DLL제작없이 Form전송이 되더군요.
XMLHTTP를 사용한 샘플 소스를 찾았습니다. ^^
XMLHTTP는 Open만 항상 사용을 해서.. Send는 전혀 생각못했습니다.
게다가 Form전송이라는것이 HTTPHearder로 표현되는거라는것도 새롭게 알았습니다.
재미있어 보여서 올립니다. ^^


<%
set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")

'-- image 파일오픈 ---------------------------------------------
arg_datafile = "c:\00832_001_4.sis"
set stream = Server.CreateObject("ADODB.Stream")
stream.Type = 1
stream.Open()
stream.LoadFromFile(arg_datafile)
arg_binary = trim(getString(stream.Read))
stream.Close()

Function getString(byVal StringBin)
dim intCount
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & AscB(MidB(StringBin, intCount, 1))
Next
End Function

'-- POST 방식 : 테스트 파라메터세팅 ----------------------------
arg_bound ="----------20040129024640189e2500990"
arg_usr_id = "insik"
arg_origctn = "0101111111"
arg_destctn = "0112222222"
arg_jumin = "7777777777777"
arg_imgformat = "10012"
arg_sendmsg = "ccc"
arg_charged = "N"
arg_cpflag = "ccc"
arg_evtcb = ""
arg_filename = "E00832_001_4.sis"
arg_filetype = "image/sis"
arg_host = "1.1.1.1"
arg_pgm = "/p/send_notip_010.asp"

'-- POST 방식 : Body세팅 --------------------------------------
httpBody = vbCrLf & vbCrLf & "--" & arg_bound & vbCrLf
httpBody = httpBody & "content-disposition: form-data; name=""USR_ID""" & vbCrLf & vbCrLf & arg_usr_id & vbCrLf & "--" & arg_bound & vbCrLf
httpBody = httpBody & "content-disposition: form-data; name=""jumin""" & vbCrLf & vbCrLf & arg_jumin & vbCrLf & "--" & arg_bound & vbCrLf
httpBody = httpBody & "content-disposition: form-data; name=""origCTN""" & vbCrLf & vbCrLf & arg_origctn & vbCrLf & "--" & arg_bound & vbCrLf
httpBody = httpBody & "content-disposition: form-data; name=""destCTN""" & vbCrLf & vbCrLf & arg_destctn & vbCrLf & "--" & arg_bound & vbCrLf
httpBody = httpBody & "content-disposition: form-data; name=""imgFormat""" & vbCrLf & vbCrLf & arg_imgformat & vbCrLf & "--" & arg_bound & vbCrLf
httpBody = httpBody & "content-disposition: form-data; name=""sendMSG""" & vbCrLf & vbCrLf & arg_sendmsg & vbCrLf & "--" & arg_bound & vbCrLf
httpBody = httpBody & "content-disposition: form-data; name=""is_charged""" & vbCrLf & vbCrLf & arg_charged & vbCrLf & "--" & arg_bound & vbCrLf
httpBody = httpBody & "content-disposition: form-data; name=""cpflag""" & vbCrLf & vbCrLf & arg_cpflag & vbCrLf & "--" & arg_bound & vbCrLf
httpBody = httpBody & "content-disposition: form-data; name=""evtcb""" & vbCrLf & vbCrLf & arg_evtcb & vbCrLf & "--" & arg_bound & vbCrLf
httpBody = httpBody & "content-disposition: form-data; name=""imgFile""; filename=""" & arg_filename & """" & vbCrLf
httpBody = httpBody & "Content-Type: " & arg_filetype & vbCrLf & vbCrLf
httpBody = httpBody & arg_binary
httpBody = httpBody & vbCrLf & "--" & arg_bound & "--" & vbCrLf

'-- POST 방식 :Open -----------------------------------------
objXMLHTTP.Open "POST", "http://" & arg_host & arg_pgm , false

'-- POST 방식 : Header세팅 ----------------------------------
objXMLHTTP.SetRequestHeader "Content-type", "multipart/form-data, boundary=" & arg_bound
objXMLHTTP.SetRequestHeader "Content-length", Len(httpBody)

'-- POST 방식 :전송 -----------------------------------------
objXMLHTTP.Send httpBody

Response.Write "<BR><BR>Post Method Result=" & objXMLHTTP.ResponseText & "<BR>"

Response.Write replace (httpBody, vbCrLf, "<BR>")
'Response.Write httpBody

%>