您正在使用IPV4(34.204.180.223)访问本站 您本次共访问本站 1 次
用户名: 用QQ登录本站
密 码:
验证码:
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】618云上GO!云服务器限时秒杀,1核2G首年95元!       [公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 建军节 3
2021年 七夕节 16
2022年 元 旦 156
2022年 春 节 187
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP >> 内容
    ASP根据自定义名称生成目录的程序
    内容摘要: %Function MakeNewsDir(foldername)dim fso,fSet fso = Server.CreateObject('Scripting.FileSystemObject')Set f = fso.CreateFolder(foldername)MakeNewsDir = TrueSet fso = nothingEnd Func......
    <%

    Function MakeNewsDir(foldername)

    dim fso,f

    Set fso = Server.CreateObject("Scripting.FileSystemObject")

    Set f = fso.CreateFolder(foldername)

    MakeNewsDir = True

    Set fso = nothing

    End Function

    Function CreateHTMLPage(filename,FileData,C_mode) '生成文件

    if C_mode=0 then '使用FSO生成

    Dim fso,txt

    Set fso = CreateObject("Scripting.FileSystemObject")

    Filepath=Server.MapPath(filename)

    if CheckFile(filename) then fso.DeleteFile Filepath,True '防止续写

    Set txt=fso.OpenTextFile(Filepath,8,True)

    txt.Write FileData

    txt.Close

    Set fso = nothing

    elseif C_mode=1 then '使用Stream生成

    Dim viboStream

    On Error Resume Next

    Set viboStream = Server.createObject("ADODB.Stream")

    If Err.Number=-2147221005 Then

    Response.Write "<div align='center' style=""font-size:12px;font-family:Tahoma;"">不好意思,您的主机不支持ADODB.Stream,本程序无法运行!</div>"

    Err.Clear

    Response.End

    End If

    With viboStream

    .Type = 2

    .Open

    .CharSet = "GB2312"

    .Position = objStream.Size

    .WriteText = FileData

    .SaveToFile Server.MapPath(filename),2

    .Close

    End With

    Set viboStream = Nothing

    end if

    Response.Write "<div align='center' style=""font-size:12px;font-family:Tahoma;"">文件 <a href="""&filename&""" target=""_blank"" style=""font-weight: bold;color: #FF0000;"">"&filename&"</a> 已经生成完毕!...</div>"

    Response.Flush()

    End Function

    %>

    版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:ASP完美在线解压、压缩、删除文件代码 下一篇:ASP截取采集网页指定内容函数
    发布日期:2021/7/11
    手机扫二维码直达本页
    发布时间:10:36:09
    点击:222
    录入:齐天大圣
    相关文章
    Baidu

    YiJiaCMS V5.9 Build 21.7.20(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021