• (asp)JScript读写、复制、移动文件 asp也就那回事(4)


    百度博客http://hi.baidu.com/sdink/blog/ 和QQ空间同时更新http://516649425.qzone.qq.com  

    <" CODEPAGE="936"%>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
    <title>JScript读写文件</title>
    </head>

    <body>
    <%
    /************************************
    JScript读写文件
    虽然有人说用JScript来做asp的脚本语言是膜拜
    但是没有过vb基础的人看上去会很痛苦,正如我
    本人,而且个人觉得JScript一点都不比vbScrip
    t差,几乎asp我能想得出来的JScript也可以搞
    定,而且玩过c、c++、java的人就比较清析,有
    层次感,冒号结束,大括号语句。
    *************************************/

    var objFSO, objTextFile,objFolder;
    var sRead, sReadLine, sReadAll;
    var ForReading = 1, ForWriting = 2, ForAppending = 8;
    //创建一个FileSystemObject对象objFSO
    objFSO = new ActiveXObject("Scripting.FileSystemObject");
    //创建一个文本文件在服务器端当前路径下
    //,True 表示可覆盖此文件,False 表示
    //不可覆盖此文件,默认是 True
    //并返回供读写此文件的一个 TextStream(文本流) 对象
    objTextFile =objFSO.CreateTextFile(Server.MapPath("HowToDemoFile.txt"), true);

    //向objTextFile[TextStream(文本流)]写入一行文字
    objTextFile.WriteLine("This line is written using WriteLine().");
    //写空行为一行,参数为几就空几行
    objTextFile.WriteBlankLines(1);

    // 向 objTextFile[TextStream(文本流)]文件写入指定的文本
    objTextFile.Write ("This line is written using Write().");
    //关闭objTextFile[TextStream(文本流)]
    objTextFile.Close();

    /**********************************************
    FileSystemObject对象的方法(也叫函数)OpenTextFile,
    打开一个从服务器端当前路径下的HowToDemoFile.txt文件,
    以打开文件用于读取数据但是无法向此文件写数据的方式打
    开,如果此文件不存在,那么就创建,OpenTextFile涵数原
    型:FileSystemObject.OpenTextFile(fname,mode,create,
    format),fname:必需的。要打开的文件的名称。 mode:可
    选的,如何打开文件,1=ForReading - 打开文件用于读取
    数据。您无法向此文件写数据。2=ForWriting - 打开
    文件用于写数据,8=ForAppending - 打开文件,并向文
    件的末尾写数据,create:可选的。设置如果文件名不存
    在,是否创建新文件。True 指示可创建新文件,而 F
    alse 指示新文件不会被创建。False 是默认的。format:
    可选的。文件的格式。0=TristateFalse - 以 ASCII 打
    开文件。默认,-1=TristateTrue - 以 Unicode 打开文
    件。-2=TristateUseDefault - 使用系统默认格式打开文件
    并返回可用来访问此文件的 TextStream(文本流) 对象
    ***********************************************/
    objTextFile = objFSO.OpenTextFile(Server.MapPath("HowToDemoFile.txt"), ForReading,true);
    //使用不同的方法来读取文件的内容。
    //ReadLine 方法可从 TextStream 文件中读取一整行字符,并以字符串返回结果。
    sReadLine = objTextFile.ReadLine();
    //Read 方法从 TextStream 文件中读取指定数量的字符,并以字符串返回结果
    sRead = objTextFile.Read(4);
    //ReadAll 方法可读取整个 TextStream 文件,并以字符串返回结果
    //此方法不适合大型文件(会浪费内存资源)
    sReadAll = objTextFile.ReadAll();
    //关闭objTextFile[TextStream(文本流)]
    objTextFile.Close();
    //定义一个字符串
    var sfolder="sdkin\";
    //创建一个文件夹
    objFSO.CreateFolder(Server.MapPath(sfolder));
    //移动文件到文件
    objFSO.MoveFile(Server.MapPath("));
    //拷贝文件,s1是获取文件,Copy函数第二个参数为True 时文件/文件夹可被覆盖为false时则相反,默认是 true
    var s1=objFSO.GetFile(Server.MapPath(""));
    s1.Copy(Server.MapPath(")
    //拷贝文件夹,s1是获取文件夹,Copy函数第二个参数为True 时文件/文件夹可被覆盖为false时则相反,默认是 true
    var s2=ibjFSO.GetFolder(Server.MapPath(sfolder));
    s2.Copy(Server.MapPath("sdkin1\"),false)

    %>
    </body>
    </html>

    下面贴出MS的VBScript和Jscript 帮助页

    http://support.microsoft.com/kb/300982/zh-cn

    http://social.msdn.microsoft.com/Search/zh-CN?query=jscript%20CreateTextFile&ac=8

    http://msdn.microsoft.com/zh-cn/default.aspx

  • 相关阅读:
    CSS 之 div中文字超出时自动换行
    架构设计分享之权限系统(看图说话)
    perl杂项
    nginx比较apache
    Apache与Nginx的优缺点比较
    DVB系统中PCR的生成和PCR校正
    相关软件测试工具
    我遇到的有趣面试题:破解程序
    OpenStack 部署运维实战
    一些大公司的开源项目及代码托管平台
  • 原文地址:https://www.cnblogs.com/y0umer/p/3838982.html
Copyright © 2020-2023  润新知