Webseiten parsen

Language: Deutsch
Programming Language: VBScript
Published by: Thomas
Last Update: 4/27/2006
Views: 1165

Description

Parst den Inhalt einer entfernten Website mittels XmlHttp und liefert ihn zurück.

Code

Display line numbers

1 <% 2 3 Dim objXmlHttp, objStream 4 5 Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0") 6 objXmlHttp.open "GET", "http://www.domain.com/document.html", False 7 objXmlHttp.send 8 9 Set objStream = Server.CreateObject("ADODB.Stream") 10 objStream.Open 11 objStream.Type = adTypeText 12 13 objStream.WriteText (objXmlHttp.responseBody) 14 objStream.Position = 0 15 objStream.Charset = "latin1" 16 17 Dim result : result = objStream.ReadText(adReadAll) 18 19 objStream.close 20 Set objStream = Nothing 21 22 Set objXmlHttp = Nothing 23 24 %>

Webseiten parsen

Description

Code

No comments avaiable

Add a comment