Asp中动态包含文件include的用法详解

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

< %
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
%>

< % 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 %>

1
2
3
4
5

< %if xxx = "yyy" then%>
<!--#include file="file1.asp"-->
< %else%>
<!--#include file="file2.asp"-->
< %end if%>

< %if xxx = "yyy" then%> <!--#include file="file1.asp"--> < %else%> <!--#include file="file2.asp"--> < %end if%>

1
2
3
4
5

If xxx = "yyy" Then
Server.Execute("file1.asp")
Else
Server.Execute("file2.asp")
End If

If xxx = "yyy" Then Server.Execute("file1.asp") Else Server.Execute("file2.asp") End If

1
2
3
4
5

If xxx = "yyy" Then
Server.transfer("file1.asp")
Else
Server.transfer("file2.asp")
End If

If xxx = "yyy" Then Server.transfer("file1.asp") Else Server.transfer("file2.asp") End If

1
2
3
4
5
6
7
8
9
10
11
12
13

if xxx = "yyy" then 
filespec = "file2.asp"
else 
filespec = "file2.asp"
end if 
filespec = server.mapPath(filespec) 
scr = "scripting.fileSystemObject"
set fs = server.createobject(scr) 
set f = fs.openTextFile(filespec) 
content = f.readall 
set f = nothing 
set fs = nothing 
response.write(content)

if xxx = "yyy" then filespec = "file2.asp" else filespec = "file2.asp" end if filespec = server.mapPath(filespec) scr = "scripting.fileSystemObject" set fs = server.createobject(scr) set f = fs.openTextFile(filespec) content = f.readall set f = nothing set fs = nothing response.write(content)