После нескольких часов исследования вот мои результаты:
Не работает:
<%@ Language=VBScript Codepage=65001 %>
И вместо правильных специальных символов он показывает вопросительные знаки, черные вопросительные знаки.
Но это работает !!
Response.CodePage = 65001
Я также включил
Response.Charset = "UTF-8"
response.AddHeader "Content-Type", "text/html;charset=UTF-8"
Окончательный результат:
<%@ Language=VBScript %>
<%
Dim xmlhttp
Set xmlhttp = CreateObject("Msxml2.ServerXMLHTTP")
xmlhttp.open "GET", "http://www.sapo.pt", 0
xmlhttp.send ""
Dim pagina
response.AddHeader "Content-Type", "text/html;charset=UTF-8"
Response.CodePage = 65001
Response.Charset = "UTF-8"
pagina = xmlhttp.responseText
Response.Write pagina
Set xmlhttp = Nothing
%>