UC知道asp包含动态文件问题。。。。
来源：百度知道 编辑：UC知道 时间：2024/04/30 05:32:51
我想让一个asp文件(如1.asp)包含比本身文件大1的asp文件(如2.asp)。
比如让 id 获取了1.asp前面的文件名"1"之后，即id=1
<!--#include file="<%=id+1%>.asp">
可是，include无法识别asp语句，怎么办？？
上面写错了。。。
<!--#include file="<%=id+1%>.asp" -->
比如让 id 获取了1.asp前面的文件名"1"之后，即id=1
<!--#include file="<%=id+1%>.asp">
可是，include无法识别asp语句，怎么办？？
上面写错了。。。
<!--#include file="<%=id+1%>.asp" -->
你可以用
<%include((id+1)&".asp"%>
来动态包含
受<! #include file="filename.asp" --> 宏限制
必须存在该文件并且会预先编译（不管前面是否加以条件）
经常有这样的要求，根据不同的需求要求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,"<%")