散分 serverxmlhttp编码乱目的解决方法,爽啊!!真爽啊,
偶,饭不思,茶不香半个月了,
跟大家分享啊
如果有高手的话帮我解决
http://community.csdn.net/Expert/TopicView.asp?id=4050212
http://community.csdn.net/Expert/TopicView.asp?id=4047444
http://community.csdn.net/Expert/TopicView.asp?id=4042579
'****************************************
'* 类名: sxsrc.com
'* 功能: xml
'* 支持: forum.sxsrc.com
'* 新增: Jaken,花中笑
'* 日期: 2005-6-1 V1.0
'****************************************
response.charset="gb2312"
Dim webServiceUrl, httpReq
'str=covertion(sqlStr)
webServiceUrl ="http://localhost:81/index.asp"
Set httpReq = Server.CreateObject("MSXML2.serverXMLHTTP")
httpReq.Open "GET", webServiceUrl, False
httpReq.Send
response.binarywrite httpReq.responsebody
' consumeWebService=httpReq.responseText
' set iStream = httpReq.responsestream.istream
' with iStream
' .type = 1
' .mode = 3
' .open
' .charset ="gb2312"
' .writetext
' end with
' 'srSave=covertion(httpReq.responseText)