• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    asp 中常用的文件处理函数
    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_monthc_dayc_hourc_minutec_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
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    %>

    您可能感兴趣的文章:
    • ASP.NET MVC处理文件上传的小例子
    • asp.net 文件上传实例汇总
    • asp.net文件上传示例分享
    • ASP.NET让FileUpload控件支持浏览自动上传功能的解决方法
    • asp.net fileupload控件上传文件与多文件上传
    • asp.net FileUpload控件实现文件格式判断与文件大小限制
    • ASP.NET实现的简单易用文件上传类
    • ASP.NET对大文件上传的解决方案
    • asp.net批量多选文件上传解决方案
    • ASP.NET设计FTP文件上传的解决方案
    • asp.net文件上传带进度条实现案例(多种风格)
    • asp.net文件上传解决方案(图片上传、单文件上传、多文件上传、检查文件类型)
    • ASP.NET MVC5实现文件上传与地址变化处理(5)
    • ASP.NET文件处理如何操作
    上一篇:在线修改Serv-U 4.2用户密码
    下一篇:FSO+递归生成文件列表(xml)
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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