responseBody 后

于娜 2008-07-13 12:18:27
在xmlhttp.responseBody 后,需要用下面VB函数才能吧gb2312编码的网页内容,转换成utf-8编码,并且正常显示。

现在问题是我 要读取的网页已经是utf-8的了。用responseBody 获取后,我只要想吧responseBody这个流 解码成 UTF-字符串不安就行了,不用解码成GB2312 ,怎么做呢??


<script language="vbscript">
function bytes2bstr(vin)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function

</script>
...全文
188 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
jjy1983 2008-07-13
  • 打赏
  • 举报
回复
朋友,你不是说你转行卖内衣去了么?难道是在给自己的内衣店做个网站?
hubblebubblepig 2008-07-13
  • 打赏
  • 举报
回复
up

62,128

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