学习了mkd先前发布的代码，又在网上搜到一个html脚本，写出了这个
js脚本按zh159的修改，另文件夹点击展开菜单
[ Last edited by everest79 on 2007-12-27 at 08:50 PM ]
@echo off
if "%~1" == "" (call "%~f0" "%cd%"&goto :eof) else (pushd "%~1"||goto :eof)
set "str=^-^\^|^/"&&set/a sx=0,sy=0,sz=0&&set ot=%~nx1.htm
for /f "delims=:" %%i in ('findstr /b /n ":top" "%~f0"') do more +%%i "%~f0">%ot%
set/p=...................................<nul&call :subdir "%~1"
for /f "delims=:" %%x in ('findstr /b "::" "%~f0"') do echo %%x >>%ot%
echo .Done...&pause>nul&start "" "%ot%"&popd&goto :eof
:subdir
set/asx+=1,sy=sx%%4*2,sz=1/sx&&set tpath=%~1
set tpath=%tpath:\=\\%&&call set/p=%%str:~%sy%,2%%<nul
echo ss.m^("%~nx1","'%tpath%' title='Date:%~t1 %~a1'",1,%sz%^);>>%ot%
echo ss.cStart^(%sz%^);>>%ot%
for %%a in ("%~1\*") do call echo ss.m^("%%~nxa","'%tpath%' title='Date:%%~ta Size:%%~zaByte'",0^);>>%ot%
for /d %%a in ("%~1\*") do call :subdir "%%~fa"&echo ss.cEnd^(^);>>%ot%
goto :eof
:bottom
::ss.cEnd();
::ss.end();
::</script>
::</body></html>
:top
<html>
<head>
<title>Tree Menu::www.cn-dos.net</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type=text/css>
a {font: normal 12px 宋体; color: black; text-decoration: none; }
a:link {font: normal 12px 宋体; color: black; text-decoration: none; }
a:visited {font: normal 12px 宋体; color: black; text-decoration: none; }
a:hover {font: normal 12px 宋体; color: black; text-decoration: none; }
.icoface { border: 1px solid black; width: 9px; height: 9px; overflow: hidden; font: normal 7px 宋体; line-height: 8px; text-align: center; cursor: default; }
.line-hight { font: normal 8px 宋体; }
.newcss { font: normal 12px 宋体; color: black; text-decoration: none; }
</style>
<script language=javascript>
function s()
{
this.start=function()
{
document.writeln("<table cellpadding=1 cellspacing=0>");
}
this.end=function()
{
document.writeln("</table>");
}
this.m=function(cText,cLink,bc,bShow)
{
document.writeln("<tr><td><nobr><span class=icoface"+(bc?" onclick=menuChange(this)":"")+">"
+(bc?(bShow?"-":"+"):"<font color=#0080ff>f</font>")+"</span><span class=line-hight> </span><span class=newcss"+(bc?" onclick=menuChange(this)":"")+">"+cText+"</span></td><td> <a href="+cLink+" target=_blank><font class=line-hight>more</font></a></nobr></td></tr>");
}
this.cStart=function(bShow)
{
document.writeln("<tr style='display:"+(bShow?"block":"none")+"'><td>");
document.writeln("<table cellpadding=1 cellspacing=0 style='margin-left:12px;'>");
}
this.cEnd=function()
{
document.writeln("</table>");
document.writeln("</td></tr>");
}
}
function menuChange(obj)
{
obj=obj.parentNode.parentNode.parentNode;
obj.nextSibling.style.display=(obj.nextSibling.style.display=='none'?'block':'none');
obj.cells.childNodes.childNodes.innerText=(obj.nextSibling.style.display=='none'?'＋':'－')
}
</script>
</head>
<body>
<script language=javascript>
var ss=new s();
ss.start();
js脚本按zh159的修改，另文件夹点击展开菜单
[ Last edited by everest79 on 2007-12-27 at 08:50 PM ]
