資源描述：
《使用模板實(shí)現(xiàn)asp代碼與頁面分離--》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。
1、使用模板實(shí)現(xiàn)ASP代碼與頁面分離>>每個(gè)進(jìn)行過較大型的ASP-L混淆難分，業(yè)務(wù)邏輯與顯示方式絞合，使得代碼難以理解、難以修改；程序編寫必須在美工之后，成為項(xiàng)目瓶頸；整合的程序代碼和HTML靜態(tài)頁面時(shí)，花費(fèi)大量的時(shí)間才能得到理想的效果，兼作了美工。的確，用腳本語言開發(fā)L代碼，將這些顯示代碼中需要?jiǎng)討B(tài)數(shù)據(jù)的地方替換為ASP程序運(yùn)算所得出的數(shù)據(jù)，然后按照一定的順序輸出。其中，替換的部分可以自由的設(shè)定。因此它必須完成如下任務(wù)：·從模板文件中讀取顯示用的HTML代碼。·將模板文件和實(shí)際生成的數(shù)據(jù)結(jié)合，生成輸出的結(jié)果?！ぴ试S同時(shí)處理多個(gè)模板。·
2、允許模板的嵌套?！ぴ试S對(duì)模板中的某個(gè)單獨(dú)的部分進(jìn)行處理。實(shí)現(xiàn)方法：采用FSO讀取模板文件采用正則替換實(shí)現(xiàn)模板文件和數(shù)據(jù)的結(jié)合處理多個(gè)模板用數(shù)組存儲(chǔ)來實(shí)現(xiàn)。模板的嵌套的實(shí)現(xiàn)主要的想法是：將模板和輸出（任何中間的分析結(jié)果）一視同仁，都可拿來做替換，即可實(shí)現(xiàn)。單獨(dú)部分的處理的通過在模板文件中設(shè)定標(biāo)注，然后在正則替換中結(jié)合標(biāo)注來控制，實(shí)現(xiàn)部分替換。2、模板類的實(shí)現(xiàn) 給出具體代碼之前，先把主要函數(shù)列出，用過PHPLIB的朋友應(yīng)該對(duì)此很熟悉了： 1）PublicSubset_root(ByValValue) 設(shè)定模板默認(rèn)目錄 2）Publ
3、icSubset_file(ByValhandle,ByValfilename) 讀取文件 3）PublicSubset_var(ByValName,ByValValue,ByValAppend) 設(shè)置映射數(shù)據(jù)-替換變量 4）PublicSubunset_var(ByValName) 取消數(shù)據(jù)映射 5）PublicSubset_block(ByValParent,ByValBlockTag,ByValName) 設(shè)置數(shù)據(jù)塊 6）PublicSubset_unknoe,ByValBlockTag,ByValAppend) 執(zhí)行
4、模板文件與數(shù)據(jù)的結(jié)合 8）PublicSubp(ByValName) 輸出處理結(jié)果實(shí)現(xiàn)代碼：<%’=======================================================================’CLASSNAME:kktTemplateASP頁面模板對(duì)象’DESIGNBY:彭國輝’DATE:2004-07-05’AIL:kacartonsohu.’’本對(duì)象中使用了set_var、set_block等命名方法是為了兼容phplib’========================
5、===============================================ClasskktTemplatePrivatem_FileName,m_Root,m_Unkno_LastError,m_HaltOnErrPrivatem_ValueList,m_BlockListPrivatem_RegExp’構(gòu)造函數(shù)PrivateSubClass_InitializeSetm_ValueList=CreateObject("Scripting.Dict123456下一頁>>>>這篇文章來自..，。ionary")Se
6、tm_BlockList=CreateObject("Scripting.Dictionary")setm_RegExp=Ne_RegExp.IgnoreCase=Truem_RegExp.Global=Truem_FileName=""m_Root=""m_Unknoove"m_LastError=""m_HaltOnErr=trueEndSub’析構(gòu)函數(shù)PrivateSubClass_TerminateSetm_RegExp=NothingSetm_BlockMatches=NothingSetm_ValueMatches=no
7、thingEndSubPublicPropertyGetClassName()ClassName="kktTemplate"EndPropertyPublicPropertyGetVersion()Version="1.0"EndPropertyPublicSubAbout()Response.apPath(path))Setfso=NothingEndFunction’讀取文件內(nèi)容PrivateFunctionLoadFile()DimFilename,fso,hndFileFilename=m_RootIfRight(Filen
8、ame,1)<>"/"AndRight(Filename,1)<>""ThenFilename=Filename"/"Filename=Server.MapPath(Filenamem_FileName)Se
