都是UTF-8为什么是乱码呢?求解!!!
<html>
<head>
<meta http-equiv="Content-Type" c>
<title>怎么办?</title>
<SCRIPT LANGUAGE="VBSCRIPT">
Function bytes2BSTR(vIn)
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
Function momoca(path,file,name,ext)
dim XmlHttp,url
url="/"+path+"/"+file+"."+ext
set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", url, false
XmlHttp.setRequestHeader "Content-Type","text/html; charset=utf-8"
If xmlHttp.readyState < 4 then
eval("document.all."+name).innerHTML="loading...<br>页面载入中请等待..."
End If
XmlHttp.Send
If xmlHttp.readyState = 4 then
eval("document.all."+name).innerHTML="页面载入成功 —— by momcoa"
End If
dim html
html = XmlHttp.responseBody
html = bytes2BSTR(html) //不管用不用这句,都不对.
eval("document.all."+name).innerHTML=html
End Function
</script></head>
<body>
<span id="momoca_1"></span>
<script language="javascript">momoca("modules/purchase/template","123","momoca_1","html");
///modules/purchase/template/123.html 这个页是一个UTF-8的页</script>
</body>
</html>
求求大家解决一下上吧.都是UTF-8的页为什么读出来 是乱码呢?
|
论坛设施
