javascript的xmlhttp的问题，高手指教。

函数没有贴完<script language=vbscript>
Function bytes2BSTR(vIn) 
 dim strReturn 
 dim i,ThisCharCode,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>
<script language=javascript>
function ShowHideMessage(strMessageID, strTopicImageID)
{
var objMessage = document.getElementById(strMessageID);
var objTopicImage = document.getElementById(strTopicImageID); if(objMessage.innerHTML.length==7)
{
try{
xml = new ActiveXObject("Microsoft.XMLHTTP");
xml.Open("GET","GetContent.aspx?topic_id=" + strMessageID,false);
xml.Send();
if(xml.readyState!=4)return;
}
catch(e){} objMessage.innerHTML = bytes2BSTR(xml.responseBody);
}

var strDisplay = objMessage.style.display;
if (strDisplay == "")
{
objMessage.style.display = "none";
objTopicImage.src = '/forum/images/icon_plus.gif';
}
else
{
objMessage.style.display = "";
objTopicImage.src = '/forum/images/icon_minus.gif';
}
}
</script>