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 两个版本，整套程序都是一个独立的文件。

下图演示了 解析过程：

完整的测试代码 可以 访问：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>
    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(开发版))

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！