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

ASPはXMLベースのメッセージボードを開発します

著者：Eve Cole 更新時間：2025-03-02 20:16:01

XML（拡張可能なマークアップ言語）は、テキスト形式に基づいたマークアップ言語です。データ構造とデータの意味に焦点を当て、データコンテンツと表示スタイルの分離を実現し、プラットフォームから独立しています。以下は、XMLをデータのキャリアとして使用して、XMLベースのメッセージボードを開発します。

XML（拡張可能なマークアップ言語）は、テキスト形式に基づいたマークアップ言語です。データ構造とデータの意味に焦点を当て、データコンテンツと表示スタイルの分離を実現し、プラットフォームから独立しています。 XMLはデータコンテンツの説明に焦点を当てているため、HTMLのような要件に関連しない情報を取得しなくなります。一方、XMLファイルは、データベースとしてXMLを使用することで、HTML、Flash 5などのデータを表示することはできません。世界中の大手コンピューター企業の積極的な参加のおかげで、XMLはますますインターネットベースの次世代データ形式の標準になりつつあります。以下は、XMLをデータのキャリアとして使用して、XMLベースのメッセージボードを開発します。

まず、コメンテーターの名前、電子メール、URL、およびメッセージコンテンツを記録するXMLファイルguestbook.xmlを作成します。もちろん、必要な数の情報を追加することもできます。

ファイルの内容は次のとおりです。

  1. <？xmlversion = 1.0encoding = gb2312？>
  2. <メッセージブック>
  3. <メッセージレコード>
  4. <コメンテーターの名前> meng xianhui </name of the Commentator>
  5. <メール> [email protected] </email>
  6. <ウェブサイト> http://go.163.com/~colorweb </website>
  7. <メッセージコンテンツ>正常にテストされました！ ！ </メッセージコンテンツ>
  8. </メッセージレコード>
  9. </メッセージブック>

