首页 > 代码库 > Asp 将MSXML2.serverXMLHTTP返回的responseBody 内容转换成支持中文编码

Asp 将MSXML2.serverXMLHTTP返回的responseBody 内容转换成支持中文编码

2024-07-31 00:29:26   214人阅读

参考：ASP四个小技巧，抓取网页：GetBody，字节转字符BytesToBstr，正则表达式测试方法，生成静态页
  1. Function GetBody(weburl)  
  2.     ‘创建对象 
  3.     Dim ObjXMLHTTP 
  4.     Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") 
  5.     ‘请求文件,以异步形式 
  6.     ObjXMLHTTP.Open "GET",weburl,False 
  7. 	‘此信息必须在send前一个设置否则将出错"msxml3.dll error ‘80004005‘ Unspecified error"
    	xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        ‘如果下面的方法在调用时使用()则会出现以下错误,如果非要使用()则需要使用call来调用方法
        ‘参考：http://www.cnblogs.com/y0umer/archive/2010/08/05/3839405.html
        “ Microsoft VBScript compilation error ‘800a0414‘Cannotuse parentheses when calling a Sub”
    	‘xmlhttp.setRequestHeader ("Content-Type", "application/x-www-form-urlencoded")

  8.     ObjXMLHTTP.send 
  9.     While ObjXMLHTTP.readyState <> 4 
  10.         ObjXMLHTTP.waitForResponse 1000 
  11.     Wend 
  12.     ‘得到结果 
  13.      GetBody=ObjXMLHTTP.responseBody 
  14.     ‘释放对象 
  15.      Set ObjXMLHTTP=Nothing 
  16. End Function
  19. Function BytesToBstr(body,Cset) 
  20.         dim objstream 
  21.         set objstream = Server.CreateObject("adodb.stream") 
  22.         objstream.Type = 1 
  23.         objstream.Mode =3 
  24.         objstream.Open 
  25.         objstream.Write body 
  26.         objstream.Position = 0 
  27.         objstream.Type = 2 
  28.         objstream.Charset = Cset 
  29.         BytesToBstr = objstream.ReadText  
  30.         objstream.Close 
  31.         set objstream = nothing 
  32. End Function



来自为知笔记(Wiz)


Asp 将MSXML2.serverXMLHTTP返回的responseBody 内容转换成支持中文编码


联系
我们