前幾天 寫的部落格 多專案 函式庫、類庫 統一為一個版本的方法中提到 使用 one.php 將整個專案打包成 一個 php 檔案，有網友 讓我 整個asp版本的，今天下午抽空寫了個 one.asp，使用方式基本一致，這次 增加了路徑計算的功能，可以引用不同路徑。

舉個簡單的應用場景，開發一個小的API系統，支援 XML、JSON輸出。區別是 基礎版（dev/dev.asp）只支援 Access，VIP版本（dev/vip.asp）支援 Access + SQL Server。這樣VIP版本就需要在現在的基礎上 增加 sqlserver的支援，增加額外的 配置項。開發過程只需要 按正常開發即可。

開發完畢後，通過 one.asp 打包成 index.asp 和 vip.asp 兩個版本，整套程式都是一個獨立的檔案。

下圖演示了 解析過程：

完整的測試程式碼 可以 訪問：oneasp.rar 下載

核心程式碼 如下：

' ====================================================
' 類名：One
' 作者：mqycn
' 部落格：http://www.miaoqiyuan.cn
' 原始碼：http://www.miaoqiyuan.cn/p/one-php
' 說明：多專案 函式庫、類庫 統一為一個版本的方法
' ====================================================
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>Input:" & sourceFile & "<br>Result:" & 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(開發版,打包版)，可以 dev.asp 中的所有包含的程式碼 打包到 index.asp，如果只想獲取解析的內容，可以使用 Response.Write Server.Htmlencode(Call new OneAsp.include(開發版))