前幾天 寫的博客 多項(xiàng)目 函數(shù)庫、類庫 統(tǒng)一為一個(gè)版本的方法中提到 使用 one.php 將整個(gè)項(xiàng)目打包成 一個(gè) php 文件,有網(wǎng)友 讓我 整個(gè)asp版本的,今天下午抽空寫了個(gè) one.asp,使用方式基本一致,這次 增加了路徑計(jì)算的功能,可以引用不同路徑。
舉個(gè)簡單的應(yīng)用場景,開發(fā)一個(gè)小的API系統(tǒng),支持 XML、JSON輸出。區(qū)別是 基礎(chǔ)版(dev/dev.asp)只支持 Access,VIP版本(dev/vip.asp)支持 Access + SQL Server。這樣VIP版本就需要在現(xiàn)在的基礎(chǔ)上 增加 sqlserver的支持,增加額外的 配置項(xiàng)。開發(fā)過程只需要 按正常開發(fā)即可。
開發(fā)完畢后,通過 one.asp 打包成 index.asp 和 vip.asp 兩個(gè)版本,整套程序都是一個(gè)獨(dú)立的文件。
下圖演示了 解析過程:
完整的測試代碼 可以 訪問:oneasp.rar 下載
核心代碼 如下:
' ==================================================== ' 類名:One ' 作者:mqycn ' 博客:http://www.miaoqiyuan.cn ' 源碼:http://www.miaoqiyuan.cn/p/one-php ' 說明:多項(xiàng)目 函數(shù)庫、類庫 統(tǒng)一為一個(gè)版本的方法 ' ==================================================== Class OneAsp Private FSO Private Root Private Sub Class_Initialize() Set FSO = Server.CreateObject("Scripting.FileSystemObject") End Sub Private Sub Class_Terminate() Set FSO = Nothing End Sub Public Function Run(ByVal sourceFile, ByVal saveFile) Run = "hr>b>Input:/b>" sourceFile "br>b>Result:/b>" Save(saveFile, Include(sourceFile)) End Function Public Function Include(ByVal path) Dim tmpPath, tmpItem, arrPath, index tmpPath = "" arrPath = Split(path, "/") For index = 0 To UBound(arrPath) - 1 tmpItem = arrPath(index) tmpPath = tmpPath tmpItem "/" Next Include = Parse(tmpPath, arrPath(UBound(arrPath))) End Function Private Function Parse(ByVal root, ByVal fileName) Call SetRoot(root) Dim html html = OpenRead(fileName) Dim preg, pregResult Set preg = New Regexp preg.pattern = "!--#include file=""([^""]*)""-->" preg.global = True preg.ignorecase = True Dim htmlInclude Set pregResult = preg.execute(html) For Each htmlInclude In pregResult html = Replace(html, htmlInclude, Include(root htmlInclude.submatches(0))) Next Parse = "% '" root fileName " Start %" ">" vbCrLf html vbCrLf "% '" root fileName " End %" ">" vbCrLf End Function Private Function SetRoot(ByVal rootPath) If Right(rootPath, 1) > "/" Then rootPath = rootPath "/" Root = rootPath End Function Private Function RealPath(ByVal path) RealPath = Server.Mappath(Root path) End Function Private Function OpenRead(ByVal path) Dim txtFile Set txtFile = FSO.OpenTextFile(RealPath(path)) OpenRead = txtFile.ReadAll() txtFile.close On Error GoTo 0 End Function Public Function Save(ByVal path, ByVal body) Dim txtFile Set txtFile = FSO.CreateTextFile(Server.Mappath(path)) txtFile.write body txtFile.close Set txtFile = Nothing Save = path End Function End Class
使用也非常簡單,使用 Call new OneAsp.run(開發(fā)版, 打包版),可以 dev.asp 中的所有包含的代碼 打包到 index.asp,如果只想獲取解析的內(nèi)容,可以使用 Response.Write Server.Htmlencode(Call new OneAsp.include(開發(fā)版))
標(biāo)簽:銅川 深圳 威海 伊春 崇左 晉城 西藏 撫州
巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《one.asp多項(xiàng)目、函數(shù)庫、類庫 統(tǒng)一為一個(gè)版本的方法》,本文關(guān)鍵詞 one.asp,多,項(xiàng)目,函數(shù),庫,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。