首页 / 脚本样式 / JavaScript / html读出文本文件内容

<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
</script>
<script language="JavaScript">
var xmlUrl = new ActiveXObject（"Microsoft.XMLHTTP"）;
xmlUrl.Open（"GET","1.txt"）;
xmlUrl.Send（）;
setTimeout（"alert（bytes2BSTR（xmlUrl.ResponseBody））",2000）;
</script>