<%
set xml = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
xml.open "GET", url, false
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.send
res1 = xml.status
res = xml.responsetext
 
'한글 깨짐 방지
Set responseStrm = CreateObject("ADODB.Stream")
responseStrm.Open
responseStrm.Position = 0
responseStrm.Type = 1
responseStrm.Write xml.responseBody
responseStrm.Position = 0
responseStrm.Type = 2
responseStrm.Charset = "utf-8"
resultStr = responseStrm.ReadText
Response.Write resultStr  '불러온 내용을 뿌려주는 부분,뿌리기전에 값을 replace등오로 가공하여 필요한 부분만 취하면 됩니다.
responseStrm.close
Set responseStrm = Nothing
'한글 깨짐 방지

Set xml = Nothing
 
%>









출처: http://www.erel.kr/bbs/board.php?bo_table=study&sca=ASP%26ASP.NET

'프로그램 > ASP' 카테고리의 다른 글

날짜계산  (0) 2018.03.11
asp 함수모음  (0) 2018.03.11
ASP와 ASP.net 의 차이점  (0) 2018.02.26

+ Recent posts