b 半个月一直都很郁闷在弄serverxmlhttp乱码的问题等等,
在这个期间得到了孟子e章等人的帮助借此表示感谢
'****************************************
'* 类名: sxsrc.com
'* 功能: 表单提交处理
'* 支持: forum.sxsrc.com
'* 新增: Jaken,花中笑
'* 日期: 2005-6-1 V1.0
'****************************************
response.charset="gb2312"
Dim webServiceUrl, httpReq
'str=covertion(sqlStr)
webServiceUrl ="http://www.sxsrc.com/index.asp"
Set httpReq = Server.CreateObject("MSXML2.serverXMLHTTP")
httpReq.Open "GET", webServiceUrl, False
httpReq.Send
response.binarywrite httpReq.responsebody
