- 浏览: 218817 次
- 性别:
- 来自: 重庆
文章分类
最新评论
-
husw:
不错,感谢分享!
fixed仿淘宝工具栏效果(两种) -
08tankuai:
试了一下!还不错,谢谢。
利用CSS让容器的溢出部分内容隐藏起来,smarty就可以不用截取字符串了 -
m2maomao:
yxyysu 写道明 白 了。恩,非常easy的。
让框架Frameset居中,并且固定宽度的巧妙办法 -
yxyysu:
明 白 了。
让框架Frameset居中,并且固定宽度的巧妙办法 -
yxyysu:
楼主,这段代码是什么意思呢?
为什么能出现这样的效果呢?
让框架Frameset居中,并且固定宽度的巧妙办法
<%
'//============文件操作==============
'取文件大小
Function GetFileSize(FileName)
'//功能:取文件大小
'//形参:文件名
'//返回值:成功为文件大小,失败为-1
'//
Dim f
If ReportFileStatus(FileName) = 1 Then
Set f = fso.Getfile(FileName)
GetFileSize = f.Size
Else
GetFileSize = -1
End if
End Function
'文件删除
Function deleteAFile(filespec)
'//功能:文件删除
'//形参:文件名
'//返回值:成功为1,失败为-1
'//
If ReportFileStatus(filespec) = 1 Then
fso.deleteFile(filespec)
deleteAFile = 1
Else
deleteAFile = -1
End if
End Function
'显示文件列表
Function ShowFileList(folderspec)
'//功能:目录存在时显示此目录下的所有文件
'//形参:目录名
'//返回值:成功为文件列表,失败为-1
'//
Dim f, f1, fc, s
If ReportFolderStatus(folderspec) = 1 Then
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "|"
Next
ShowFileList = s
Else
ShowFileList = -1
End if
End Function
'文件复制
Function CopyAFile(SourceFile,DestinationFile)
'//功能:源文件存在时,才能对文件进行复制,目的文件无影响
'//形参:源文件,目的文件
'//返回值:成功为1,失败为-1
'//
Dim MyFile
If ReportFileStatus(SourceFile) = 1 Then
Set MyFile = fso.GetFile(SourceFile)
MyFile.Copy (DestinationFile)
CopyAFile = 1
Else
CopyAFile = -1
End if
End Function
'文件移动
'Response.Write MoveAFile("f:\123\4561.exe","f:\123\4562.txt")
Function MoveAFile(SourceFile,DestinationFile)
'//功能:源文件存在时目的文件不存在时才能对文件进行移动
'//形参:源文件,目的文件
'//返回值:成功为1,失败为-1
'//
If ReportFileStatus(SourceFile)=1 And
ReportFileStatus(DestinationFileORPath) =-1 Then
fso.MoveFile SourceFile,DestinationFileORPath
MoveAFile = 1
Else
MoveAFile = -1
End if
End Function
'文件是否存在?
'Response.Write ReportFileStatus("G:\soft\delphi\my_pro\代码库.exe")
Function ReportFileStatus(FileName)
'//功能:判断文件是否存在
'//形参:文件名
'//返回值:成功为1,失败为-1
'//
Dim msg
msg = -1
If (fso.FileExists(FileName)) Then
msg = 1
Else
msg = -1
End If
ReportFileStatus = msg
End Function
'文件创建日期
'Response.Write ShowDatecreated("G:\soft\delphi\my_pro\代码库.exe")
'Response.Write ShowDatecreated("G:\soft\delphi\my_pro\复件
代码库.exe")
Function ShowDatecreated(filespec)
'//功能:文件创建日期
'//形参:文件名
'//返回值:成功:文件创建日期,失败:-1
'//
Dim f
If ReportFileStatus(filespec) = 1 Then
Set f = fso.GetFile(filespec)
ShowDatecreated = f.Datecreated
Else
ShowDatecreated = -1
End if
End Function
'文件属性
'Response.Write GetAttributes("G:\soft\delphi\my_pro\复件
代码库.exe")
Function GetAttributes(FileName)
'//功能:显示文件属性
'//形参:文件名
'//返回值:成功:文件属性,失败:-1
'//
Dim f,Str
If ReportFileStatus(FileName) = 1 Then
Set f = fso.GetFile(FileName)
select Case f.attributes
Case 0 Str="普通文件。没有设置任何属性。 "
Case 1 Str="只读文件。可读写。 "
Case 2 Str="隐藏文件。可读写。 "
Case 4 Str="系统文件。可读写。 "
Case 16 Str="文件夹或目录。只读。 "
Case 32 Str="上次备份后已更改的文件。可读写。 "
Case 1024 Str="链接或快捷方式。只读。 "
Case 2048 Str=" 压缩文件。只读。"
End select
GetAttributes = Str
Else
GetAttributes = -1
End if
End Function
'最后一次访问/最后一次修改时间
'Response.Write ShowFileAccessInfo("G:\soft\delphi\my_pro\复件代码库.exe")
Function ShowFileAccessInfo(FileName,InfoType)
'//功能:显示文件创建时信息
'//形参:文件名,信息类别
'// 1 -----创建时间
'// 2 -----上次访问时间
'// 3 -----上次修改时间
'// 4 -----文件路径
'// 5 -----文件名称
'// 6 -----文件类型
'// 7 -----文件大小
'// 8 -----父目录
'// 9 -----根目录
'//返回值:成功为文件创建时信息,失败:-1
'//
Dim f, s
If ReportFileStatus(FileName) = 1 then
Set f = fso.GetFile(FileName)
select Case InfoType
Case 1 s = f.Datecreated '// 1 -----创建时间
Case 2 s = f.DateLastAccessed '// 2 -----上次访问时间
Case 3 s = f.DateLastModified '// 3 -----上次修改时间
Case 4 s = f.Path '// 4-----文件路径
Case 5 s = f.Name '// 5 -----文件名称
Case 6 s = f.Type '// 6-----文件类型
Case 7 s = f.Size '// 7-----文件大小
Case 8 s = f.ParentFolder '// 8 -----父目录
Case 9 s = f.RootFolder '// 8 -----根目录
End select
ShowFileAccessInfo = s
ELse
ShowFileAccessInfo = -1
End if
End Function
'写文本文件
Function WriteTxtFile(FileName,TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
select Case WriteORAppendType
Case 1: '文件进行写操作
Set f = fso.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 = fso.OpenTextFile(FileName, ForAppending)
f.Write TextStr
f.Close
WriteTxtFile = 1
Else
WriteTxtFile = -1
End if
End select
End Function
'读文本文件
Function ReadTxtFile(FileName)
Const ForReading = 1, ForWriting = 2
Dim f, m
If ReportFileStatus(FileName) = 1 then
Set f = fso.OpenTextFile(FileName, ForReading)
m = f.ReadLine
'm = f.ReadAll
'f.SkipLine
ReadTxtFile = m
f.Close
Else
ReadTxtFile = -1
End if
End Function
'建立文本文件
'//=============目录操作===========
'取目录大小
Function GetFolderSize(FolderName)
'//功能:取目录大小
'//形参:目录名
'//返回值:成功为目录大小,失败为-1
'//
Dim f
If ReportFolderStatus(FolderName) = 1 Then
Set f = fso.GetFolder(FolderName)
GetFolderSize = f.Size
Else
GetFolderSize = -1
End if
End Function
'创建的文件夹
Function createFolderDemo(FolderName)
'//功能:创建的文件夹
'//形参:目录名
'//返回值:成功为1,失败为-1
'//
Dim f
If ReportFolderStatus(Folderspec) = 1 Then
createFolderDemo = -1
Else
Set f = fso.createFolder(FolderName)
createFolderDemo = 1
End if
End Function
'目录删除
Function deleteAFolder(Folderspec)
'//功能:目录删除
'//形参:目录名
'//返回值:成功为1,失败为-1
'//
Response.write Folderspec
If ReportFolderStatus(Folderspec) = 1 Then
fso.deleteFolder (Folderspec)
deleteAFolder = 1
Else
deleteAFolder = -1
End if
End Function
'显示目录列表
Function ShowFolderList(folderspec)
'//功能:目录存在时显示此目录下的所有子目录
'//形参:目录名
'//返回值:成功为子目录列表,失败为-1
'//
Dim f, f1, fc, s
If ReportFolderStatus(folderspec) = 1 Then
Set f = fso.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
'目录复制
Function CopyAFolder(SourceFolder,DestinationFolder)
'//功能:源目录存在时,才能对目录进行复制,目的目录无影响
'//形参:源目录,目的目录
'//返回值:成功为1,失败为-1
'//
Dim MyFolder
If ReportFolderStatus(SourceFolder) = 1 and ReportFolderStatus(DestinationFolder) = -1 Then
Set MyFolder = fso.GetFolder(SourceFolder)
fso.CopyFolder SourceFolder,DestinationFolder
CopyAFolder = 1
Else
CopyAFolder = -1
End if
End Function
'目录进行移动
Function MoveAFolder(SourcePath,DestinationPath)
'//功能:源目录存在时目的目录不存在时才能对目录进行移动
'//形参:源目录,目的目录
'//返回值:成功为1,失败为-1
'//
If ReportFolderStatus(SourcePath)=1 And ReportFolderStatus(DestinationPath)=0 Then
fso.MoveFolder SourcePath, DestinationPath
MoveAFolder = 1
Else
MoveAFolder = -1
End if
End Function
'判断目录是否存在
'Response.Write ReportFolderStatus("G:\soft\delphi\my_pro\")
Function ReportFolderStatus(fldr)
'//功能:判断目录是否存在
'//形参:目录
'//返回值:成功为1,失败为-1
'//
Dim msg
msg = -1
If (fso.FolderExists(fldr)) Then
msg = 1
Else
msg = -1
End If
ReportFolderStatus = msg
End Function
'目录创建时信息
Function ShowFolderAccessInfo(FolderName,InfoType)
'//功能:显示目录创建时信息
'//形参:目录名,信息类别
'// 1 -----创建时间
'// 2 -----上次访问时间
'// 3 -----上次修改时间
'// 4 -----目录路径
'// 5 -----目录名称
'// 6 -----目录类型
'// 7 -----目录大小
'// 8 -----父目录
'// 9 -----根目录
'//返回值:成功为目录创建时信息,失败:-1
'//
Dim f, s
If ReportFolderStatus(FolderName) = 1 then
Set f = fso.GetFolder(FolderName)
select Case InfoType
Case 1 s = f.Datecreated '// 1 -----创建时间
Case 2 s = f.DateLastAccessed '// 2 -----上次访问
时间
Case 3 s = f.DateLastModified '// 3 -----上次修改时间
Case 4 s = f.Path '// 4-----文件路径
Case 5 s = f.Name '// 5-----文件名称
Case 6 s = f.Type '// 6-----文件类型
Case 7 s = f.Size '// 7-----文件大小
Case 8 s = f.ParentFolder '// 8 -----父目录
Case 9 s = f.RootFolder '// 9 -----根目录
End select
ShowFolderAccessInfo = s
ELse
ShowFolderAccessInfo = -1
End if
End Function
Function DisplayLevelDepth(pathspec)
Dim f, n ,Path
Set f = fso.GetFolder(pathspec)
If f.IsRootFolder Then
DisplayLevelDepth ="指定的文件夹是根文件夹。"&RootFolder
Else
Do Until f.IsRootFolder
Path = Path & f.Name &"<br>"
Set f = f.ParentFolder
n = n + 1
Loop
DisplayLevelDepth ="指定的文件夹是嵌套级为 " & n & "的文件夹。<br />"&Path
End If
End Function
'//==============磁盘操作================
'驱动器是否存在?
'Response.Write ReportDriveStatus("C:\")
Function ReportDriveStatus(drv)
'//功能:判断磁盘是否存在
'//形参:磁盘
'//返回值:成功为1,失败为-1
'//
Dim msg
msg = -1
If fso.DriveExists(drv) Then
msg = 1
Else
msg = -1
End If
ReportDriveStatus = msg
End Function
'--------可用的返回类型包括 FAT、NTFS 和 CDFS。
'Response.Write ShowFileSystemType("C:\")
Function ShowFileSystemType(drvspec)
'//功能:磁盘类型
'//形参:磁盘名
'//返回值:成功为类型:FAT、NTFS 和 CDFS,失败:-1
'//
Dim d
If ReportDriveStatus(drvspec) = 1 Then
Set d = fso. GetDrive(drvspec)
ShowFileSystemType = d.FileSystem
ELse
ShowFileSystemType = -1
End if
End Function
%>
发表评论
-
IIS出现An error occurred on the server when processing the URL. Please contact the
2012-02-21 10:38 1076今天把ASP程序部署到iis7,出现An error occ ... -
asp返回上一页,刷新,不刷新
2010-07-17 05:05 25611、返回上一页并刷新方法一:Response.Write(&q ... -
asp防注入代码
2009-07-09 14:22 1196<%StrTemp=request.servervari ... -
如何最准确地统计在线用户数?
2009-07-09 14:18 1080我们推荐的这个程序据说是目前最好的在线用户数量统计程序。代码如 ... -
ASP的URL重写技术(IIS的ISAPI)
2009-07-09 13:49 4295这两天捣鼓个程序,想 ... -
ASP中常用的函数
2009-07-09 13:43 684Array() FUNCTION: 返回一个数组 SYNT ... -
ASP+FSO应用实例篇
2009-07-09 13:42 676我们结合学过的东西,制做一个简单的生成HTML文文章系统,包含 ... -
asp学习入门经验谈
2009-07-09 13:40 592一.VBScript语法简介VBScript语句是一种基于VB ... -
一小时ASP入门
2009-07-09 13:38 607<%语句……%><2> ... -
ASP实用函数库3
2009-07-08 14:33 678Len() FUNCTION: 返回字符串的长度. SYNT ... -
ASP实用函数库2
2009-07-08 14:28 562Instr() FUNCTION: 返回字符或字符串在另 ... -
ASP实用函数库1
2009-07-08 14:20 649<%'判断文件名是否合法Function isFilen ... -
ASP生成静态页面的方法
2009-07-08 14:01 730ASP2HTML WITH TEMP ... -
平时看过的一些企业网站网址
2009-04-03 18:10 879http://www.qy5.com/http://ww ... -
ASP编程技巧大全--ASP编程有用的例子
2009-03-24 14:32 6031.如何用ASP判断你的网站的虚拟物理路径 答:使用Mapp ... -
ASP连接SQL2005的语句
2009-03-16 13:49 3383ASP连接SQL2005的语句 文:1T0F 图:无 hi.b ... -
asp实现返回上一页和转到另一页的功能函数
2008-12-11 17:42 1423asp实现返回上一页和转到另一页的功能函数 '函数名称: Al ... -
弹出窗口,转向下一页
2008-12-10 09:29 630Response.Write("<script ... -
ASP内置函数速查表
2008-11-27 16:04 801ASP内置函数速查表 作者:zhangtao 日期:20 ... -
文字和图片把表格撑大的解决方案
2008-11-24 15:08 2176文字输入多了不换行把表格撑大了的修改方法 <table ...
相关推荐
ASP中FSO组件的功能很强大,如果没有FSO很难想象ASP会变成什么样。对于学习asp编程的朋友一定会接触到FSO相关的操作,如备份数据库,读取文件,生成...本文就列举了ASP中常用的22个FSO文件操作函数,相信能为您带来方便
本文介绍一个检测ASP图片木马的函数,由于FSO无法读取客户端文件的内容,所以只能在文件上传到服务器后再打开文件进行内容检查。
您可能感兴趣的文章:asp fso操作类asp结合fso实现文件或文件夹创建删除等操作的函数asp下利用fso实现文件夹或文件移动改名等操作函数使用FSO修改文件夹的名称实现文件转移防盗链fso asp生成静态html的代码asp下用...
‘建立文件夹函数 Function CreateFolder(strFolder)’参数为相对路径 ‘首选判断要建立的文件夹是否已经存在 Dim strTestFolder,objFSO strTestFolder = Server.Mappath(strFolder) Set objFSO = ...
FSO文件(File)对象属性 DateCreated 返回该文件夹的创建日期和时间 DateLastAccessed 返回最后一次访问该文件的日期和时间 DateLastModified 返回最后一次修改该文件的日期和时间 Drive 返回该文件所在的驱动器的...
asp利用fso实现文件的移动function movefiles(sFolder,dFolder) on error resume next dim fso set fso = server.createobject(“scripting.filesystemobject”) if fso.folderexists(server.mappath...
星外科技再次开发国内首创的功能,新版本已支持用户... 您可能感兴趣的文章:asp fso操作类asp结合fso实现文件或文件夹创建删除等操作的函数asp下利用fso实现文件夹或文件移动改名等操作函数使用FSO修改文件夹的名称实现
一些asp初学者常用的代码 0.获得asp页面执行时间 1.获得系统时间: 2.取得来访用的IP(显示ip): 3.获得系统,浏览器版本: 4.去除IE混动条: 5.进入网站,跳出广告: 6.随机数: 7.向上混动代码: 8.自动关闭网页: 9.随机背景...
(2) 配置AspBox相关参数(文件AB.Config.asp) 2、AspBox核心主要包含了这么些核心: A处理Array数组 C通用函数类 Cookie操作类 Catch缓存类操作 Char字符处理类 D一般函数库 DB数据操作类 DBO数据操作对象...
sp+fso实现文件或文件夹检测是否存在,创建,删除的函数
由于动态页是utf8格式的编码,我... www.iisboy.com又找了一会,找到一个函数,可代替fso生成文件,它使用的adodb.stream对象来生成utf8文件的,函数如下: 代码如下:‘————————————————- ‘函数
ASP环境建立文件夹和文件,使用fso函数的实例
FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题,至少我是这么认为的,还要别外做一个模板,麻烦!,我今天看见有一个方法可以...,将这个textarea包含在表单中,在接收表单页用创建FSO对象,如下生成i
’我写的一个遍历目录以及目录下文件的函数, %> <% function bianli(path) set fso=server.CreateObject(scripting.filesystemobject) on error resume next set objFolder=fso.GetFolder(path)...
filefinder 的代码很简单,由3 个函数和 30 行左右的顺序代码构成。 最关键的是 findfiles 函数,通过对它的递归调用实现对某个目录的遍历,并且按照特定的文件扩展名来搜寻这些文件。 function findfiles...
两个函数都是基于ASP中的FileSystemObject对象,也就是FSO,写成函数方便以后使用。 ASP检查目录是否存在的函数代码 Function isExistFolder(Byval folderDir) on error resume next If objFso.FolderExists...