<script language=vbscript> function codeChange(str) finalstr = "" for i = 1 to lenb(str) icharcode = ascb(midb(str,i,1)) if icharcode < &H80 then finalstr = finalstr & chr(icharcode) else inextcode = ascb(midb(str,i+1,1)) finalstr = finalstr & chr(clng(icharcode) * &H100 + cint(inextcode)) i = i + 1 end if next codeChange = finalstr end functionfunction getXML(Url) set connect = createobject("Microsoft.XMLHTTP") call connect.open ("GET",Url,false) connect.send() getXML= codeChange(connect.responsebody) end function </script>
function codeChange(str)
finalstr = ""
for i = 1 to lenb(str)
icharcode = ascb(midb(str,i,1))
if icharcode < &H80 then
finalstr = finalstr & chr(icharcode)
else
inextcode = ascb(midb(str,i+1,1))
finalstr = finalstr & chr(clng(icharcode) * &H100 + cint(inextcode))
i = i + 1
end if
next
codeChange = finalstr
end functionfunction getXML(Url)
set connect = createobject("Microsoft.XMLHTTP")
call connect.open ("GET",Url,false)
connect.send()
getXML= codeChange(connect.responsebody)
end function
</script>
这里有好多代码,查一下。
1、JS中用XMLHTTP获取时出现乱码,JS下无法转换,用VBS转换效率太差,慢
2、本机上运行HTM文件中的XMLHTTP时一切正常,放到服务器上就出现“没有权限”的错误,必须降低IE的安全级别才行算了,我放弃,等今后有时间用DLL试试