Test af XmlHTTP

Dette er en test af hentning af data via XmlHTTP (MSXML4.0)

Koden til selve oprettelse af forbindelse til ekstern nyhedsservice er fast for alle tests - det er kun filerne og koden på selve servicen, der ændres.

xmlhttp.asp:

<%@Language="VBScript"%> 
<% 
option explicit 

dim oSrvHTTP 

set oSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0") 
dim File
File = "http://asp.stocholm.dk/xmlhttp/" & Request.QueryString("file")
oSrvHTTP.open "GET",File, false 
oSrvHTTP.send 

Response.Write "Henter data fra " & File & "

"
Response.Write "<div style="font-size:20px;color:#ff0000;font-family:Verdana,"Sanf-serif">" & oSrvHTTP.ResponseText & "</div>"
%>

Der er lavet følgende tests:

  1. Fil er gemt som UTF-8
  2. Fil er gemt som ANSI (i mit tilfælde Windows-1252)
  3. Fil er gemt som ANSI (i mit tilfælde Windows-1252) men i content-headers tilføjes linien
    Response.Charset = "UTF-8"
  4. Se nyhedsfil (gemt som Windows 1252)
  5. Se nyhedsfil (gemt som UTF-8)
  6. Se nyhedsfil (gemt som Windows 1252 med Charset specificeret i ASP som UTF-8)
Når man sætter et specifik karaktersæt vha ASP, så skal det faktiske karaktersæt for den enkelte fil stemme overens med dette. Det skyldes at karaktersættet for den enkelte fil defineres på byte-niveau, og hvis ASP-siden, der i dette tilfælde henter data fra en ekstern kilde, modtager bytes i ét format - men får at vide, at de er i et andet format, så beder man jo ligesom om at resultatet bliver volapyk.

Download kildekoden