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
%>
发表评论
-
Flex加载多个Module时出现“TypeError: Error #1034: 强制转换类型失败”错误
2012-01-20 09:56 962Flex加载多个Module时出现“TypeError: Er ... -
Flex 笔记心得连载中
2012-01-20 09:56 716Flex 笔记心得连载中 2010年08月03日 获取焦 ... -
[tamarin系列之9] 在线的eval
2012-01-20 09:56 579[tamarin系列之9] 在线的eval 2010年06月 ... -
Flash务实主义――Loading
2012-01-20 09:56 527Flash务实主义――Loading ... -
Flex动态加载swc和swf中的class
2012-01-20 09:54 837Flex动态加载swc和swf中的class 2011年05 ... -
VB 刷网站代码
2012-01-19 15:00 578VB 刷网站代码 2011年03 ... -
批处理+VBS脚本实现纯文本代码格式化输出
2012-01-19 15:00 593批处理+VBS脚本实现纯文 ... -
为方便自己看网络小说,自己写个txt按章节分段的小程序
2012-01-19 15:00 911为方便自己看网络小说,自己写个txt按章节分段的小程序 20 ... -
2011-3-9
2012-01-19 15:00 4422011-3-9 2011年03月09日 REG2BAT ... -
OpenGL开发库的详细介绍
2012-01-17 04:43 509OpenGL开发库的详细介绍 ... -
转载:OpenGL显示文字
2012-01-17 04:43 537转载:OpenGL显示文字 2010年07月03日 本课 ... -
VS2005配置OpenGL
2012-01-17 04:43 992VS2005配置OpenGL 2011年06月24日 昨 ... -
OpenGL的安装
2012-01-17 04:43 617OpenGL的安装 2010年06月20 ... -
opengl
2012-01-17 04:43 681opengl 2010年11月17日 ... -
C#面试题集锦(你值得拥有!)
2012-01-16 03:37 1098C#面试题集锦(你值得拥 ... -
ASP.Net考试复习资料
2012-01-16 03:37 897ASP.Net考试复习资料 2011 ... -
ASP小偷(三):文档对象模型DOM
2012-01-16 03:37 1089ASP小偷(三):文档对象模型DOM 2009年08月22日 ... -
javascript:history.go()和History.back()的区别
2012-01-16 03:37 775javascript:history.go()和History ... -
经典的串口调试助手源代码(一)
2012-01-16 03:37 639经典的串口调试助手源代码(一) 2011年05月26日 ...
相关推荐
新建 文本文档.txt 悬停时的提示代码.txt 学习代码.doc 学习过程中的知识.doc 页面中传值到另一个页面上的控件).txt 页面中控件的传值.txt 用TREEVIEWKOk控件使用的站点地图文件.txt 用户控件.txt 在.NET中利用...
Asp.net网页里用于编辑文本的控件,代码是开源的FckEditor文本编辑器
《多功能文档编辑器》界面采用3D窗体、XP按钮、XP菜单,无论是编辑文本文档还是编辑其它语言都可以轻松的编辑,浏览方便。主要功能如: 1、保存类型(保存和直接保存),直接保存是保存在多功能文档编辑器文件夹 2...
在线文档管理模块源码 在线文件管理模块特点: 全静态页面、执行效率高; 使用AJAX技术,用户体验好; 界面美观,全新的对话框; 操作简便,一个页面完成所有操作; 纯DIV布局,代码简便控制,难度高; 纯...
ASP 页是包括 HTML 标记、文本和脚本命令的文件。ASP 页可调用 ActiveX 组件来执行任务,例如连接到数据库或进行商务计算。通过 ASP,可为用户的 Web 页添加交互内容或用 HTML 页构成整个 Web 应用程序,这些应用...
第一个文件ajax_txt.asp的代码: (此页是AJAX异步提交txt文本文件的路径到ajax_txt_save.asp页面,并从ajax_txt_save.asp获取返回的数据) <!DOCTYPE ...
ASP即Active Server Pages,是MicroSOft公司开发的服务器端脚本环境,可用来创建动态交互式网页并建立强大的web应用程序...除服务器端脚本代码外,ASP文件也可以包含文本、HTML(包括相关的客户端脚本)和com组件调用。
之前由于自己的代码都是用文本文档保存,查找起来十分不方便,找什么代码都是从网上搜,自己保存的代码几乎没怎么用,可保存下来的代码越来越多,占用了不少的硬盘空间,终于有时间写了个这小东西,单文件的ASP文件...
WHC.OrderWater.Commons 伍华聪 公共类源码 类库 帮助文档 本资料共包含以下附件: WHC.OrderWater.Commons.rar 公共类文档.docx ----------------------------------------------------------- ----------...
通过该组件可获取word标准模板中的填充域,将文本、图片和表格信息填充至填充域并生成word文档。 其中规定word标准模板的文件格式为.doc、.dot、.docx和.dotx,输出的word文档文件格式为.docx。 该组件的填充域...
之前由于自己的代码都是用文本文档保存,查找起来十分不方便,找什么代码都是从网上搜,自己保存的代码几乎没怎么用,可保存下来的代码越来越多,占用了不少的硬盘空间,终于有时间写了个这小东西,单文件的ASP文件...
用WindonwsXP为操作平台,ASP作为脚本语言,采用SQL Sever 2000作为数据库,用户可以实现对数据的录入,修改,删除等操作。 2 系统开发背景 随着科学技术的不断提高,目前,学校学生管理是教务管理中的一个极为重要...
多类型编码编辑功能:软件能自动处理各种类型的文本编码,并实现了在简体环境中编辑繁体文档的功能。 执行文件导出功能:能导出内嵌ASP服务器的一个执行文件(普通执行文件、以服务方式运行的执行文件、或者能被...
自动化到Word允许你执行像创建新文档,向文档中添加文本,邮件合并,还有控制文档格式这样的操作。使用Word和其它Microsoft Office应用程序,几乎所有你能在用户面板上手动实现的操作都可以通过自动化编程实现。Word...
用ASP完成网络新闻发布系统的总体设计及各个细化模块的具体编程实现所开发的新闻发布网站系统必须具有新闻发布、新闻修改系统、各类新闻显示及相关内容浏览等功能。 新闻发布与新闻修改 在新闻浏览之前,要对新闻...
幼儿识字开发文档 一、开发目的 本软件最初的开发是为了练习自己的编程水平。每当看到有好的素材,就想着给变成电脑程序。半年多以前,有网友在论坛上发了一个例程与朋友们交流,我便对其进行了优化,将拼音装入...
object.OpenTextFile(filename[, iomode[, create[, format]]]) 参数 object :必选项。应为 FileSystemObject 对象的名称。 filename :必选项。字符串表达式,指明要打开的文件名称。...
asp+txt 通用查询系统 v3.8 操作 打开excel或者wps表格或者access文件,选取数据范围,然后复制。 新建空白文本文件,粘贴,保存,更名(选项名称),改后缀(.dat)。 将新的文件用你常用的上传手段上传至网站...
转载 “三层结构”一词中的“三层”是指:“表现层”、“中间业务层”、“数据访问层”。其中: 表 现 层:位于最外层(最上层),离用户...数据访问,可以访问数据库系统、二进制文件、文本文档或是XML文档。
asp.net适用的文本编辑器,适用framework1.1,2.0,3.5版本。可以上传插入图片,功能强大。内有代码示例和帮助文档FreeTextBox.chm