列出所有hmtl文件,并可读取内容
黑色头发:http://heisetoufa.iteye.com/
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
<script>
function HTMlist(path)
{
var txt;
fso = new ActiveXObject("Scripting.FileSystemObject");
fldr = fso.GetFolder(path);
fc = new Enumerator(fldr.files);
for(; !fc.atEnd(); fc.moveNext())//枚举所有文件
{
s=fc.item(); //取文件对象
alert(s.type);
if(s.type=="HTML Document")
{ //判断是否是“HTML文件”
f = fso.GetFile(s);
ts = f.OpenAsTextStream(1,-2);
txt = ts.ReadAll( ); //读全文
ts.Close( );
txt=txt.toUpperCase();
titl=s.name;
start=txt.indexOf("<TITLE>",0);
if (start!=-1)
{
start+=7;
end=txt.indexOf("</TITLE>",start);
if(end!=-1)
titl=txt.substr(start,end-start);
}
document.write("<a href=\""+s+"\">"+titl+"</a><br>");
}
}
}
HTMlist("F:\\飞鸽");
</script>
</BODY>
</HTML>
黑色头发:http://heisetoufa.iteye.com/