ホーム>ネットワークプログラミングチュートリアル>ASP チュートリアル

ASPはXMLを使用して指定されたフォルダーをパッケージ化し、それをWebディレクトリにアップロードし、単独で開梱します

著者：Eve Cole 更新時間：2025-05-26 20:32:01

推奨：ASPエラーオブジェクトのヒント
vbscriptには、スクリプトインタープリターがランタイムエラーを無視し、スクリプトコードの実行を継続するために、on error resumeの次のステートメントがあります。次に、スクリプトはERR.Numberプロパティの値を確認して、エラーが発生したかどうかを判断できます。エラーが発生した場合、ゼロ以外の値が返されます。 ASP 3.0では、エラーGOTO 0で使用してデフォルトを「ターンバック」することもできます

  1. '==============================
  2.  'ファイル1
  3.  'pack.asp
  4.  'この変数を変更します
  5. 'data.xmlファイルは現在のディレクトリで生成されます
  6. 'data.xmlとfile 2（install.asp）をWebルートディレクトリにアップロードします
  7. 'install.aspの解放を実行します
  8. '上記の2つのファイルを手動で削除します
  9. '==============================
  10.  <％optionexplicit％>
  11.  <％onerrorresumenext％>
  12.  <％
  13.  server.scripttimeout = 99999999
  14.  dimcpathname
  15. 薄暗い、終わりの時間
  17. 'ここにパッケージ化するフォルダーへのパスを変更します
  18. cpathname = f：websymr
  20.  starttime = timer（）
  21.  functionbianli（パス）
  22.  dimdoc
  23.  dimfso'fsoオブジェクト
  24. dimobjfolder 'フォルダーオブジェクト
  25. dimobjsubfoldersのサブフォルダーコレクション
  26. dimobjsubfolderのサブフォルダーオブジェクト
  27. dimobjfilesのファイルコレクション
  28. dimobjfile 'ファイルオブジェクト
  29. DimobjStream
  30.  dimpathname、textStream、pp、xfolder、xfpath、xfile、xpath、xstream
  32.  setFSO = server.createObject（scripting.filesystemObject）
  33.  setobjfolder = fso.getFolder（path） 'フォルダーオブジェクトを作成します
  35. Response.WritePath
  36.  Response.Flush
  38.  setdoc = server.createobject（msxml2.domdocument）
  39.  doc.loadserver.mappath（data.xml）
  40.  doc.async = false
  42.  '各フォルダーパスに書き込みます
  43. setXfolder = doc.selectsinglenode（// z-blog）.appendchild（doc.createelement（folder）））
  44.  setxfpath = xfolder.appendchild（doc.createelement（path）））
  45.  xfpath.text =置換（path、cpathname、）
  47.  setobjfiles = objfolder.files
  48.  foreachobjfileinobjfiles
  49.  Response.Write
  50.  ---
  51.  pp = path && objfile.name
  53.  respons.writep＆
  55.  Response.Flush
  57.  '==========================================================================
  58.  'ファイルへのパスとファイルコンテンツ
  59. setXfile = doc.selectsinglenode（// z-blog）.appendchild（doc.createelement（file）））
  61.  setXPath = Xfile.AppendChild（doc.CreateElement（PATH）））
  62.  xpath.text =置換（pp、cpathname、）
  64.  'ファイルストリームを作成してファイルコンテンツを読み取り、XMLファイルに書き込みます
  65. setobjstream = server.createobject（adodb.stream）
  66.  objstream.type = 1
  67.  objstream.open（）
  68.  objstream.loadfromfile（pp）
  69.  objstream.position = 0
  71.  setXStream = Xfile.AppendChild（doc.createelement（stream）））
  72.  XStream.SetAttributExmlns：DT、urn：Schemas-Microsoft-Com：DataTypes
  73.  'ファイルコンテンツは2つのシステムに保存されます
  74. xstream.datatype = bin.base64
  75.  xstream.nodetypedvalue = objstream.read（）
  77.  setobjstream =何もない
  78. setXPath =何もない
  79. SetXStream =何もない
  80. setXfile = Nothing
  82.  '==========================================================================
  83. 次
  84. Response.Write <P>
  86.  doc.saveserver.mappath（data.xml）
  87.  setXfpath =何もない
  88. setXFolder = Nothing
  89.  setdoc =何もない
  91. 'サブフォルダーオブジェクトを作成しました
  92. setobjsubfolders = objfolder.subfolders
  93.  'サブフォルダーを再帰的に通話します
  94. foreachobjsubfolderinobjsubfolders
  95.  pathpathname = path ++ objsubfolder.name
  96.  Bianli（PathName）
  97. 次
  99. setobjfolder =何もない
  100. setobjsubfolders =何もない
  101. setfso =何もない
  102. エンド機能
  104. Dimdoc、objpi
  105.  'ファイルへの書き込みの準備をする空のXMLファイルを作成します
  106. setdoc = server.createobject（msxml2.domdocument）
  107.  doc.async = false
  108.  setobjpi = doc.createprocessinginstruction（xml、version = '1.0'encoding =' utf-8 '）
  109.  doc.insertbeforeobjpi、doc.childnodes（0）
  110.  doc.AppendChild（doc.createelement（z-blog））
  111.  doc.saveserver.mappath（data.xml）
  112.  setobjpi =何もない
  113. setdoc =何もない
  114. ビアンリ（cpathname）
  115.  EndTime = Timer（）
  116.  ％>
  117. ページの実行時間：<％= formatnumber（（（終了時間）、3）％>秒
  119. '==================================================
  120.  'ファイル2
  121.  'install.asp
  122.  'このファイルは、Z-Blogインストールファイルから変更されます
  123. '==================================================
  124.  <％@codepage = 65001％>
  125.  <％optionexplicit％>
  126.  <％onerrorresumenext％>
  127.  <％response.charset = utf-8％>
  128.  <html>
  129.  <head>
  130.  <Title>ファイル開梱プログラム</title>
  131.  </head>
  132.  <body>
  133.  <textarename = contentCols = 90rows = 20style = border：0px; overflow：auto; border-width：0px; width：100％; background-color：＃e8f3ff; scrolling = auto>
  134.  <％
  135.  dimstrlocalpath
  136.  '現在のフォルダーへの物理的なパスを取得します
  137. strlocalpath = left（request.servervariables（path_translated）、instrrev（request.servervariables（path_translated）、））））
  139.  dimstrdbpath
  140.  dimobjxmlfile
  141.  dimobjnodelist
  142.  dimobjfso
  143.  DimobjStream
  144. ディミ、j
  146.  setobjxmlfile = server.createobject（microsoft.xmldom）
  147.  objxmlfile.load（server.mappath（data.xml））
  149.  ifobjxmlfile.readystate = 4then
  150.  ifobjxmlfile.parseerror.errorcode = 0then
  152.  setobjnodelist = objxmlfile.documentlement.selectnodes（// folder/path）
  153.  setobjfso = createObject（scripting.filesystemObject）
  155.  j = objnodelist.length-1
  156.  fori = 0toj
  157.  ifobjfso.folderexists（strlocalpath＆objnodelist（i）.text）= falsethen
  158.  objfso.createfolder（strlocalpath＆objnodelist（i）.text）
  159.  endif
  160.  respons.writecreateディレクトリ＆objnodelist（i）.text＆vbcrlf
  161.  Response.Flush
  162. 次
  164. setobjnodelist = objxmlfile.documentlement.selectnodes（// file/path）
  166.  j = objnodelist.length-1
  167.  fori = 0toj
  168.  setobjstream = createObject（adodb.stream）
  169.  withoutbjstream
  170.  .type = 1
  171.  。開ける
  172. .writeobjnodelist（i）.nextsibling.nodetypedValue
  173.  .savetofilestrollocalpath＆objnodelist（i）.text、2
  174.  Response.writeリリースファイル＆objnodelist（i）.text＆vbcrlf
  175.  Response.Flush
  176.  。近い
  177. 終わりに
  178. setobjstream =何もない
  179. 次
  180. endif
  181.  endif
  182.  ％>
  183.  </textarea>
  184.  <％response.write <script> alert（ 'ファイルは完成しました！'）; </script>％>

共有：ASP開発における機能の有用なコレクション（1）
ASP開発における有用な機能のコレクションは非常に便利です！みんながそれを維持してくれることを願っています！ ％ '************************************************************************************************************************************************************************************************

関連記事