xmlhttp 를 통한 데이터 교환

 set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
 
xmlhttp.open "GET", url, False
xmlhttp.setRequestHeader "Content-Type","text/plain"
xmlhttp.send


if xmlhttp.status = 200 then
    reText = xmlhttp.responsebody

    Set objStream = Server.CreateObject("ADODB.Stream")

    objStream.open
    objStream.Position = 0
    objStream.Type = 1
    objStream.Write reText
    objStream.Position = 0
    objStream.Type = 2
    objStream.Charset = "euc-kr"
    reText = objStream.ReadText

    reText = trim(reText)
    objStream.close

    set objStream = nothing
    set xmlhttp = nothing

이 글은 스프링노트에서 작성되었습니다.

.