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

[公益] 节省一分零钱 献出一份爱心 温暖世间真情       【腾讯云】618云上GO!云服务器限时秒杀,1核2G首年95元!      
广告位招租中
2021年 建军节 3
2021年 七夕节 16
2022年 元 旦 156
2022年 春 节 187
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP >> 内容
    ASP动态包含文件的实现函数
    内容摘要: ASP动态包含文件的实现函数Function include(filename)Dim re,content,fso,f,aspStart,aspEndset fso=CreateObject('Scripting.FileSystemObject')set f=fso.OpenTextFile(server.mappath(filename))conten......
    ASP动态包含文件的实现函数

    Function include(filename)

    Dim re,content,fso,f,aspStart,aspEnd

    set fso=CreateObject("Scripting.FileSystemObject")

    set f=fso.OpenTextFile(server.mappath(filename))

    content=f.ReadAll

    f.close

    set f=nothing

    set fso=nothing

    set re=new RegExp

    re.pattern="^\s*="

    aspEnd=1

    aspStart=inStr(aspEnd,content,"<%")+2

    do while aspStart>aspEnd+1

    Response.write Mid(content,aspEnd,aspStart-aspEnd-2)

    aspEnd=inStr(aspStart,content,"%\>")+2

    Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write "))

    aspStart=inStr(aspEnd,content,"<%")+2

    loop

    Response.write Mid(content,aspEnd)

    set re=nothing

    End Function

    其实是写一个动态包含的函数,这样每次调用时候代码简洁,也方便,使用方法:

    include("***.asp")'注意,这里的include是函数名哦,不要搞混哦。

    版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:ASP去除img标签style属性只保留src 下一篇:ASP格式化时间为几天前,几小时前,几分钟前
    发布日期:2021/6/18
    手机扫二维码直达本页
    发布时间:14:27:45
    点击:535
    录入:齐天大圣
    相关文章
    Baidu

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