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

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

.

'Computer > ASP' 카테고리의 다른 글

Wscripting  (0) 2012.08.10
zip,unzip 컴포넌트  (0) 2012.08.10
xmlhttp 를 통한 데이터 교환  (0) 2012.08.10
asp 용 UTF8 컨버터  (0) 2012.08.10
효율적인 페이징 기법  (0) 2011.11.29
ASP 에서 UTF-8 처리  (0) 2011.11.29
TAGS.

Comments 0