class xmlhttprequest
dim xmlhttp1
dim blogdom
Private Sub Class_Initialize
set xmlhttp1 = CreateObject("Microsoft.XMLHTTP")
set blogdom=createobject("Microsoft.XMLDOM")
end sub
Public function opensend(xmlurl,xslurl)
xmlhttp1.open "GET",xmlurl,false
xmlhttp1.send()
blogdom.async=false
blogdom.load xslurl
end function
public function show(flag)
if flage=2 then
set text2 = xmlhttp1.responseXML
text2.loadXML xmlhttp1.responseText
set blogxml=text2.documentElement
set blogroot=blogxml.selectSingleNode("//blog")
show=blogroot.transformNode(blogdom)
else
show=xmlhttp1.responseBody
end if
end function
Private Sub Class_Terminate
set xmlhttp1=nothing
set blogdom=nothing
End Sub
end class