如何用vbs 修改IE 中的编码方式

[b03211132]

各位大虾， 我怎么样用vbs 修该将要弹出得浏览器中的编码方式阿 ，就是 可以转换 简体中文，UTF-8，big5之间的转换。
小弟我做了个 vbs 进度条， 调用的是IE，但是 在繁体中文的系统上就出错了 ，IE指令码错误，我感觉是编码的原因，所以请教，附上IE 进度条实现的 vbs 代码。

Sub Initprogress()
   Set objExplorer = WScript.Createobject("InternetExplorer.Application")
   objExplorer.Navigate "about:blank"
   objExplorer.ToolBar = 0
   objExplorer.StatusBar = 0
   objExplorer.Width=400
   objExplorer.Height = 110
   objExplorer.Left = 312
   objExplorer.Top = 320
   Do While (objExplorer.Busy)
      Wscript.Sleep 200
   Loop
   objExplorer.Visible = 1
End Sub


Sub Endprogress()
   WScript.Sleep 500
   objExplorer.Quit
   Set objExplorer=Nothing
End Sub


While(intPercent<100)
   intPercent=intPercent+1
   Call Inttoprogress(intPercent,intPercent)
Wend
endProgress


Sub Inttoprogress(intPercentValue,str)
   Dim sTable
   sTable="<table boder='0' width='100%'><tr><td width='85%'>"
   sTable=sTable &"<table border='1' width='100%' cellspacing='0' bordercolorlight='#0' bordercolordark='#0'><tr><td>"
   sTable=sTable & "<table border='0' width='" & Cstr(intPercentValue) &"%'bgcolor='#0000ff'>"
   sTable=sTable & "<tr><td width='100%'> </td></tr></table></td></tr></table></td><td width='15%'><font color='#000fFF' size='4'>"
   sTable=sTable & str &"</td></tr></table>"
   objexplorer.Document.body.innerHTML=sTable
End Sub

[b03211132]

哎 ，我自己解决了 mark 一下
document 下有一个 charset方法，可以设置 charset 的方式 比如 big5 等等
还有就是document.write 写入<meta http-equiv='Content-Type' content='text/html; charset=big5'>" 就ok了