产生乱码
function SendGet(URL)

Response.Charset( "GB2312 ")

Dim xmlHttp
Dim retStr


Set objXML = Server.CreateObject( "MSXML2.ServerXMLHTTP ")
on error resume next
if err then
Response.Write( " <p> Error: " & err.description & " <p> ")
Response.End
end if

' Call the remote machine the request
objXML.open "GET ", URL, false
'objXML.setRequestHeader "Content-Type ", "text/html; charset=gb2312 "
objXML.send()

Response.Write "objXML.readyState= " & objXML.readyState & " <br> "
i = 0
While objXML.readyState <> 4 And i < 5
Response.Write objXML.readyState & " <br> "
i = i + 1
objXML.waitForResponse 100
Wend

Response.Write "Err.Number= " & Err.Number & " <br> "
' return the response
If Err.Number = 0 then
retStr = objXML.ResponseText 'wait for receive response from server
else
retStr = "false "
end If
SendGet = retStr 'return the response to the caller

set objXML = nothing
end function


为什么返回的值总为乱码?

[解决办法]
第一行加上
<%@ LANGUAGE= "VBSCRIPT " CODEPAGE= "65001 "%>

再把文件另存为 UTF-8 格式
[解决办法]
加上
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">