<%
'------------------------------------------------
' XML Parse 용 클래스
' 필요한 핵심부분만 만듬 2010. 06.18 이수환
'------------------------------------------------
Class XMLDOMParse
Private m_DOM ' XMLDOM 객체
' ---------------------- 생성자 -----------------------
Private Sub Class_Initialize()
Set m_DOM = Server.CreateObject("Microsoft.XMLDOM")
End Sub
' ---------------------- 소멸자 -----------------------
Private Sub Class_Terminate()
Set m_DOM = Nothing
End Sub
' ------------------- Property Get --------------------
Public Property Get TagText(tagName, index)
Dim Nodes
Set Nodes = m_DOM.getElementsByTagName(tagName)
TagText = Nodes(index).Text
Set Nodes = Nothing
End Property
' ------------------- Property Get --------------------
Public Property Get AttributeText(tagName, index , item)
AttributeText = m_DOM.getElementsByTagName(tagName)(index).attributes.getNamedItem(item).Text
End Property
' ------------------- 원격 XML 읽기 --------------------
Public Function LoadHTTP(url)
with m_DOM
.async = False ' 동기식 호출
.setProperty "ServerHTTPRequest", True ' HTTP로 XML 데이터 가져옴
LoadHTTP = .Load(url)
end with
End Function
' ------------------- XML 읽기 --------------------
Public Function Load(strXML )
with m_DOM
.async = False ' 동기식 호출
.loadXML(strXML)
end with
End Function
' ------------------- HTML 페이지 읽기 --------------------
Public Function OpenHttp( PgURL)
Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "GET", PgURL, False
xmlHttp.Send
Ret = xmlHttp.ResponseText
Set xmlHttp = Nothing
OpenHttp = Ret
End Function
End Class
%>
1>
Set xml = new XMLDOMParse
xml.LoadHTTP(http://domain.com/getval.asp?pc_a=" & sPC)
ErrState = xml.TagText("ERROR",0)
2>
Set xml = new XMLDOMParse
Data = xml.OpenHttp("http://domain.com/getcid.asp?filename=" & sFileName )
xml.load(Data)
gCID = xml.TagText("CID",0)
'프로그래밍 > asp' 카테고리의 다른 글
[MSSQL2008] 테이블을 다시 만들어야 하는 변경 내용 저장 사용 안 함 (0) | 2012.05.23 |
---|---|
ASP CDO로 메일 보내기 (0) | 2012.04.16 |
수동 트랜잭션 모드 연결 오류 (0) | 2011.10.06 |
Edit plus ftp upload 안 될때 해결 법 (0) | 2011.10.05 |
SMTP, POP3로 메일 서버 구축하기 (0) | 2011.09.16 |