多くのサーバーは現在ASPをサポートしているため、guestbook.aspファイルは次のとおりです。

  1. <％@言語= vbscript％>
  2. <％
  3. 'Webページの情報を設定します
  4. Response.buffer = true
  5. Response.Expires = -1
  6. 'メッセージ関数を表示init（）
  7. functionit（）
  8. entryform（）
  9. 'ローカル変数を定義します
  10. dimobjxml
  11. dimarrnames
  12. DimarreMails
  13. Dimarrurs
  14. DimarrMessages
  15. 'メッセージを保存するXMLDOMドキュメントオブジェクトを作成します
  16. setobjxml = server.createObject（msxml2.domdocument）
  17. objxml.async = false
  18. objxml.load（server.mappath（guestbook.xml））
  19. 「メッセージブックの要素のコレクションを入手してください
  20. setarrnames = objxml.getelementsbytagname（コメンテーターの名前）
  21. setArremails = objxml.getElementsByTagname（email）
  22. SetArrurs = objxml.getElementsByTagname（Webサイト）
  23. setArrmessages = objxml.getElementsByTagname（メッセージコンテンツ）
  24. Response.Write <Tableborder = '0'Width =' 100％ '>
  25. Response.Write <TR> <TDBGCOLOR = '＃00cff'Align =' center'height = '26 '>
  26. Response.Write <b>医師のコメントは次のとおりです。</b>
  27. Response.Write </td> </tr>
  28. 「メッセージブックの各要素の出力コンテンツ、最新のメッセージが最初に表示されます
  29. forx = arrnames.length-1to0step-1
  30. Response.Write <TR> <TD> <AHREF = MailTo：＆Arremails.Item（x）.text＆>＆arrnames.item（x）.text＆</a> </td> </tr>
  31. Response.Write <TR> <TD> Webサイト：<AHREF =＆ARRURLS.ITEM（x）.TEXT＆TARGET = '_ BLANK'>＆ARRURLS.ITEM（X）.TEXT＆</a> <TD> </TR>
  32. Response.Write <TR> <TD>メッセージコンテンツ：</td> </tr>
  33. respons.write <tr> <tdbgcolor = '＃0099ff'>＆arrmessages.item（x）.text＆</td> </tr>
  34. Response.Write <TR> <TD> </TD> </TR>
  35. 次
  36. Response.Write </table>
  37. setobjxml =何もありません
  38. エンド機能
  39. 'メッセージレコードをXMLファイルに追加する関数addentry（）
  40. functionadentry（）
  41. 'ローカル変数を定義します
  42. dimstrname
  43. 薄暗い
  44. dimstrurl
  45. 薄暗いストーメッジ
  46. 'メッセージフォームの入力コンテンツを取得します
  47. strname = request.form（name）
  48. stremail = request.form（email）
  49. strurl = request.form（website）
  50. strmessage = request.form（メッセージを残す）
  51. dimobjxml
  52. dimobjentry
  53. dimobjname
  54. dimobjemail
  55. dimobjurl
  56. dimobjmessage
  57. 'メッセージコンテンツをXMLファイルに追加します
  58. setobjxml = server.createObject（msxml2.domdocument）
  59. objxml.async = false
  60. objxml.load（server.mappath（guestbook.xml））
  61. setobjentry = objxml.createNode（要素、メッセージレコード、）
  62. objxml.documentelement.appendchild（objentry）
  63. setobjname = objxml.createNode（要素、コメンテーターの名前、）
  64. objentry.appendchild（objname）
  65. objname.text = strname
  66. setobjemail = objxml.createNode（要素、電子メール、）
  67. objentry.appendchild（objemail）
  68. objemail.text = stremail
  69. setobjurl = objxml.createNode（element、url、）
  70. objentry.appendchild（objurl）
  71. objurl.text = strurl
  72. setobjmessage = objxml.createNode（要素、メッセージコンテンツ、）
  73. objentry.appendchild（objmessage）
  74. objmessage.text = strmessage
  75. objxml.save（server.mappath（guestbook.xml））
  76. Response.redirect（guestbook.asp）
  77. エンド機能
  78. '記入してメッセージフォーム関数entryform（）を送信します
  79. functionEntryform（）
  80. Response.write <palign = 'center'> <b> xmlメッセージブックの例</b> </p>
  81. Response.Write <hrcolor = '＃000099'width =' 100％ 'noshade>
  82. Response.write <formaction = guestbook.asp？action = addentrymethod = post>
  83. Response.Write <Tableborder = 1>
  84. Response.Write <Tr> <TD>あなたの名前：</td> <td> <inputType = textName = name/> </td> </tr>
  85. Response.Write <Tr> <TD>メール：</td> <td> <inputtype = textName = email/> </td> </tr>
  86. Response.Write <TR> <TD>あなたのurl：</td> <td> <inputtype = textname = website/> </td> </tr>
  87. Response.Write <TR> <TD>あなたのメッセージ：</td> <td> <textarename = message cols = 5rows = 5> </textare> </td> </tr>
  88. Response.Write <TR> <TD> </TD> <TD> <inputType = submitValue = post message/</td> </tr>
  89. Response.Write </table>
  90. Response.Write </form>
  91. エンド機能
  92. ％>
  93. <html>
  94. <head>
  95. <title> xmlメッセージ例</title>
  96. <metahttp-equiv = content-typecontent = text/html; charset = gb2312>
  97. </head>
  98. <body>
  99. <％
  100. 「メッセージが送信されたかどうかを判断し、メッセージ情報を更新します
  101. ディマ
  102. a = request.querystring（action）
  103. ifa <> then
  104. addentry
  105. それ以外
  106. init
  107. endif
  108. ％>
  109. </body>
  110. </html>

上記は、XMLを使用してメッセージボードを開発する簡単な例であり、必要に応じてより多くの機能を追加できます。

関連記事