ASP - GetURL - ääkköset häviää matkalla

  • Keskustelun aloittaja Keskustelun aloittaja Mixu
  • Aloitettu Aloitettu

Mixu

Ei vain tajua
Liittynyt
25.8.2002
Viestejä
2 730
Laitoinkin tän saman kyssän jo yhdelle koodaus-forumille, mutta ongitaan nyt täältäkin, jos vaikka kala tarttuisi.

Alla oleva koodi toimii kyllä "oikein", eli se hakee stringiin kaiken tekstin, mikä löytyy tiedostosta "http://www.sivusto.com/etusivu.html" mutta se hukkaa ääkköset matkalla. Eli Ö,ö,Ä,ä,Å ja å näyttävät tulevat kaikki kysymysmerkkeinä takaisin, eli ?-merkkinä.

Eli jos tuossa etusivu.html- tiedostossa on esimerkiksi sisältönä "Tervetuloa äärettömän hienolle www-sivulleni!" niin muuttja teksti saakin arvokseen "Tervetuloa ??rett?m?n hienolle www-sivulleni!"

Milla functiolla saisi myös skandit mukaan?



...
...
teksti = GetURL("http://www.sivusto.com/etusivu.html")
...
...

Function GetURL(ByRef pStrURL)
_____ Dim lObjSpider
_____ If pStrURL = "" Then Exit Function
_____ On Error Resume Next
_____ Set lObjSpider = Server.CreateObject ("Microsoft.XMLHTTP")
_____
_____ ' Could not create Spider
_____ If Err Then Exit Function
_____
_____ On Error Goto 0
_____ With lObjSpider
__________ .Open "GET", pStrURL, False, "", ""
__________ .Send
__________ GetURL = .ResponseText
_____ End With
_____ Set lObjSpider = Nothing
End Function
 
10% ALENNUS KOODILLA PAKKOTOISTO
Tää pelaa ainakin yhessä sovelluksessa... msdn:stä löytyy lisäinfoa

Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttp.open "GET", strUrli, False
objXmlHttp.send
strHTML = objXmlHttp.responseText
Set objXmlHttp = Nothing
 
nikste sanoi:
Tää pelaa ainakin yhessä sovelluksessa... msdn:stä löytyy lisäinfoa

Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttp.open "GET", strUrli, False
objXmlHttp.send
strHTML = objXmlHttp.responseText
Set objXmlHttp = Nothing

MUHAHAAA!
Tuo toimi!
Piti vain tuon lisäksi asentaa webbipalvelimelle MSXML 3- komponentti, niin johan alkoi ääkköset näkyä. Anna tilinumero, mihin voin lähettää kasan rahaa? :kippis1: Tai jos vain lausun "Nikste on jumala" joka aamu 100 kertaa kuukauden ajan?
 
Mixu sanoi:
MUHAHAAA!
Tuo toimi!
Piti vain tuon lisäksi asentaa webbipalvelimelle MSXML 3- komponentti, niin johan alkoi ääkköset näkyä. Anna tilinumero, mihin voin lähettää kasan rahaa? :kippis1: Tai jos vain lausun "Nikste on jumala" joka aamu 100 kertaa kuukauden ajan?

Aa joo en muistanutkaan et tarvi ton lisäkilkkeen. No menköön puoleen hintaan 50 jumaloimismantralla.
 

Latest posts

Suositut

Back
Ylös Bottom