javascript远程读取文本文件 TXT

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

下面是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

复制代码

		自动登录	找回密码
密码			注-册

[小技巧] javascript远程读取文本文件 TXT