11 svar · 396 visningar · startad av Kristianstad
Hej!
Detta är nog något utav det konstigaste jag varit med om!
Skall genom Microsoft.XMLHTTP hämta en sida.
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", Sida, False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing
Response.Write strHTML
På html-sidan finns följande rad:
Å som i Åsna. Ä som i Ärlig. Ö som i Östen:
Ovanstående kod resulterar i:
?som i ?na. ?som i ?lig. ?som i ?ten
Är detta en känd bugg?
Har läst tråden, men det verkar så omständigt att man måste ladda ner komponenter osv.
Finns det inget sätt att skriva i asp-koden som fixar det?
Det borde ju trots allt vara ett vanligt fel.
Läs tråden igen.
Hej @nders!
Vems inlägg menar ni? http://www.webforum.nu/showthread.php?s=&postid=361363#post361363 får jag inte till att fungera korrekt.
Tack på förhand!
På vilket sätt fungerar det inte? Fortfarande fel på åäö?
Det var det inlägget jag menade. Men funkar det inte, så funkar det inte. Jag har inte testat det själv, men det solbulle skriver brukar funka.
Kanske har solbulle input?
red: solbulle! 
Mvh
Hej solbulle!
Då jag testar din kod så skriver den ut:
ÿÿs
Som jag tidigare skrev resulterar Å som i Åsna. Ä som i Ärlig. Ö som i Östen till ?som i ?na. ?som i ?lig. ?som i ?ten och det verkar ju lite underligt. Åsna blir ?na. s:et åker alltså bort.
Vad kan det vara som är fel?
Hm.. visa gärna hela den kod du använder nu. Du kallar på funktionen rätt?
Exakt hela koden ser ut så här:
<%
Function Unicode(strResponseBody)
Dim i, t
t = String(LenB(strResponseBody), " ")
t = ""
For i = 1 To LenB(strResponseBody)
t = t & Chr(AscB(MidB(strResponseBody, i, 1)))
Next
Unicode = t
End Function
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
Sida = "http://localhost/stossan/testtest.asp"
objHTTP.Open "GET", Sida, False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing
strHTML = Unicode(strHTML)
Response.Write strHTML
%>
Och testtest.asp ser ut så här:
Å som i Åsna. Ä som i Ärlig. Ö som i Östen:
Tack på förhand!
strHTML=objHTTP.responseBody
Tack så hjärtligt Solbulle!! Det fungerade!