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
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