您的位置：首页 → 网页设计 → ASP实例 → 根据需要动态include不同的文件

根据需要动态include不同的文件

时间：2004/11/7 3:02:00来源：本站整理作者：蓝点我要评论(0)

受 宏限制

必须存在该文件并且会预先编译（不管前面是否加以条件）



经常有这样的要求，根据不同的需求要求include不同的文件

如各个人的不同设置，所以要求能动态include文件。



代码如下：



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("youinc.asp")

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论