webForumDet fria alternativet

Bugg i XMLHTTP?

ASP

11 svar · 369 visningar · startad av Kristianstad

Medlem sedan dec. 2002841 inlägg
Frågan#1

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?

Medlem sedan apr. 20003 174 inlägg
Medlem sedan dec. 2002841 inlägg
#3

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.

Medlem sedan juni 200032 967 inlägg
#4

Läs tråden igen.

Medlem sedan dec. 2002841 inlägg
#5

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!

Medlem sedan mars 20015 287 inlägg
#6

På vilket sätt fungerar det inte? Fortfarande fel på åäö?

Medlem sedan juni 200032 967 inlägg
#7

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! :D

Mvh

Medlem sedan dec. 2002841 inlägg
#8

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?

Medlem sedan mars 20015 287 inlägg
#9

Hm.. visa gärna hela den kod du använder nu. Du kallar på funktionen rätt?

Medlem sedan dec. 2002841 inlägg
#10

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!

Medlem sedan mars 20015 287 inlägg
#11

strHTML=objHTTP.responseBody

Medlem sedan dec. 2002841 inlägg
#12

Tack så hjärtligt Solbulle!! Det fungerade!

247 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
119 ms — deklarationer (db)
0 ms — hämta statistik (cache)
125 ms — hämta tråd, inlägg och bilagor (db)
119 ms — ändringar (db)