När man hämtar in med hjälp av XMLHTTP så byts alla å ä och ö + de två följande tecknen ut mot ? .
Finns det något sätt at motverka detta ???
Fråga om XMLHTTP
22 svar · 1 359 visningar · startad av phazer23
Vad har du för encoding, på din xmlfil?
Hur ser din hämtning ut?
Jag använder en kod som jag hittade här på webforum..
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://**********", False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing
Response.Write strHTML
Hur ser din http://**********-fil ut?
Jo jag undrar också detta.
Så om någon trycker på svaret så...
Jag har samma problem som phazer23 :(
Min http-adress ser ut som följande: http://www.alternativet.nu/index_22_left_innehall.asp och resultat blir http://www.hultarp.com/alternativet.asp.
<html>
<head>
<title>Alternativet</title>
<link rel=stylesheet href="css/stilar.css" TYPE="text/css">
</head>
<body>
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.alternativet.nu/index_22_left_innehall.asp", False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<A HREF.*</A>"
Set hittade = objRegExp.Execute(strHTML)
For each item in hittade
Response.Write ""&item.Value&"<br>"
Next
%>
</body>
</html>
har samma problem...
Vilken MSXML använder du? Kanske nån bugg som är fixad i MSXML4.0. :o
Jag får inte heller åäö att fungera, har nyss laddat ner o installerat MSXML4.0 men märker ingen skillnad....
:(
Japp, testade det med. MEN har nu kommit på en sak iaf. Jag skickade med en header med get-requesten:
objHTTP.setRequestHeader "Content-Type", "text/html; charset=iso-8859-1"
Och antog att nu får jag den så från webbservern, men icke. :( Vilken content-type jag än frågade efter så kom det ut som text/html. Testade t.o.m. att sätta meta-taggen content-type på html-sidan utan resultat.
Jag lyckades dock att få ut det rätt om jag gick in i iis:en och la till http-headern: "Content-Type", "text/html; charset=iso-8859-1". Då kom allt ut som det ska. Detta fungerar ju om man har tillgång till webbservern. Hämtar man datan externt så är det fortfarande samma problem. :(
Man är ju grymt bra...
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://tvprogram.nu/cgi-tvprogram/smalltv.cgi?NU-smalltvtvms.htm", False
objHTTP.Send
strHTML=objHTTP.responseBody
Set objHTTP = Nothing
strHTML = Unicode(strHTML)
Response.Write strHTML
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
%>
...på att söka.
Inte helt optimalt antar jag men det beror väl också på hur mycket info/data man ska hämta.
Sökandet fortsätter iofs.
GRYMT! Har suttit i tre timmar med att lösa det nu. Tar en paus nu.... ;)
Kan vara helt fel , men jag hörde att ASP TEAR komponent är lösningen
http://www.alphasierrapapa.com/IisDev/Components/AspTear/
Jo kanske det men alla kan inte installera komponenter då man har plats på webhotell..
Ursprungligen av phazer23 Jo kanske det men alla kan inte installera komponenter då man har plats på webhotell..
RED.
Ne dom e så dyra ...
HIttade en kul liten komponent som heter DynoCOM
http://www.dynu.com/dynuping.asp kan man ladda ner den...
där kan man lägga till headern
"Content-Type", "text/html; charset=iso-8859-1"
så blir det rätt.... DynoCOM hade i övr mycket funkt så ni vet....
GL!
Hej!
Är det någon som vet hur man öppnar mer än sida i samma objekt med hjälp av XMLHTTP. Vill helst slippa skapa en instans till.
Tack!
/ Martin
Är inte det bar att mata på?
'....
objHTTP.Open "GET", "http://www.altavista.se/", False
objHTTP.Send
strHTML=objHTTP.responseText
objHTTP.Open "GET", "http://www.webforum.nu/", False
objHTTP.Send
strHTML2=objHTTP.responseText
Set objHTTP = Nothing
'osv
Var det ingen som visste hur man kunde få å,ä,ö rätt???