<scriptlanguage=vbscript>

Functionbytes2BSTR(vIn)

strReturn=""

Fori=1ToLenB(vIn)

ThisCharCode=AscB(MidB(vIn,i,1))

IfThisCharCode<&H80Then

strReturn=strReturn&Chr(ThisCharCode)

Else

NextCharCode=AscB(MidB(vIn,i+1,1))

strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))

i=i+1

EndIf

Next

bytes2BSTR=strReturn

EndFunction

</script>

<scriptlanguage="JavaScript">

varxmlUrl=newActiveXObject('Microsoft.XMLHTTP');

xmlUrl.Open('GET','1.txt');

xmlUrl.Send();

setTimeout('alert(bytes2BSTR(xmlUrl.ResponseBody))',2000);

</script>