Page d'accueil>Tutoriel de programmation réseau>Tutoriel ASP

ASP développe un babillard basé sur XML

Auteur：Eve Cole Date de mise à jour：2025-03-02 20:16:01

XML (langage de balisage extensible) est un langage de balisage basé sur le format de texte. Ce qui suit utilise XML comme opérateur de données pour développer un babillard basé sur XML.

XML (langage de balisage extensible) est un langage de balisage basé sur le format de texte. Étant donné que XML se concentre sur la description du contenu des données, il est très significatif pour la récupération des données. D'un autre côté, les fichiers XML sont le transporteur de données. Grâce à la participation active des grandes sociétés informatiques du monde entier, XML devient de plus en plus la norme pour la prochaine génération de formats de données basés sur Internet. Ce qui suit utilise XML comme opérateur de données pour développer un babillard basé sur XML.

Tout d'abord, nous créons le Fichier XML File Guestbook.xml, qui enregistre le nom, le courriel, l'URL et le contenu du message du commentateur. Bien sûr, nous pouvons également ajouter autant d'informations que nous en avons besoin.

Le contenu du fichier est le suivant:

  1. <? xmlversion = 1.0encoding = gb2312?>
  2. <Livre de messages>
  3. <Enregistrement des messages>
  4. <Nom du commentateur> Meng Xianhui </ Nom du commentateur>
  5. <e-mail> [email protected] </mail>
  6. <Siffède> http://go.163.com/~ColorWeb </ Site Web>
  7. <Contenu du message> testé avec succès! ! </ Message Content>
  8. </ Enregistrement des messages>
  9. </ Book de message>

Étant donné que de nombreux serveurs prennent actuellement en charge l'ASP, nous utilisons ASP commun comme outil d'implémentation.

  1. <% @ Language = vbscript%>
  2. <%
  3. «Définissez les informations de la page Web
  4. Réponse.buffer = true
  5. Response.expires = -1
  6. 'Afficher la fonction de message init ()
  7. FunctionInit ()
  8. entryForm ()
  9. 'Définir les variables locales
  10. Dimobjxml
  11. Nom de dimarrne
  12. Dimarremails
  13. Destiner
  14. Camion
  15. 'Créer un objet de document XMLDOM pour stocker les messages
  16. SetObjxml = server.createObject (msxml2.domDocument)
  17. objxml.async = false
  18. objxml.load (server.mappath (gardbook.xml))
  19. 'Obtenez une collection d'éléments du livre de messages
  20. SetArNames = objxml.getElementsByTagName (nom du commentateur)
  21. SetArremails = objxml.getElementsByTagName (e-mail)
  22. Setarrurls = objxml.getElementsByTagName (site Web)
  23. SetArRMessages = objxml.getElementsByTagName (contenu du message)
  24. Response.Write <Tableborder = '0'Width =' 100% '>
  25. Réponse.write <tr> <tdbgColor = '# 00ccff'align =' Center'height = '26 '>
  26. Response.Write <b> Les commentaires des médecins sont les suivants: </b>
  27. Réponse.write </td> </tr>
  28. 'Contenu de sortie de chaque élément du livre de messages, le dernier message sera affiché en premier
  29. Ford = arrNames.length-1to0Step-1
  30. Response.Write <Tr> <Td> <Ahref = Mailto: & Arremails.item (x) .Text &> & Arrnames.item (x) .Text & </a> </td> </tr>
  31. Réponse.Write <Tr> <Td> Site Web: <Ahref = & Arrurls.item (x) .Text & Target = '_ Blank'> & Arrurls.item (x) .Text & </a> <td> </tr>
  32. Response.Write <Tr> <Td> Contenu du message: </td> </tr>
  33. Response.Write <Tr> <tdbgColor = '# 0099ff'> & armessages.item (x) .text & </td> </tr>
  34. Response.write <tr> <td> </td> </tr>
  35. Suivant
  36. Réponse.write </ Table>
  37. SetObjxml = rien
  38. Finition de fin
  39. 'La fonction pour ajouter un enregistrement de message au fichier XML Addentry ()
  40. FunctionAddentry ()
  41. 'Définir les variables locales
  42. Tamis
  43. Dimstremail
  44. Diminue
  45. DimstrMessage
  46. 'Obtenez le contenu d'entrée du formulaire de message
  47. strname = request.form (name)
  48. stremail = request.form (e-mail)
  49. strurl = request.form (site Web)
  50. strMessage = request.form (laissez un message)
  51. Dimobjxml
  52. Dimobjentry
  53. Dimobjname
  54. Dimobjemail
  55. Dimobjurl
  56. Dimobjmessage
  57. 'Ajouter du contenu du message au fichier XML
  58. SetObjxml = server.createObject (msxml2.domDocument)
  59. objxml.async = false
  60. objxml.load (server.mappath (gardbook.xml))
  61. SetObJentry = objxml.creenode (élément, enregistrement de message,)
  62. objxml.DocumentElement.ApendChild (Objentry)
  63. SetObjName = objxml.creenode (élément, nom du commentateur,)
  64. Objentry.ApendChild (Objname)
  65. objname.text = strname
  66. SetObJemail = objxml.cretenode (élément, e-mail,)
  67. Objentry.ApendChild (Objemail)
  68. objemail.text = stremail
  69. SetObjurl = objxml.creenode (élément, url,)
  70. Objentry.ApendChild (Objurl)
  71. objurl.text = strurl
  72. SetObjMessage = objxml.creenode (élément, contenu du message,)
  73. Objentry.ApendChild (ObjMessage)
  74. objMessage.Text = StrMessage
  75. objxml.save (server.mappath (Guetbook.xml))
  76. Response.redirect (Guestbook.asp)
  77. Finition de fin
  78. 'Remplir et envoyer le formulaire de message Fonction Fonction Entrée ()
  79. FunctionEntryForm ()
  80. Réponse.write <palign = 'Center'> <b> Exemple de livre de message xml </b> </p>
  81. Réponse.Write <hrcolor = '# 000099'Width =' 100% 'noshade>
  82. Réponse.write <formAction = Guetbook.asp? Action = AddentRyMethod = Post>
  83. Response.Write <TableBorder = 1>
  84. Réponse.write <tr> <td> Votre nom: </td> <td> <putypeType = textName = name /> </td> </tr>
  85. Response.Write <Tr> <Td> Email: </td> <td> <futype = textName = email /> </td> </tr>
  86. Response.Write <Tr> <Td> Votre URL: </TD> <TD> <NOWSETYPE = TextName = site Web /> </td> </tr>
  87. Réponse.write <tr> <td> Votre message: </td> <td> <TextaReName = Message Cols = 40Rows = 5> </ Textare> </td> </tr>
  88. Réponse.write <tr> <td> </td> <td> <futype = soumidValue = post Message / </td> </tr>
  89. Réponse.write </ Table>
  90. Réponse.write </ form>
  91. Finition de fin
  92. %>
  93. <html>
  94. <adal>
  95. <Title> Exemple de message XML </TITME>
  96. <Metahttp-Equiv = Content-TypeContent = Text / Html; charSet = GB2312>
  97. </ head>
  98. <body>
  99. <%
  100. 'Juger si un message a été envoyé et mettre à jour les informations du message
  101. Dima
  102. a = request.querystring (action)
  103. Ifa <> alors
  104. addentry
  105. autre
  106. init
  107. Endire
  108. %>
  109. </docy>
  110. </html>

Ce qui précède est un exemple simple d'utilisation de XML pour développer des babillards électroniques, et plus de fonctions peuvent être ajoutées au besoin.

Articles connexes