var fso,f1,fname,path
fso=new ActiveXObject("Scripting.FileSystemObject")
fname=path+fname// file name
f1=fso.CreateTextFile(fname,true)

解决方案 »

  1.   

    可以用客户端的FSO,会有安全提示的我原来写的一个,不太完善,图片你从IIS里面的目录树里找就行了======================================
    <html>
    <head>
    <title>Untitled Document</title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    </head>
    <body>
    <script language=vbscript>
    Function ReplaceStr(Str,Str1,Str2)
    ReplaceStr = Replace(Str,Str1,Str2)
    End Function
    </script>
    <script language=javascript>
    var oldSelect=null;
    //var FileSystem = opener.Fso
    try
    {
    var FileSystem = new ActiveXObject("Scripting.FileSystemObject")
    }
    catch(e)
    {
    alert("您的浏览器安全级别太高,无法保存,请调整您的安全级别到低")
    }
    function setDir(dir)
    { var sTAG = window.event.srcElement;
    //opener.form1.Path.value = dir; if(sTAG.tagName.toLowerCase()!="img")
    {
    //sTAG.bgColor="blue"
    if(oldSelect!=null)
    {
    oldSelect.style.background="#FFFFFF"
    }
    sTAG.style.background="#FFFF00"
    oldSelect = sTAG;
    }
    alert(dir)
    }function test(tID,Dir,Level,Str)
    {
    setDir(Dir);
    var Div = document.all(tID);
    if(Div.style.display =="")
    {
    Div.style.display = "none"
    if(tID.length>1)
    {
    var Img1 = document.all("Img1_" + tID);
    var Img2 = document.all("Img2_" + tID);
    Img2.src = "DirImages/cdir.gif";
    if(Img1.src.lastIndexOf("minusl.gif")>=0)
    {
    Img1.src = "DirImages/plusl.gif"
    }
    else
    {
    Img1.src = "DirImages/plus.gif"
    } }
    }
    else
    {
    if(Div.innerHTML!="")
    {
    Div.style.display =""
    if(tID.length>1)
    {
    var Img1 = document.all("Img1_" + tID);
    var Img2 = document.all("Img2_" + tID);
    Img2.src = "DirImages/odir.gif";
    if(Img1.src.lastIndexOf("plusl.gif")>=0)
    {
    Img1.src = "DirImages/minusl.gif"
    }
    else
    {
    Img1.src = "DirImages/minus.gif"
    }
    }
    }
    else
    {
    var DirStr = GetDir(Dir,Level,Str)
    if(DirStr!="")
    {
    Div.style.display =""
    if(tID.length>1)
    {
    var Img1 = document.all("Img1_" + tID);
    var Img2 = document.all("Img2_" + tID);
    Img2.src = "DirImages/odir.gif";
    //alert(Img1.src)
    if(Img1.src.lastIndexOf("plusl.gif")>=0)
    {
    Img1.src = "DirImages/minusl.gif"
    }
    else
    {
    Img1.src = "DirImages/minus.gif"
    }
    }
    Div.innerHTML = DirStr
    }
    else
    {
    var Img1 = document.all("Img1_" + tID);
    var Img2 = document.all("Img2_" + tID);
    Img2.src = "DirImages/odir.gif";
    //alert(Img1.src)
    if(Img1.src.lastIndexOf("plusl.gif")>=0)
    {
    Img1.src = "DirImages/minusl.gif"
    }
    else
    {
    Img1.src = "DirImages/minus.gif"
    }
    }
    }
    }
    }
    function GetDir(Dir,Level,Str)
    {
    //var plus = "<IMG SRC=plus.gif WIDTH=16 Border=0>"
    //var plusl = "<IMG SRC=plusl.gif WIDTH=16 Border=0>"
    var line = "<IMG SRC=DirImages/line.gif WIDTH=16 Border=0>"
    var space = "<IMG SRC=DirImages/space.gif WIDTH=16 Border=0>"
    //var cdir = "<IMG SRC=cdir.gif WIDTH=16 Border=0>"
    var FunF,FunFolders 
    var s="";
    var tempStr
    try
    {
    FunF = FileSystem.GetFolder(Dir)
    FunFolders = new Enumerator(FunF.SubFolders); var count=0
    for(; !FunFolders.atEnd();FunFolders.moveNext())
    {
    count += 1 }
    FunFolders.moveFirst()
    var i = 0
    for(; !FunFolders.atEnd();FunFolders.moveNext())
    {
    var path = ReplaceStr(FunFolders.item(),":","")
    path = ReplaceStr(path,"\\","_")
    path = ReplaceStr(path," ","_")
    path = ReplaceStr(path,".","_")
    var L = parseInt(Level)+1
    var dir = FunFolders.item()
    dir = ReplaceStr(dir,"\\","\\\\")

    s += "<table border='0' cellspacing='0' cellpadding='0'>"
    s += "<tr>"
    s += "<td>"
    i += 1
    if(i==count)
    {
    tempStr = Str + space
    s += Str + "<IMG style=cursor:Hand SRC=DirImages/plusl.gif WIDTH=16 Border=0 id=Img1_" + path + " onclick='javascript:test(\""+path +"\",\"" + dir +"\"," + L +",\"" +tempStr + "\")'>" + "<IMG SRC=DirImages/cdir.gif WIDTH=16 Border=0 id=Img2_" + path + ">"
    }
    else
    {
    tempStr = Str + line
    s += Str + "<IMG style=cursor:Hand SRC=DirImages/plus.gif WIDTH=16 Border=0 id=Img1_" + path + " onclick='javascript:test(\""+path +"\",\"" + dir +"\"," + L +",\"" +tempStr + "\")'>" + "<IMG SRC=DirImages/cdir.gif WIDTH=16 Border=0 id=Img2_" + path + ">"
    }
    s += "</td>"
    s += "<td>" s += "&nbsp;<a href='#' onclick='javascript:test(\""+path +"\",\"" + dir +"\"," + L +",\"" +tempStr + "\")'><FONT FACE='宋体' SIZE=2>" + FunFolders.item().Name +"</FONT></a>"
    s += "</td>"
    s += "</tr>"
    s += "</table>"
    s += "<Div id=" + path +" style='display:None'></Div>"
    }
    }
    catch(e)
    {

    }
    return s
    }
    function GetDrive()
    {
    var Drives,Drive,s,Name,f,Folders
    Drives = new Enumerator(FileSystem.Drives);
    s = "";
    for (; !Drives.atEnd(); Drives.moveNext())
    {
    Drive = Drives.item();
        if (Drive.DriveType == 3)
    {
    Name = Drive.ShareName;
    }
        else if (Drive.IsReady)
    {
    Name = Drive.VolumeName;
    }
    else
    {
    Name = "[软驱]";
    }
    document.write("<table border='0' cellspacing='0' cellpadding='0'><tr><td><IMG SRC='DirImages/fdisk.gif' style=cursor:Hand WIDTH=16 onclick='javascript:test(\"" + Drive.DriveLetter + "\",\"" + Drive.DriveLetter + ":\\\\\"," + 0 + ",\"\")'></td><td>&nbsp;<a href=# onclick='javascript:test(\"" + Drive.DriveLetter + "\",\"" + Drive.DriveLetter + ":\\\\\"," + 0 + ",\"\")'><FONT FACE='宋体' SIZE=2>" + Name + "(" + Drive.DriveLetter + ":)</FONT></a></td></tr></table>")
    document.write("<Div id=" + Drive.DriveLetter +" style='display:None'></Div>")
    }
    }
    GetDrive()
    </script>
    </body>
    </html>
      

  2.   

    http://hongjun.freewebpage.org/dir.htm
      

  3.   

    你用window.open或者showModalDialog出那页来就行了演示地址:http://hongjun.freewebpage.org/dir.htm需要调整IE的安全级别才可以