Beranda>Tutorial Pemrograman Jaringan>tutorial ASP

ASP mengembangkan papan pesan berbasis XML

Penulis：Eve Cole Waktu Pembaruan：2025-03-02 20:16:01

XML (Extensible Markup Language) adalah bahasa markup berdasarkan format teks. Berikut ini menggunakan XML sebagai pembawa data untuk mengembangkan papan pesan berbasis XML.

XML (Extensible Markup Language) adalah bahasa markup berdasarkan format teks. Karena XML berfokus pada deskripsi konten data, sangat berarti untuk pengambilan data. Di sisi lain, file XML adalah pembawa data. Berkat partisipasi aktif perusahaan komputer besar di seluruh dunia, XML semakin menjadi standar untuk generasi berikutnya dari format data berbasis internet. Berikut ini menggunakan XML sebagai pembawa data untuk mengembangkan papan pesan berbasis XML.

Pertama, kami membuat file XML Guestbook.xml, yang mencatat nama, email, URL, dan konten pesan dari komentator. Tentu saja, kami juga dapat menambahkan informasi sebanyak yang kami butuhkan.

Isi file adalah sebagai berikut:

  1. <? xmlversion = 1.0Encoding = GB2312?>
  2. <Buku pesan>
  3. <Pesan pesan>
  4. <Nama Komentator> Meng xianhui </nama komentator>
  5. <mail> [email protected] </email>
  6. <sebitel> http://go.163.com/~colorweb </situs web>
  7. <Konten pesan> diuji dengan sukses! Lai </Konten Pesan>
  8. </Pesan rekaman>
  9. </Pesan buku>

Karena banyak server saat ini mendukung ASP, kami menggunakan ASP umum sebagai alat implementasi.

  1. <%@Bahasa = VBScript%>
  2. <%
  3. 'Tetapkan informasi halaman web
  4. Response.buffer = true
  5. Response.expires = -1
  6. 'Tampilkan fungsi pesan init ()
  7. FunctionInit ()
  8. entryform ()
  9. 'Tentukan variabel lokal
  10. Dimobjxml
  11. Dimarrnames
  12. Dimarremails
  13. Dimarrurls
  14. Dimarrmessages
  15. 'Buat objek dokumen xmldom untuk menyimpan pesan
  16. Setobjxml = server.createObject (msxml2.domdocument)
  17. objxml.async = false
  18. objxml.load (server.mappath (Guestbook.xml))
  19. 'Dapatkan kumpulan elemen buku pesan
  20. SetArrnames = objxml.getElementsbyTagname (nama komentator)
  21. Setarremails = objxml.geteLementsbyTagname (email)
  22. Setarrurls = objxml.geteLementsbyTagname (situs web)
  23. SetArrmessages = objxml.geteLementsByTagname (konten pesan)
  24. Response.write <TABLEBORDER = '0'WIDTH =' 100%'>
  25. Response.write <tr> <tdbgcolor = '#00ccff'align =' center'Height = '26 '>
  26. Response.write <b> Komentar dokter adalah sebagai berikut: </b>
  27. Response.write </td> </tr>
  28. 'Konten keluaran dari setiap elemen buku pesan, pesan terbaru akan ditampilkan terlebih dahulu
  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> Situs web: <ahref = & arrurls.item (x) .text & target = '_ blank'> & arrurls.item (x) .text & </a> <td> </tr>
  32. Response.write <tr> <td> Konten pesan: </td> </tr>
  33. Response.write <tr> <tdbgcolor = '#0099ff'> & arrmessages.item (x) .text & </td> </tr>
  34. Response.write <tr> <td> </td> </tr>
  35. Berikutnya
  36. Response.write </boable>
  37. Setobjxml = tidak ada
  38. Fungsi endfungsi
  39. 'Fungsi untuk Menambahkan Catatan Pesan ke AddEntry File XML ()
  40. FunctionAddentry ()
  41. 'Tentukan variabel lokal
  42. Dimstrname
  43. Dimstremail
  44. Dimstrurl
  45. Dimstrmessage
  46. 'Dapatkan konten masukan dari formulir pesan
  47. strname = request.form (name)
  48. stremail = request.form (email)
  49. strurl = request.form (situs web)
  50. strmessage = request.form (tinggalkan pesan)
  51. Dimobjxml
  52. Dimobjentry
  53. DimoBjname
  54. Dimobjemail
  55. Dimobjurl
  56. DimobjMessage
  57. 'Tambahkan konten pesan ke file xml
  58. Setobjxml = server.createObject (msxml2.domdocument)
  59. objxml.async = false
  60. objxml.load (server.mappath (Guestbook.xml))
  61. SetoBjENTRY = objxml.createNode (elemen, catatan pesan,)
  62. Objxml.DocumentElement.AppendChild (OBJENTRY)
  63. Setobjname = objxml.createNode (elemen, nama komentator,)
  64. Objentry.AppendChild (objname)
  65. objname.text = strname
  66. SetObjemail = objxml.createNode (elemen, email,)
  67. Objentry.AppendChild (objemail)
  68. objemail.text = stremail
  69. Setobjurl = objxml.createNode (elemen, url,)
  70. Objentry.AppendChild (Objurl)
  71. Objurl.Text = Strurl
  72. Setobjmessage = objxml.createNode (elemen, konten pesan,)
  73. Objentry.AppendChild (ObjMessage)
  74. objMessage.text = strmessage
  75. objxml.save (server.mappath (guestbook.xml))
  76. Response.Redirect (Guestbook.asp)
  77. Fungsi endfungsi
  78. 'Isi dan kirim pesan fungsi formulir Formulir ()
  79. FunctionEntryform ()
  80. Response.write <palign = 'center'> <b> contoh buku pesan 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> Nama Anda: </td> <td> <inputType = textName = name/> </td> </tr>
  85. Response.write <tr> <td> Email: </td> <td> <inputType = textName = email/> </td> </tr>
  86. Response.write <tr> <td> url Anda: </td> <td> <inputType = textName = situs web/> </td> </tr>
  87. Response.write <tr> <td> Pesan Anda: </td> <td> <textareName = pesan cols = 40rows = 5> </textare> </td> </tr>
  88. Response.write <tr> <td> </td> <td> <inputType = submitValue = Posting pesan/</td> </tr>
  89. Response.write </boable>
  90. Response.write </form>
  91. Fungsi endfungsi
  92. %>
  93. <Html>
  94. <head>
  95. <Title> Contoh Pesan XML </iteme>
  96. <metahttp-equiv = content-typeContent = text/html; charset = gb2312>
  97. </head>
  98. <body>
  99. <%
  100. 'Menilai apakah pesan telah dikirim dan memperbarui informasi pesan
  101. Dima
  102. a = request.querystring (tindakan)
  103. Ifa <> lalu
  104. addentry
  105. kalau tidak
  106. init
  107. Endif
  108. %>
  109. </body>
  110. </html>

Di atas adalah contoh sederhana menggunakan XML untuk mengembangkan papan pesan, dan lebih banyak fungsi dapat ditambahkan sesuai kebutuhan.

Artikel Terkait