Página Inicial>Tutorial de programação de redes>Tutorial ASP

ASP desenvolve quadro de mensagens baseado em XML

Autor：Eve Cole Data da Última Atualização：2025-03-02 20:16:01

XML (Linguagem de marcação extensível) é uma linguagem de marcação com base no formato de texto. O seguinte usa o XML como transportador de dados para desenvolver uma placa de mensagem baseada em XML.

XML (Linguagem de marcação extensível) é uma linguagem de marcação com base no formato de texto. Como o XML se concentra na descrição do conteúdo de dados, é muito significativo para a recuperação de dados. Por outro lado, os arquivos XML são o portador de dados. Graças à participação ativa das principais empresas de computadores em todo o mundo, a XML está se tornando cada vez mais o padrão para a próxima geração de formatos de dados baseados na Internet. O seguinte usa o XML como transportador de dados para desenvolver uma placa de mensagem baseada em XML.

Primeiro, criamos o arquivo de visitas ao arquivo XML.xml, que registra o nome, email, URL e conteúdo de mensagem do comentarista. Obviamente, também podemos adicionar o máximo de informações necessárias.

O conteúdo do arquivo é o seguinte:

  1. <? xmlversion = 1.0Encoding = GB2312?>
  2. <Livro da mensagem>
  3. <REGISTRO DE MENSAGEM>
  4. <Nome do comentarista> Meng Xianhui </Nome do Comentarista>
  5. <aily> [email protected] </maily>
  6. <Site> http://go.163.com/~colorweb </sites>
  7. <Mensagem conteúdo> Testado com sucesso! ! </Conteúdo>
  8. </Registro da mensagem>
  9. </Livro de mensagens>

Como muitos servidores suportam atualmente o ASP, usamos o Common ASP como ferramenta de implementação.

  1. <%@Idioma = vbscript%>
  2. <%
  3. 'Defina as informações da página da web
  4. Response.Buffer = true
  5. Response.Expires = -1
  6. 'Mostrar função de mensagem init ()
  7. FunctionInit ()
  8. EntryForm ()
  9. Defina variáveis ​​locais
  10. DIMOBJXML
  11. DiMarrNames
  12. DiMarremails
  13. DiMarrls
  14. DiMarrMessages
  15. 'Crie objeto de documento xmldom para armazenar mensagens
  16. Setobjxml = server.createObject (msxml2.domdocument)
  17. objxml.async = false
  18. objxml.load (server.mappath (visitante.xml))
  19. 'Obtenha uma coleção de elementos do livro de mensagens
  20. SetarrNames = objxml.getElementsByTagName (nome do comentarista)
  21. Setarremails = objxml.getElementsByTagName (email)
  22. SetArRurls = objxml.getElementsByTagName (site)
  23. SetarrMessages = objxml.getElementsByTagName (conteúdo da mensagem)
  24. Response.write <tableborder = '0'width =' 100%'>
  25. Response.write <tr> <tdbgcolor = '#00ccff'align =' Center'Height = '26 '>
  26. Response.Write <b> Os comentários dos médicos são os seguintes: </b>
  27. Response.write </td> </tr>
  28. 'OUTENT OURS CONTEÚDO DE cada elemento do livro de mensagens, a mensagem mais recente será exibida primeiro
  29. Forx = arrnames.Length-1To0Step-1
  30. Response.Write <tr> <td> <ahref = Mailto: & arremils.item (x) .Text &> e arrnames.item (x) .text & </a> </td> </tr>
  31. Response.write <tr> <td> site: <ahref = & Arrurls.item (x) .Text & Target = '_ Blank'> & Arrurls.item (x) .Text & </a> <td> </tr>
  32. Response.Write <tr> <td> conteúdo da mensagem: </td> </tr>
  33. Response.Write <tr> <tdbgcolor = '#0099ff'> & arrmessages.item (x) .Text & </td> </tr>
  34. Response.write <tr> <td> </td> </tr>
  35. Próximo
  36. Response.write </ table>
  37. Setobjxml = nada
  38. Função final
  39. 'A função para adicionar registro da mensagem ao arquivo xml addentry ()
  40. FunctionAddentry ()
  41. Defina variáveis ​​locais
  42. Dimstrname
  43. Dimstremail
  44. DIMSTRURL
  45. Dimstrmessage
  46. 'Obtenha o conteúdo de entrada do formulário de mensagem
  47. strname = request.form (nome)
  48. Stremail = request.form (email)
  49. strurl = request.form (site)
  50. strMessage = request.form (deixe uma mensagem)
  51. DIMOBJXML
  52. Dimobjentry
  53. DIMOBJNAME
  54. Dimobjemail
  55. DIMOBJURL
  56. DIMOBJMESSAGE
  57. 'Adicione o conteúdo da mensagem ao arquivo XML
  58. Setobjxml = server.createObject (msxml2.domdocument)
  59. objxml.async = false
  60. objxml.load (server.mappath (visitante.xml))
  61. Setobjentry = objxml.createnode (elemento, registro da mensagem)
  62. objxml.documentElement.appendChild (objentry)
  63. SetObjName = objxml.CreateNode (elemento, nome do comentarista,)
  64. objentry.appendChild (objName)
  65. objName.Text = strname
  66. Setobjemail = objxml.createnode (elemento, email,)
  67. objentry.appendChild (objemail)
  68. objemail.Text = Stremail
  69. Setobjurl = objxml.createnode (elemento, url)
  70. objentry.appendChild (objurl)
  71. objurl.text = strurl
  72. SetObjMessage = objxml.createnode (elemento, conteúdo da mensagem)
  73. objentry.appendChild (objmessage)
  74. objMessage.Text = strMessage
  75. objxml.save (server.mappath (vivebook.xml))
  76. Response.Redirect (VIDADEbook.asp)
  77. Função final
  78. 'Preencha e envie o formulário de mensagem Função EntryForm ()
  79. FunctionEntryForm ()
  80. Response.Write <Palign = 'Center'> <b> Exemplo de livro de mensagens xml </b> </p>
  81. Response.write <hrcolor = '#000099'width =' 100%'Noshade>
  82. Response.write <formaction = visitingbook.asp? Action = addEntryMethod = post>
  83. Response.Write <Tableborder = 1>
  84. Response.Write <tr> <td> Seu nome: </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> seu url: </td> <td> <inputType = textName = site/> </td> </tr>
  87. Response.write <tr> <td> Sua mensagem: </td> <td> <textarename = mensagem cols = 40Rows = 5> </sextare> </td> </tr>
  88. Response.write <tr> <td> </td> <td> <inputType = submitValue = post message/</td> </tr>
  89. Response.write </ table>
  90. Response.write </morm>
  91. Função final
  92. %>
  93. <html>
  94. <head>
  95. <title> Exemplo de mensagem XML </ititure>
  96. <metahttp-equiv = content-typeContent = text/html; charset = gb2312>
  97. </head>
  98. <Body>
  99. <%
  100. 'Julgue se uma mensagem foi enviada e atualize as informações da mensagem
  101. Dima
  102. a = request.QueryString (ação)
  103. IFA <> então
  104. addentry
  105. outro
  106. init
  107. Endif
  108. %>
  109. </body>
  110. </html>

O exposto acima é um exemplo simples de usar XML para desenvolver placas de mensagens, e mais funções podem ser adicionadas conforme necessário.

Artigos Relacionados