目录浏览，目录在左，文件在右(VBS)

<style>
body{text-align:center;font:12px #000080 ;}
#dir{float:left;width:300px;border:#0000ff 1px solid;text-align:left;margin:5px 5px 20px 5px;padding:5px 5px 5px 5px;color:#000080;font:14px arial,verdana,sans-serif;}
#main h1{font-size:16px;font-weight:bold;color:#a00000;}
#filed{float:right;width:420px;border:#0000ff 1px solid;text-align:left;margin:5px 5px 20px 5px;padding:5px 5px 5px 5px;color:#000080;font:14px arial,verdana,sans-serif;}
</style>
<SCRIPT LANGUAGE="JavaScript">
<!--
function ctrla()
{
 var e = fmfile.cfile;
  if (document.fmfile.cfileall.checked)
  {
  //alert("");
  for( var i = 0; i < e.length; i++ )
   e[i].checked=true;
   //alert("");}
  }
  else
  {
  for( var i = 0; i < e.length; i++ )
   e[i].checked=false;
  }
 
}
//-->
</SCRIPT>
<%
Cdir=replace(request("currentdir"),"'","")
Nextdir=replace(request("nextdir"),"'","")
if cdir="" then
 fldspec=server.mappath("html.asp")
 posb=instrrev(fldspec,"\",-1,1)-1
 fldspec=left(fldspec,posb)
  response.write fldspec&"------"&posb
else
 if nextdir="" then
   posb=instrrev(cdir,"\",-1,1)-1
   if posb=-1 then
    fldspec=cdir
   else
    fldspec=left(cdir,posb)
    response.write fldspec&"------:"&posb
    'response.end
   end if
 else
   
   fldspec=cdir+"\"+nextdir
   response.write fldspec
 end if

end if

call showfolderlist(fldspec)

Sub ShowFolderList(folderspec)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
 set objSubFolders=f.Subfolders
response.write"<div id=dir>"
response.write"请选择目录："
response.write"<B><a href=html.asp?currentdir="&folderspec&">..</a></B><BR>"&vbcrlf   
 for each subfolders in objsubfolders
     subfoldername=subfolders.name
  subfoldername=subfoldername
  response.write"<a href=html.asp?currentdir="&escape(folderspec)&"&nextdir="&escape(subfoldername)&">"&subfoldername&"</a><BR>"&vbcrlf
  'response.write subfoldername
 next
 if dirm="/" then
 dirm=""
 end if
 response.write"<a href='javascript:history.back(-1)'>返回</a>"
response.write"</div>"

    response.write "<div id=filed><form name=fmfile method=post action=cast.asp >"
  response.write "<input type=submit name=action value=转换><input type=submit name=action value=删除><BR>s:<input type=text name=StartString>e:<input type=text name=EndString><BR>sby:<input type=text name=StartString>eby:<input type=text name=EndString><BR>"
 response.write "<input type=checkbox name=cfileall onclick=javascript:ctrla()>[全选]<BR>"
 For Each f1 in fc
        s = f1.name
        response.write "<input type=checkbox name=cfile value="&s&">"&s&""&vbCrLf&"<BR>"
    Next
response.write "</form></div>"
 
End Sub
%>

本文地址：http://com.8s8s.com/it/it7478.htm