one.asp多项目、函数库、类库 统一为一个版本的方
编程学习 2021-07-05 10:58www.dzhlxh.cn编程入门
前几天 写的博客 多项目 函数库、类库 统一为一个版本的方法中提到 使用 one.php 将整个项目打包成 一个 php 文件，有网友 让我 整个asp版本的，今天下午抽空写了个 one.asp，使用方式基本一致，这次 增加了路径计算的功能，可以引用不同路径
前几天 写的博客 多项目 函数库、类库 统一为一个版本的方法中提到 使用 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 两个版本，整套程序都是一个独立的文件。
下图演示了 解析过程：
完整的测试代码 可以 访问： 下载
核心代码 如下：
' ====================================================
' 类名：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><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(开发版, 打包版)，可以 dev.asp 中的所有包含的代码 打包到 index.asp，如果只想获取解析的内容，可以使用 Response.Write Server.Htmlencode(Call new OneAsp.include(开发版))