'代码页
Const CodePage_GB2312 = 936 ' 简体中文 (GB2312)
Const CodePage_BIG5 = 950 ' 繁体中文 (BIG5)
'设置WinHttpRequest的URL编码
Const WinHttpRequestOption_URLCodePage = 2
Dim WinHttpRequest
Set WinHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
WinHttpRequest.Option(WinHttpRequestOption_URLCodePage) = CodePage_GB2312
'设置ServerXMLHTTP的URL编码
Const SXH_OPTION_URL_CODEPAGE = 0
Dim ServerXMLHTTP
Set ServerXMLHTTP = CreateObject("Msxml2.ServerXMLHTTP")
ServerXMLHTTP.setOption SXH_OPTION_URL_CODEPAGE, CodePage_GB2312
posted on 2010-11-13 16:05
张志松 阅读(1290)
评论(0) 编辑 收藏 引用