国产成人精品久久免费动漫-国产成人精品天堂-国产成人精品区在线观看-国产成人精品日本-a级毛片无码免费真人-a级毛片毛片免费观看久潮喷

您的位置:首頁技術文章
文章詳情頁

one.asp多項目、函數庫、類庫 統一為一個版本的方法

瀏覽:122日期:2022-06-04 17:56:51

前幾天 寫的博客 多項目 函數庫、類庫 統一為一個版本的方法中提到 使用 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(開發版))

標簽: ASP
相關文章:
主站蜘蛛池模板: 亚洲高清在线观看看片 | 欧美最爽乱淫视频播放黑人 | 欧美另类videosgrstv变态 欧美另类高清xxxxx | 成人欧美 | 日韩久久综合 | 大焦伊人 | 真人毛片视频 | 亚洲欧美日韩精品在线 | 91精品久久一区二区三区 | 久久精品国产亚洲 | 一级女性全黄生活片免费 | 亚洲乱码国产一区网址 | 成人精品视频在线观看 | 国产精品国内免费一区二区三区 | 久久久久久亚洲精品影院 | 久久精品国产第一区二区 | 99久久免费看国产精品 | 国产一级视频在线 | 杨幂丝袜国产福利视频 | 国内精品久久精品 | 中国做爰国产精品视频 | 日韩欧美在线观看视频一区二区 | 福利云 | 97在线视频免费观看 | 亚洲视频日韩 | 亚洲视频在线观看视频 | 欧美成人看片黄a免费 | 久久免费香蕉视频 | 国产亚洲欧美一区二区 | 成人国产精品免费视频不卡 | 国产精品一一在线观看 | 亚洲一级高清在线中文字幕 | 欧美xx69| 国产呦系列 | 在线免费观看日本视频 | 在线观看日本视频免费 | 韩国毛片免费播放 | 国产美女主播一级成人毛片 | 国产精品亚洲国产三区 | 日本a级特黄三级三级三级 日本a一级片 | 欧美一级特黄真人毛片 |