当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp中常用的文件处理函数

ASP
ASP基础讲座（下）
解决IIS5 HTTP500内部错误
ASP 3.0高级编程（四十六）
ASP 3.0高级编程（四十五）
ASP 3.0高级编程（四十四）
ASP 3.0高级编程（四十三）
ASP 3.0高级编程（四十二）
ASP 3.0高级编程（四十一）
ASP 3.0高级编程（三十九）
ASP 3.0高级编程（三十八）
ASP 3.0高级编程（三十七）
ASP 3.0高级编程（三十六）
ASP 3.0高级编程（三十五）
ASP 3.0高级编程（三十四）
ASP 3.0高级编程（三十三）
ASP 3.0高级编程（三十二）
ASP 3.0高级编程（三十一）
ASP错误代码说明
jscript错误代码及相应解释大全
ASP错误处理

No. « 12 13 14 15 »

技术文章搜索

关键字

ASP 中的 asp中常用的文件处理函数

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 67 ::
收藏到网摘: n/a

asp 中处理文件上传以及删除时常用的自定义函数：

　　

以下为引用的内容：
<%
　　''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
　　'所有自定义的VBS函数
　　''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
　　function DeleteFile(Filename) '删除文件
　　if Filename<>"" then
　　Set fso = server.CreateObject("Scripting.FileSystemObject")
　　if fso.FileExists(Filename) then
　　fso.DeleteFile Filename
　　end if
　　set fso = nothing
　　end if
　　end function
　　''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
　　function CreateDIR(byval LocalPath) '建立目录的程序，如果有多级目录，则一级一级的创建
　　on error resume next
　　LocalPath = replace(LocalPath,"\","/")
　　set FileObject = server.createobject("Scripting.FileSystemObject")
　　patharr = split(LocalPath,"/")
　　path_level = ubound(patharr)
　　for i = 0 to path_level
　　if i=0 then pathtmp=patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/"
　　cpath = left(pathtmp,len(pathtmp)-1)
　　if not FileObject.FolderExists(cpath) then FileObject.CreateFolder cpath
　　next
　　set FileObject = nothing
　　if err.number<>0 then
　　CreateDIR = false
　　err.Clear
　　else
　　CreateDIR = true
　　end if
　　end function

 

　''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
　　function SaveRandFileName(byval szFilename) '根据原文件名生成新的随机文件名
　　randomize
　　'ranNum=int(90000*rnd)+10000
　　'if month(now)<10 then c_month="0" & month(now) else c_month=month(now)
　　'if day(now)<10 then c_day="0" & day(now) else c_day=day(now)
　　'if hour(now)<10 then c_hour="0" & hour(now) else c_hour=hour(now)
　　'if minute(now)<10 then c_minute="0" & minute(now) else c_minute=minute(now)
　　'if second(now)<10 then c_second="0" & second(now) else c_second=minute(now)
　　fileExt_a=split(szFilename,".")
　　fileExt=lcase(fileExt_a(ubound(fileExt_a)))

　　SaveRandFileName=replace(replace(replace(now,":",""),"-","")," ","")&int(10*rnd)&"."&fileExt 　　
　　'GenerateRandomFileName = year(now)&c_month&c_day&c_hour&c_minute&c_second&"_"&ranNum&"."&fileExt
　　end function
　　''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

　function jaron_replacer(strContent,start_string,end_string,replace_string)
　　'CMS替换函数：源字符串，前部分，后部分，替换成的字符
　　'返回被替换后的字符串
　　jaron_replacer = replace(strContent,mid(strContent,instr(strContent,start_string),instr(strContent,end_string)+len(end_string)-1),replace_string)
　　end function
　　''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
　　function replaceplus(strContent,start_string,end_string,replace_string)
　　'文档中，将所有开始，结束之间的所有字符删除
　　on error resume next
　　MARKCOUNTS = ubound(split(strContent,start_string))
　　PRESTRING = strContent
　　for i=0 to MARKCOUNTS
　　STARTMARK=instr(1,PRESTRING,start_string,1)
　　if STARTMARK=0 then exit for
　　COMPMARK=instr(1,PRESTRING,end_string,1) + len(end_string)
　　VerString=mid(PRESTRING,STARTMARK,COMPMARK - STARTMARK)
　　PRESTRING = replace(PRESTRING,VerString,replace_string)
　　next
　　replaceplus = PRESTRING
　　if err.number<>0 then err.Clear
　　end function
　　''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
　　%>