Leya 发表于 2008-3-31 11:29:05

javascript远程读取文本文件 TXT

下面是text.htm文件代码

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
    <title>无标题页</title>

<script type="text/javascript"><!--
//页面级XMLHttp对象
var xmlhttp;

//向服务器发送信息函数
function getPage(pageURL) {
    xmlhttp = createXMLHttp();
    if (xmlhttp)
    {
      xmlhttp.onreadystatechange = setPageData;
      xmlhttp.open('GET', pageURL);
      xmlhttp.send(null);
    }else{
      alert("XMLHttpRequest对象为空");
    }
}
//回调函数,获得从服务器回发的文档信息并显示在disp层中
function setPageData(){
    if (xmlhttp.readyState == 4 && xmlhttp.status == 200){
         var word = bytes2BSTR(xmlhttp.responseBody);

         document.getElementById("disp").innerHTML = word ;
    }
}
//创建XMLHttp对象,用于读取远程文档
function createXMLHttp(){
    try {
      return new ActiveXObject ("Microsoft.XMLHTTP");
    }catch(e){
      try {
            return new XMLHttpRequest();
      }catch(e) {
            return null;
      }
    }
    return null;
}
// --></script>

<script   language="vbscript"   type="text/vbscript">
'VBScritp脚本语言,此函数用于转换读取文档中的乱码
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>

</head>
<body >
<script type="text/javascript">
window.onload=function(){ getPage('test.txt'); }
</script>

<div id="disp"></div>
</body>
</html>


下面是test.txt文件

ajsdifafas
ef
se
fse
f
sf
as
f 卡号:912316 密码:666666
页: [1]
查看完整版本: javascript远程读取文本文件 TXT