ASP develops XML-based message board

XML (Extensible Markup Language) is a markup language based on text format. It focuses on the description of data structure and data meaning, realizes the separation of data content and display style, and is independent of the platform. The following uses XML as the carrier of data to develop an XML-based message board.

XML (Extensible Markup Language) is a markup language based on text format. It focuses on the description of data structure and data meaning, realizes the separation of data content and display style, and is independent of the platform. Since XML focuses on the description of data content, it is very meaningful for data retrieval. We will no longer retrieve information that is not related to our requirements like HTML. On the other hand, XML files are the carrier of data. Using XML as a database does not require access to any database system. We can use any WEB technology to display our data, such as HTML, Flash 5, etc. Thanks to the active participation of major computer companies around the world, XML is increasingly becoming the standard for the next generation of Internet-based data formats. The following uses XML as the carrier of data to develop an XML-based message board.

First, we create the XML file guestbook.xml, which records the name, email, URL, and message content of the commentator. Of course, we can also add as much information as we need.

The file contents are as follows:

1. <?xmlversion=1.0encoding=gb2312?>
2. <Message Book>
3. <Message Record>
4. <Name of the commentator>Meng Xianhui</Name of the commentator>
5. <Email>[email protected]</Email>
6. <Website>http://go.163.com/~colorweb</website>
7. <Message Content> Tested successfully! ! </Message Content>
8. </Message Record>
9. </Message Book>

Since many servers currently support ASP, we use common ASP as implementation tool. The guestbook.asp file is as follows:

1. <%@Language=VBScript%>
2. <%
3. 'Set the information of the web page
4. Response.Buffer=true
5. Response.Expires=-1
6. 'Show message function init()
7. Functioninit()
8. entryForm()
9. 'Define local variables
10. DimobjXML
11. DimarrNames
12. DimarrEmails
13. DimarrURLS
14. DimarrMessages
15. 'Create XMLDOM document object to store messages
16. SetobjXML=server.createObject(Msxml2.DOMDocument)
17. objXML.async=false
18. objXML.load(server.MapPath(guestbook.xml))
19. 'Get a collection of elements of the message book
20. SetarrNames=objXML.getElementsByTagName(name of the commentator)
21. SetarrEmails=objXML.getElementsByTagName(email)
22. SetarrURLS=objXML.getElementsByTagName(website)
23. SetarrMessages=objXML.getElementsByTagName(Message content)
24. Response.Write<tableborder='0'width='100%'>
25. Response.Write<tr><tdbgcolor='#00CCFF'align='center'height='26'>
26. Response.Write<b>Doctors' comments are as follows:</b>
27. Response.Write</td></tr>
28. 'Output content of each element of the message book, the latest message will be displayed first
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>Website: <ahref=&arrURLS.item(x).text&target='_blank'>&arrURLS.item(x).text&</a><td></tr>
32. Response.Write<tr><td>Message content:</td></tr>
33. Response.Write<tr><tdbgcolor='#0099ff'>&arrMessages.item(x).text&</td></tr>
34. Response.Write<tr><td></td></tr>
35. Next
36. Response.Write</table>
37. SetobjXML=nothing
38. EndFunction
39. 'The function to add message record to the XML file addEntry()
40. FunctionaddEntry()
41. 'Define local variables
42. DimstrName
43. DimstrEmail
44. DimstrURL
45. DimstrMessage
46. 'Get input content of the message form
47. strName=Request.Form(name)
48. strEmail=Request.Form(email)
49. strURL=Request.Form(website)
50. strMessage=Request.Form(Leave a message)
51. DimobjXML
52. DimobjEntry
53. DimobjName
54. DimobjEmail
55. DimobjURL
56. DimobjMessage
57. 'Add message content to XML file
58. SetobjXML=server.createObject(Msxml2.DOMDocument)
59. objXML.async=false
60. objXML.load(server.MapPath(guestbook.xml))
61. SetobjEntry=objXML.createNode(element, message record,)
62. objXML.documentElement.appendChild(objEntry)
63. SetobjName=objXML.createNode(element, name of the commentator,)
64. objEntry.appendChild(objName)
65. objName.text=strName
66. SetobjEmail=objXML.createNode(element,email,)
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(element, message content,)
73. objEntry.appendChild(objMessage)
74. objMessage.text=strMessage
75. objXML.save(server.MapPath(guestbook.xml))
76. Response.Redirect(guestbook.asp)
77. Endfunction
78. 'Fill in and send message form function entryForm()
79. FunctionentryForm()
80. Response.Write<palign='center'><b>XML message book example</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>Your name:</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>Your URL:</td><td><inputtype=textname=website/></td></tr>
87. Response.Write<tr><td>Your message:</td><td><textarename=Message cols=40rows=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. EndFunction
92. %>
93. <html>
94. <head>
95. <title>XML message example</title>
96. <metahttp-equiv=Content-Typecontent=text/html;charset=gb2312>
97. </head>
98. <body>
99. <%
100. 'Judge whether a message has been sent and update the message information
101. Dima
102. a=Request.Querystring(action)
103. Ifa<>Then
104. addEntry
105. else
106. init
107. EndIf
108. %>
109. </body>
110. </html>

The above is a simple example of using XML to develop message boards, and more functions can be added as needed.