开发学院WEB开发ASP ASP自动检测创建多级目录,fso与stream生成文件函数... 阅读

ASP自动检测创建多级目录,fso与stream生成文件函数

 2009-06-30 04:27:00 来源:WEB开发网   
核心提示:<%' 网站根目录const global_default_root_path = "/"' 描述: 建立目录的程序,如果有多级目录,ASP自动检测创建多级目录,fso与stream生成文件函数,则一级一级的创建' 作者: xiaoyuehen' 日期: 200

<%

' 网站根目录
const global_default_root_path = "/"
' 描述: 建立目录的程序,如果有多级目录,则一级一级的创建
' 作者: xiaoyuehen
' 日期: 2006-6-3
' 参数: strlocalpath : string, 创建路径, 必须为物理路径
' 返回: True/False
function create_directory(strlocalpath)

create_directory = false

dim strlocalfolder

dim strpath, tmppath, tmptpath

dim arrpathlist, intlevel

strlocalfolder = server.mappath(global_default_root_path)

if left(strlocalpath, len(strlocalfolder)) <> strlocalfolder then


exit function

end if

' 获得目录

strpath

= replace(strlocalpath, strlocalfolder, "")

if left(strpath, 1) = "\" then


strpath = right(strpath, len(strpath) - 1)

end if

dim objfolder

set objfolder  = server.createobject("Scripting.FileSystemObject")

' 如果该目录已存在, 则返回 true

  if objfolder.folderexists(strlocalpath) then


create_directory = true


exit function

end if

arrpathlist
= split(strpath, "\")

intlevel

= ubound(arrpathlist)

dim i

tmptpath = ""

for i = 0 to intlevel


tmptpath = tmptpath & arrpathlist(i) & "\"

tmppath = strlocalfolder & "\" & tmptpath


if not objfolder.folderexists(tmppath) then objfolder.createfolder tmppath

next

set objfolder = nothing

create_directory = true
end function
' 描述: fso 生成文件
' 作者: xiaoyuehen
' 日期: 2006-6-3
' 参数: strlocalpath : string, 创建路径, 必须为物理路径
' 返回: True/False
function fcreate_file(strfilename, byref strcontent)

fcreate_file = false

dim strpath

strpath = left(strfilename, instrrev(strfilename, "\", -1, 1))

'检测路径及文件名有效性

if not(create_directory(strpath)) then exit function

const forreading = 1, forwriting = 2, forappending = 8

dim fso, f

set fso = createobject("scripting.filesystemobject")

set f = fso.opentextfile(strfilename, forwriting, true, -2)

f.write strcontent

f.close

set fso = nothing

set f = nothing

fcreate_file = true
end function
' 描述: stream 生成文件
' 作者: xiaoyuehen
' 日期: 2006-6-3
' 参数: strfilename : string, 文件完整路径, 必须为物理路径
'
  strcontent : string, 文本内容
' 返回: True/False
function screate_file(strfilename, byref strcontent)

screate_file = false

dim strpath

strpath = left(strfilename, instrrev(strfilename, "\", -1, 1))

'检测路径及文件名有效性

if not(create_directory(strpath)) then exit function

dim ado_stream

const forreading = 1, forwriting = 2

set ado_stream = server.createobject("adodb.stream")

with ado_stream


.Open


.type = 2


.Writetext(strcontent)


.SaveToFile strfilename, forwriting


.SetEOS

end with

set ado_stream = nothing

screate_file = true
end function%>

Tags:ASP 自动 检测

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接