`
liq39liq
  • 浏览: 14665 次
最近访客 更多访客>>
社区版块
存档分类
最新评论

ASP文本文档(txt)相关操作代码

 
阅读更多

ASP文本文档(txt)相关操作代码
2011年04月22日
  
  'ReadLine:从文件中读取一行数据
  'Read(N):从文件中读取N个字节的数据
  'ReadAll:读取文件中的所有数据
  ========================FSO=============================
  究级FSO函数,推荐使用。
  Const ForReading = 1, ForWriting = 2 , ForAppending = 8
  Dim f, m
  select Case WriteORAppendType
  Case 1: '文件进行写操作
  Set f = objFSO.OpenTextFile(FileName, ForWriting, True)
  f.Write TextStr
  f.Close
  If ReportFileStatus(FileName) = 1 then
  WriteTxtFile = 1
  Else
  WriteTxtFile = -1
  End if
  Case 2: '文件末尾进行写操作
  If ReportFileStatus(FileName) = 1 then
  Set f = objFSO.OpenTextFile(FileName, ForAppending)
  f.Write TextStr
  f.Close
  WriteTxtFile = 1
  Else
  WriteTxtFile = -1
  End if
  End select
  End Function
  '读文本文件
  Public Function ReadTxtFile(FileName)
  Const ForReading = 1, ForWriting = 2
  Dim f, m
  If ReportFileStatus(FileName) = 1 then
  Set f = objFSO.OpenTextFile(FileName, ForReading)
  m = f.ReadLine
  ReadTxtFile = m
  f.Close
  Else
  ReadTxtFile = -1
  End if
  End Function
  '建立文本文件
  '=======目录操作========
  '取目录大小
  Public Function GetFolderSize(FolderName)
  Dim f
  If ReportFolderStatus(FolderName) = 1 Then
  Set f = objFSO.GetFolder(FolderName)
  GetFolderSize = f.Size
  Else
  GetFolderSize = -1
  End if
  End Function
  '创建的文件夹
  Public Function createFolderDemo(FolderName)
  Dim f
  If ReportFolderStatus(Folderspec) = 1 Then
  createFolderDemo = -1
  Else
  Set f = objFSO.createFolder(FolderName)
  createFolderDemo = 1
  End if
  End Function
  '目录删除
  Public Function deleteAFolder(Folderspec)
  Response.write Folderspec
  If ReportFolderStatus(Folderspec) = 1 Then
  objFSO.deleteFolder (Folderspec)
  deleteAFolder = 1
  Else
  deleteAFolder = -1
  End if
  End Function
  '显示目录列表
  Public Function ShowFolderList(FolderSpec)
  Dim f, f1, fc, s
  If ReportFolderStatus(FolderSpec) = 1 Then
  Set f = objFSO.GetFolder(FolderSpec)
  Set fc = f.SubFolders
  For Each f1 in fc
  s = s & f1.name
  s = s & "|"
  Next
  ShowFolderList = s
  Else
  ShowFolderList = -1
  End if
  End Function
  '目录复制
  Public Function CopyAFolder(SourceFolder,DestinationFolder)
  objFSO.CopyFolder SourceFolder,DestinationFolder
  CopyAFolder = 1
  CopyAFolder = -1
  End Function
  '目录进行移动
  Public Function MoveAFolder(SourcePath,DestinationPath)
  If ReportFolderStatus(SourcePath)=1 And ReportFolderStatus(DestinationPath)=0 Then
  objFSO.MoveFolder SourcePath, DestinationPath
  MoveAFolder = 1
  Else
  MoveAFolder = -1
  End if
  End Function
  '判断目录是否存在
  Public Function ReportFolderStatus(fldr)
  Dim msg
  msg = -1
  If (objFSO.FolderExists(fldr)) Then
  msg = 1
  Else
  msg = -1
  End If
  ReportFolderStatus = msg
  End Function
  '目录创建时信息
  Public Function ShowFolderAccessInfo(FolderName,InfoType)
  '//功能:显示目录创建时信息
  '//形参:目录名,信息类别
  '// 1 -----创建时间
  '// 2 -----上次访问时间
  '// 3 -----上次修改时间
  '// 4 -----目录路径
  '// 5 -----目录名称
  '// 6 -----目录类型
  '// 7 -----目录大小
  '// 8 -----父目录
  '// 9 -----根目录
  Dim f, s
  If ReportFolderStatus(FolderName) = 1 then
  Set f = objFSO.GetFolder(FolderName)
  select Case InfoType
  Case 1 s = f.Datecreated
  Case 2 s = f.DateLastAccessed
  Case 3 s = f.DateLastModified
  Case 4 s = f.Path
  Case 5 s = f.Name
  Case 6 s = f.Type
  Case 7 s = f.Size
  Case 8 s = f.ParentFolder
  Case 9 s = f.RootFolder
  End select
  ShowFolderAccessInfo = s
  ELse
  ShowFolderAccessInfo = -1
  End if
  End Function
  '遍历目录
  Public Function DisplayLevelDepth(pathspec)
  Dim f, n ,Path
  Set f = objFSO.GetFolder(pathspec)
  If f.IsRootFolder Then
  DisplayLevelDepth ="指定的文件夹是根文件夹。"&RootFolder
  Else
  Do Until f.IsRootFolder
  Path = Path & f.Name &"
"
  Set f = f.ParentFolder
  n = n + 1
  Loop
  DisplayLevelDepth ="指定的文件夹是嵌套级为 " & n & " 的文件夹。
" & Path
  End If
  End Function
  '========磁盘操作========
  '驱动器是否存在?
  Public Function ReportDriveStatus(drv)
  Dim msg
  msg = -1
  If objFSO.DriveExists(drv) Then
  msg = 1
  Else
  msg = -1
  End If
  ReportDriveStatus = msg
  End Function
  '可用的返回类型包括 FAT、NTFS 和 CDFS。
  Public Function ShowFileSystemType(drvspec)
  Dim d
  If ReportDriveStatus(drvspec) = 1 Then
  Set d = objFSO.GetDrive(drvspec)
  ShowFileSystemType = d.FileSystem
  ELse
  ShowFileSystemType = -1
  End if
  End Function
  End Class
  %>
分享到:
评论

相关推荐

    asp.net学习积累的代码段

    新建 文本文档.txt 悬停时的提示代码.txt 学习代码.doc 学习过程中的知识.doc 页面中传值到另一个页面上的控件).txt 页面中控件的传值.txt 用TREEVIEWKOk控件使用的站点地图文件.txt 用户控件.txt 在.NET中利用...

    Asp.net文本编辑器

    Asp.net网页里用于编辑文本的控件,代码是开源的FckEditor文本编辑器

    多功能文档编辑器源代码

    《多功能文档编辑器》界面采用3D窗体、XP按钮、XP菜单,无论是编辑文本文档还是编辑其它语言都可以轻松的编辑,浏览方便。主要功能如: 1、保存类型(保存和直接保存),直接保存是保存在多功能文档编辑器文件夹 2...

    asp.net在线文档管理系统

    在线文档管理模块源码 在线文件管理模块特点: 全静态页面、执行效率高; 使用AJAX技术,用户体验好; 界面美观,全新的对话框; 操作简便,一个页面完成所有操作; 纯DIV布局,代码简便控制,难度高; 纯...

    ASP电子商务网站建设(源代码+毕设文档).zip

    ASP 页是包括 HTML 标记、文本和脚本命令的文件。ASP 页可调用 ActiveX 组件来执行任务,例如连接到数据库或进行商务计算。通过 ASP,可为用户的 Web 页添加交互内容或用 HTML 页构成整个 Web 应用程序,这些应用...

    如何将一个TXT文档里内容导入到文本框里

    第一个文件ajax_txt.asp的代码: (此页是AJAX异步提交txt文本文件的路径到ajax_txt_save.asp页面,并从ajax_txt_save.asp获取返回的数据) <!DOCTYPE ...

    ASP参考手册.zip

    ASP即Active Server Pages,是MicroSOft公司开发的服务器端脚本环境,可用来创建动态交互式网页并建立强大的web应用程序...除服务器端脚本代码外,ASP文件也可以包含文本、HTML(包括相关的客户端脚本)和com组件调用。

    源代码管理器 ASP ACC单文件版 V1.0.rar

    之前由于自己的代码都是用文本文档保存,查找起来十分不方便,找什么代码都是从网上搜,自己保存的代码几乎没怎么用,可保存下来的代码越来越多,占用了不少的硬盘空间,终于有时间写了个这小东西,单文件的ASP文件...

    C#公共类源代码 带帮助文档

    WHC.OrderWater.Commons 伍华聪 公共类源码 类库 帮助文档 本资料共包含以下附件: WHC.OrderWater.Commons.rar 公共类文档.docx ----------------------------------------------------------- ----------...

    生成Word文档类库源码

    通过该组件可获取word标准模板中的填充域,将文本、图片和表格信息填充至填充域并生成word文档。 其中规定word标准模板的文件格式为.doc、.dot、.docx和.dotx,输出的word文档文件格式为.docx。 该组件的填充域...

    源代码管理器 ASP+ACC单文件版 V1.0

    之前由于自己的代码都是用文本文档保存,查找起来十分不方便,找什么代码都是从网上搜,自己保存的代码几乎没怎么用,可保存下来的代码越来越多,占用了不少的硬盘空间,终于有时间写了个这小东西,单文件的ASP文件...

    asp学习相关资料大全

    用WindonwsXP为操作平台,ASP作为脚本语言,采用SQL Sever 2000作为数据库,用户可以实现对数据的录入,修改,删除等操作。 2 系统开发背景 随着科学技术的不断提高,目前,学校学生管理是教务管理中的一个极为重要...

    AspStudio2005 V2.13 绿色版

    多类型编码编辑功能:软件能自动处理各种类型的文本编码,并实现了在简体环境中编辑繁体文档的功能。 执行文件导出功能:能导出内嵌ASP服务器的一个执行文件(普通执行文件、以服务方式运行的执行文件、或者能被...

    从ASP.NET得到Microsoft Word文档的代码

    自动化到Word允许你执行像创建新文档,向文档中添加文本,邮件合并,还有控制文档格式这样的操作。使用Word和其它Microsoft Office应用程序,几乎所有你能在用户面板上手动实现的操作都可以通过自动化编程实现。Word...

    ASP+ACCESS新闻发布系统(源代码+毕设文档).zip

    用ASP完成网络新闻发布系统的总体设计及各个细化模块的具体编程实现所开发的新闻发布网站系统必须具有新闻发布、新闻修改系统、各类新闻显示及相关内容浏览等功能。 新闻发布与新闻修改 在新闻浏览之前,要对新闻...

    幼儿识字[易语言编写,应用程序,源代码,帮助文档,开发文档]

    幼儿识字开发文档 一、开发目的  本软件最初的开发是为了练习自己的编程水平。每当看到有好的素材,就想着给变成电脑程序。半年多以前,有网友在论坛上发了一个例程与朋友们交流,我便对其进行了优化,将拼音装入...

    asp OpenTextFile文本读取与写入实例代码

    object.OpenTextFile(filename[, iomode[, create[, format]]])  参数  object :必选项。应为 FileSystemObject 对象的名称。  filename :必选项。字符串表达式,指明要打开的文件名称。...

    asp+txt通用查询系统

    asp+txt 通用查询系统 v3.8 操作 打开excel或者wps表格或者access文件,选取数据范围,然后复制。 新建空白文本文件,粘贴,保存,更名(选项名称),改后缀(.dat)。 将新的文件用你常用的上传手段上传至网站...

    推荐《浅谈asp.net“三层结构”原理与用意》

    转载  “三层结构”一词中的“三层”是指:“表现层”、“中间业务层”、“数据访问层”。其中:  表 现 层:位于最外层(最上层),离用户...数据访问,可以访问数据库系统、二进制文件、文本文档或是XML文档。

    FreeTextBoxV322 (asp.net文本编辑器,可以上传)

    asp.net适用的文本编辑器,适用framework1.1,2.0,3.5版本。可以上传插入图片,功能强大。内有代码示例和帮助文档FreeTextBox.chm

Global site tag (gtag.js) - Google Analytics