Få en "webbsida" till en sträng?

ASP

2 svar · 157 visningar · startad av toha 22 sep. 2001

tohaMedlem sedan dec. 1999707 inlägg

Trådstart22 sep. 2001 23:47#1

Skulle vilja öppna en url och få innehållet till en textsträng. Finns det något enkelt sätt?

Hade före mig att jag läst något om det men tycks inte hitta det just nu.

PaceMedlem sedan juni 20019 024 inlägg

23 sep. 2001 00:26#2

Ja, med Microsofts XML HTTP komponent:

Function GetHTML(strURL)
  Dim objXMLHTTP, strReturn
  Set objXMLHTTP = SErver.CreateObject("Microsoft.XMLHTTP")

  objXMLHTTP.Open "GET", strURL, False
  objXMLHTTP.Send

  strReturn = objXMLHTTP.responseText
  Set objXMLHTTP = Nothing

  GetHTML = strReturn
End Function

' Skriv ut sidan:
Response.Write GetHTML("http://www.aspfaqs.com/")

' Ladda ned:
Response.ContentType = "application/x-msdownload"
Response.AddHeader "Content-Disposition", "filename=Something.asp"
Response.BinaryWrite GetHTML("http://www.aspfaqs.com/")

%>

Från denna sidan.

tohaMedlem sedan dec. 1999707 inlägg

23 sep. 2001 07:56#3

Tack! **bockar och bugar mig djupt**