黄色电影一区二区,韩国少妇自慰A片免费看,精品人妻少妇一级毛片免费蜜桃AV按摩师 ,超碰 香蕉

ASP中利用execute實現(xiàn)動態(tài)包含文件的方法

在asp中include文件形如 #include file=function.asp，這是最簡單也是最常用的包含文件方法，青島星網(wǎng)下面跟大家分享：根據(jù)不同的需求，包含不同的文件的函數(shù)。

asp動態(tài)包含文件的實現(xiàn)函數(shù)

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

其實是寫一個動態(tài)包含的函數(shù)，這樣每次調(diào)用時候代碼簡潔，也方便，使用方法：

include("***.asp")'注意，這里的include是函數(shù)名哦，不要搞混哦。

下面是其他網(wǎng)友的補充大家參考一下

asp中，include file/virtual 是優(yōu)先腳本代碼處理的，所以無法使用include動態(tài)包含asp文件。我們可以使用execute函數(shù)動態(tài)執(zhí)行所需代碼。

方法：

execute(asp代碼)

例子：（vbcrlf為換行符）

execute("class clsabc"&vbcrlf&"public function output"&vbcrlf&"response.write 123"&vbcrlf&"end function"&vbcrlf&"end class") 

dim objabc 
set objabc = new clsabc 
objabc.output 
set objabc = nothing

使用時可以用從文件或數(shù)據(jù)庫讀取出asp代碼再執(zhí)行，注意，所執(zhí)行的代碼中不應(yīng)包含<%和%>
注意不要與server.execute混淆，server.execute參數(shù)為asp虛擬路徑，并且使用該函數(shù)不但不能動態(tài)聲明class類，甚至不可以給主程序段的變量賦值。

例子：

main.asp

dim strabc,objabc 
strabc = "test" 
server.execute("sub.asp") 
response.write strabc 
set objabc = new clsabc 
objabc.output 
set objabc = nothing

sub.asp

strabc = "execute" 
class clsabc 
 public function output 
 response.write "class" 
 end function 
end class

執(zhí)行main.asp后，將僅輸出test，而objabc則不能實例化。

相關(guān)文章