主頁(yè) > 知識(shí)庫(kù) > 如何在ASP頁(yè)面動(dòng)態(tài)Inclue文件？

如何在ASP頁(yè)面動(dòng)態(tài)Inclue文件？
熱門標(biāo)簽：鄭州智能外呼電銷機(jī)器人廠家 廣東語(yǔ)音外呼系統(tǒng)公司 虛擬電話外呼系統(tǒng) 長(zhǎng)春公司外呼系統(tǒng)中心 云南便宜外呼系統(tǒng)平臺(tái) 沈陽(yáng)電話機(jī)器人公司 鄢陵學(xué)校如何做地圖標(biāo)注 成都ai外呼系統(tǒng)線路 沈陽(yáng)三五防封電銷卡
受! #include file="filename.asp" --> 宏限制 
必須存在該文件并且會(huì)預(yù)先編譯（不管前面是否加以條件） 

經(jīng)常有這樣的要求，根據(jù)不同的需求要求include不同的文件 
如各個(gè)人的不同設(shè)置，所以要求能動(dòng)態(tài)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") 

標(biāo)簽：遼陽(yáng) 孝感 湖北 四平 平頂山 防城港 馬鞍山 朝陽(yáng)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《如何在ASP頁(yè)面動(dòng)態(tài)Inclue文件？》，本文關(guān)鍵詞  如,何在,ASP,頁(yè)面,動(dòng)態(tài),Inclue,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《如何在ASP頁(yè)面動(dòng)態(tài)Inclue文件？》相關(guān)的同類信息！
  • 本頁(yè)收集關(guān)于如何在ASP頁(yè)面動(dòng)態(tài)Inclue文件？的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章