海贼主
1、root
函数格式 root()
功能描述 返回一个路径串变量
应用代码 'sample string = c:\intels\jingcaichunfeng\'
public function root()
root = request.servervariables("appl_physical_path")
end function
2、url
函数格式 url()
功能描述 返回一个url串变量
应用代码 'sample string = http://www.intels.net/filesys.asp'
public function url()
url ="http://"&request.servervariables("server_name")
&request.servervariables("script_name")
end function
3、mkdir
函数格式 mkdir( dirname )
功能描述 创建一个目录并返回信息
应用代码 public function mkdir( xvar )
set sys = server.createobject("scripting.filesystemobject")
if sys.folderexists( xvar ) then
msg ="抱歉,该目录已存在! "
else
sys.createfolder( xvar )
msg ="恭喜,目录创建成功! "
end if
set sys = nothing
mkdir = msg
end function
4、rmdir
函数格式 rmdir( dirname )
功能描述 删除一个目录并返回信息
应用代码 public function rmdir( xvar )
set sys = server.createobject("scripting.filesystemobject")
if sys.folderexists( xvar ) then
sys.deletefolder( xvar )
msg ="恭喜,目录删除成功!"
else
msg ="抱歉,该目录还未被创建! "
end if
set sys = nothing
rmdir = msg
end function
5、isdir
函数格式 isdir( dirname )
功能描述 检查一个目录是否存在并返回信息
应用代码 public function isdir( xvar )
set sys = server.createobject("scripting.filesystemobject")
if sys.folderexists( xvar ) then
msg = true
else
msg = false
end if
set sys = nothing
isdir = msg
end function
6、cpdir
函数格式 cpdir( dirname, destination, overwrite )
功能描述 复制文件夹并返回信息
应用代码 public function cpdir( xvar, yvar, zvar )
set sys = server.createobject("scripting.filesystemobject")
if sys.folderexists( xvar ) then
sys.copyfolder xvar, root&yvar, zvar
msg ="恭喜,目录复制成功!"
else
msg ="抱歉,没有找到您想要的目录!"
end if
set sys = nothing
cpdir = msg
end function
7、mvdir
函数格式 mvdir( dirname, destination )
功能描述 移动一个文件夹并返回信息
应用代码 public function mvdir( xvar, yvar )
set sys = server.createobject("scripting.filesystemobject")
if sys.folderexists( xvar ) then
sys.movefolder xvar, root&yvar
msg ="恭喜,目录夹已移动!"
else
msg ="抱歉,没有找到您想要的目录!"
end if
set sys = nothing
mvdir = msg
end function
8、isfile
函数格式 isfile( filename )
功能描述 检查文件是否存在并返回信息
应用代码 public function isfile( xvar )
set sys = server.createobject("scripting.filesystemobject")
if sys.fileexists( xvar ) then
msg = true
else
msg = false
end if
set sys = nothing
isfile = msg
end function
9、wfile
函数格式 wfile( filename, overwrite, string )
功能描述 写入串到一个文件并返回信息
应用代码 public function wfile( xvar, yvar, zvar )
set sys = server.createobject("scripting.filesystemobject")
if yvar then
set txt = sys.opentextfile( xvar, 2 )
txt.write( zvar )
txt.close
msg ="恭喜,文件创建成功并保存!"
else
if sys.fileexists( xvar ) then
msg ="抱歉,文件已经存在!"
end if
set sys = nothing
wfile = msg
end function
10、rfile
函数格式 rfile( filename )
功能描述 读取一个文件并返回信息
应用代码 public function rfile( xvar )
set sys = server.createobject("scripting.filesystemobject")
if sys.fileexists( xvar ) then
set txt = sys.opentextfile( xvar, 1 )
msg = txt.readall
txt.close
else
msg ="抱歉,文件不存在!"
end if
set sys = nothing
rfile = msg
end function
11、afile
函数格式 afile( filename, string )
功能描述 添加串到一个文件并返回信息
应用代码 public function afile( xvar, zvar )
set sys = server.createobject("scripting.filesystemobject")
if sys.fileexists( xvar ) then
set txt = sys.opentextfile( xvar, 8 )
txt.write( zvar )
txt.close
msg ="恭喜,文件添加成功并保存!"
else
msg ="抱歉,文件不存在!"
end if
set sys = nothing
afile = msg
end function
12、cpfile
函数格式 cpfile( filename, destination, overwrite )
功能描述 复制一个文件并返回信息
应用代码 public function cpfile( xvar, yvar, zvar )
set sys = server.createobject("scripting.filesystemobject")
if sys.fileexists( xvar ) then
sys.copyfile xvar, root&yvar, zvar
msg ="恭喜,文件复制成功!"
else
msg ="抱歉,文件复制失败!"
end if
set sys = nothing
cpfile = msg
end function
13、mvfile
函数格式 mvfile( filename, destination )
功能描述 移动一个文件并返回信息
应用代码 public function mvfile( xvar, yvar )
set sys = server.createobject("scripting.filesystemobject")
if sys.fileexists( xvar ) then
sys.movefile xvar, root&yvar
msg ="恭喜,文件移动成功!"
else
msg ="抱歉,文件移动失败!"
end if
set sys = nothing
mvfile = msg
end function
14、rmfile
函数格式 rmfile( filename )
功能描述 删除一个文件并返回信息
应用代码 public function rmfile( xvar )
set sys = server.createobject("scripting.filesystemobject")
if sys.fileexists( xvar ) then
sys.deletefile( xvar )
msg ="恭喜,文件删除成功!"
else
msg ="抱歉,文件删除失败!"
end if
set sys = nothing
rmfile = msg
end function
