<%
'-------------------------------------------
Function GET_HTTP (sURL)
Dim lsResult
Const adFldLong = &H00000080
Const adVarChar = 200
'XMLHTTP를 이용하여 전송
With Server.CreateObject("Msxml2.ServerXMLHTTP")
.Open "POST", sURL, False
.Send
lsResult = .responseBody
End With
'받은 결과값을 한글 인코딩 처리
With Server.CreateObject("ADODB.Recordset")
.Fields.Append "txt", adVarChar, LenB(lsResult), adFldLong
.Open
.AddNew
.Fields("txt").AppendChunk lsResult
GET_HTTP = .Fields("txt").Value
.Close
End With
Set lsResult = Nothing
End Function
'-------------------------------------------
Response.Write(GET_HTTP ("http://gleam.pe.kr/"))
%>From: 뉴스그룹 정영탁님
'Dev & Mng' 카테고리의 다른 글
| Version and Build Number.. (0) | 2005/05/30 |
|---|---|
| 다른웹페이지 긁어오기 using XMLHTTP (0) | 2005/05/26 |
| 달력(Calendar) 컨트롤을 이용한 일정관리 (6) | 2005/05/25 |
| Crystal Report에 동적으로 DataBinding하기 (0) | 2005/05/23 |
