52,792
社区成员




Function PostHttpPage(PostUrl)
Dim xmlHttp
Set xmlHttp =server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "GET",PostUrl,False
xmlHttp.send()
If Err.Number<>0 Then
Set xmlHttp=Nothing
PostHttpPage ="无法获取内容!"
Exit Function
End If
dim xmlDoc
set xmlDoc=xmlHttp.responseXML
Set xmlHttp=nothing
response.write xmlDoc.xml
End Function
dim Url:Url="http://"&request.servervariables("Http_Host")&"/vb/test.xml"'注意要完整的Url路径,要不执行PostHttpPage的xmlHttp.Open "GET",PostUrl,False出错
PostHttpPage(Url)