<%

response.charset="gb2312"
Dim webServiceUrl, httpReq 'str=covertion(sqlStr)
webServiceUrl ="http://172.16.16.92:888/result.asp"
Set httpReq = Server.CreateObject("MSXML2.serverXMLHTTP")
httpReq.Open "GET", webServiceUrl, False
httpReq.Send
response.binarywrite httpReq.responsebody   '正确显示中文网页
'Response.Write httpReq.responseText    '使用该句显示出来的网页如果包含中文字符就可能显示乱码

%>
<% response.charset="gb2312" Dim webServiceUrl, httpReq 'str=covertion(sqlStr) webServiceUrl ="http://172.16.16.92:888/result.asp" Set httpReq = Server.CreateObject("MSXML2.serverXMLHTTP") httpReq.Open "GET", webServiceUrl, False httpReq.Send response.binarywrite httpReq.responsebody 'Response.Write httpReq.responseText %>