style 此样式表须保留 !-- u.background-color:FEDC76;cursor:hand; abackground-color:97EF53; fontpadding-bottom:0;padding-top:0;margin-bottom:0;margin-top:0; -- /style title本站文件地图/title body span id=shhi style=text-align:right;width:20%;position:absolute;botto 发布时间:2012-01-11 作者: 佚名 views(189)
下面列举一下这些不常用的功能: 很少被了解的FSO功能 GetSpecialFolder Method 返回特定的Windows文件夹的路径: Windows安装目录;Windows系统目录; Windows临时目录 FSO.GetSpecialFolder([0, 1, or 2]) GetTempName Method 返回一个随机产生的文件或者目录名字,用于需要存储临时数据时 GetAbsolutePathName Method 返 发布时间:2012-01-11 作者: 佚名 views(165)
WriteLine 方法 向 TextStream 文件写入指定字符串和新行字符。 object.WriteLine([string]) 参数 object 必选项。应为 TextStream 对象的名称。 string 可选项。要写入文件的文本。如果省略,将向文件写入新行字符。 说明 下面例子举例说明如何使用 WriteLine 方法: Function WriteLineToFile Const ForReading = 1, ForWr 发布时间:2012-01-11 作者: 佚名 views(306)
%set fsoSpaceObj=Server.CreateObject('Scripting.FileSystemObject') sysrootdir='' if SysRootDir = '' then SysPath=Server.mappath('/') else SysPath=Server.mappath('/' SysRootDir) end if if fsoSpaceObj.FolderExists(SysPath) then set GetSysSpace=fsoSpace 发布时间:2012-01-11 作者: 佚名 views(166)
如何使用FSO修改文件夹的名称呢? 一个简单的函数: % Function fldrename(nowfld,newfld) nowfld=server.mappath(nowfld) newfld=server.mappath(newfld) Set fso = CreateObject('Scripting.FileSystemObject') if not fso.FolderExists(nowfld) then response.write('需要修改的文件夹路径不正确或文件夹名称输 发布时间:2012-01-11 作者: 佚名 views(196)
// ====================================================== // 实现一个静态方法将指定文件夹下面的所有内容copy到目标文件夹下面 // 如果目标文件夹为只读属性就会报错。 // April 18April2005 In STU // ====================================================== public static void CopyDir(string srcPath,string 发布时间:2012-01-11 作者: 佚名 views(246)
实现功能: 文件(夹)目录列表提供了查阅目录下面的文件和文件夹 文件写,创,删提供了编辑,删除文件(文件夹)的操作 创建文件夹/文件针对创建文件夹(文件)而设置. 上传文件您可以模拟FTP上传,文件大小,类型不受限制. upfso.asp//控制上传的文件 !--#include file='upload.asp' -- %On Error Resume Next% STYLE type='text/c 发布时间:2012-01-11 作者: 佚名 views(214)
% '功能:判断文件名是否合法 'isFileName [filename] '文件名不能包含下列任何字符之一 ' \ / : * ? | Function isFileName(sFileName) Dim sErrorStr, i isFileName = TRUE sErrorStr = Array(\, /, :, *, ?, , , , |) If Len(sFileName ) = 0 Then isFileName = FALSE : Exit Function For i = 0 发布时间:2012-01-11 作者: 佚名 views(169)
|