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

ASP

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

tohaMedlem sedan dec. 1999707 inlägg

Frågan22 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.

------------------
/ Torbjörn Hansson, webbutvecklare
Endero Sverige

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.

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

[Redigerat av Pace den 23 sep 2001]

tohaMedlem sedan dec. 1999707 inlägg

23 sep. 2001 07:56#3

Tack! **bockar och bugar mig djupt**

------------------
/ Torbjörn Hansson, webbutvecklare,
Desity