Development of XML based message board with ASP

XML (extensible Markup Language) is a kind of markup language based on text format, which pays attention to the description of data structure and data meaning, realizes the separation of content and display style, and is not platform independent. Because XML pays attention to the description of the content of the data, so it is very meaningful to retrieve the data, we will not retrieve the information that is not relevant to our request again like HTML. On the other hand, XML file is the carrier of data, using XML as a database, no need to access any database system, we can use any Web technology to display our data, such as Html,flash 5. Thanks to the active participation of the world's major computer companies, XML is increasingly becoming a new generation of internet-based data format standards. The following XML is used as the carrier of data to develop a walls based on XML.

First, we set up an XML file Guestbook.xml, which records the name of the message, email, web address, message content. Of course, we can also add as much information as we need to. The contents of the document are as follows:

<?xml version="1.0" encoding="gb2312"?>
<留言本>
<留言记录>
<留言者姓名>孟宪会</留言者姓名>
<电子邮件>amxh@testDomain.com</电子邮件>
<网址>http://go.163.com/~colorweb</网址>
<留言内容>测试成功！！</留言内容>
</留言记录>
</留言本>

Since many servers currently support ASP, we use the common ASP as the implementation tool, guestbook.asp files are as follows:

<% @Language = "VBScript"%>
<%
' Set the information for the Web page
Response.Buffer = True
Response.Expires =-1
' Show Message function init ()
Function Init ()
Entryform ()
' Define local variables
Dim Objxml
Dim ArrNames
Dim arremails
Dim Arrurls
Dim arrmessages
' Create a XMLDOM document object for storing messages
Set objxml = Server.CreateObject ("Msxml2.domdocument")
Objxml.async = False
Objxml.load (server. MapPath ("Guestbook.xml"))
' Get the message this collection of the elements
Set arrNames = Objxml.getelementsbytagname ("Guest name")
Set arremails = Objxml.getelementsbytagname ("e-mail")
Set arrurls = objxml.getelementsbytagname ("url")
Set arrmessages = objxml.getelementsbytagname ("message content")
Response.Write "<table border= ' 0 ' width= ' 100% ' >"
Response.Write "<tr><td bgcolor= ' #00CCFF ' align= ' center ' height= ' >"
Response.Write "<b> members ' comments are as follows:</b>"
Response.Write "</td></tr>"
' Output the content of each element of the message, the latest message first show
For x=arrnames.length-1 to 0 Step-1
Response.Write "<tr><td><a Href=mailto:" & Arremails.item (x). Text & ">" & Arrnames.item ( x). Text & "</a></td></tr>"
Response.Write "<tr><td> URL: <a href=" & Arrurls.item (x). Text & "target= ' _blank ' >" & Arrurls.item (x). Text & "</a><td></tr>"
Response.Write "<tr><td> Message content:</td></tr>"
Response.Write "<tr><td bgcolor= ' #0099ff ' >" & Arrmessages.item (x). Text & "</td></tr> "
Response.Write "<tr><td>&nbsp;</td></tr>"
Next
Response.Write "</table>"
Set Objxml = Nothing
End Function
' function to add a message record to an XML file AddEntry ()
Function AddEntry ()
' Define local variables
Dim StrName
Dim Stremail
Dim strURL
Dim strmessage
' Get the input of the message form
StrName = Request.Form ("name")
Stremail = Request.Form ("e-mail")
strURL = Request.Form ("url")
strmessage = Request.Form ("message")
Dim Objxml
Dim Objentry
Dim objname
Dim Objemail
Dim Objurl
Dim objmessage
' Add message content to XML file
Set objxml = Server.CreateObject ("Msxml2.domdocument")
Objxml.async = False
Objxml.load (server. MapPath ("Guestbook.xml"))
Set objentry = Objxml.createnode ("element", "message Record", "")
ObjXML.documentElement.appendChild (Objentry)
Set objname = Objxml.createnode ("element", "message person's name", "")
Objentry.appendchild (objname)
Objname.text = StrName
Set objemail = Objxml.createnode ("element", "e-mail", "")
Objentry.appendchild (Objemail)
Objemail.text = Stremail
Set Objurl = Objxml.createnode ("element", "url", "")
Objentry.appendchild (Objurl)
Objurl.text = strURL
Set objmessage = Objxml.createnode ("element", "message content", "")
Objentry.appendchild (objmessage)
Objmessage.text = strmessage
Objxml.save (server. MapPath ("Guestbook.xml"))
Response.Redirect ("guestbook.asp")
End Function
' Functions to fill out and send Message forms Entryform ()
Function Entryform ()
Response.Write "<p align= ' center ' ><b>xml message This example </b></p>"
Response.Write "Response.Write "<form action=guestbook.asp?action=addentry method=post>"
Response.Write "<table border=1>"
Response.Write "<tr><td> Your name: </td><td><input type=text name= name/></td></tr > "
Response.Write "<tr><td> e-mail: </td><td><input type=text name= Email/></td></ Tr> "
Response.Write "<tr><td> your website: </td><td><input type=text name= URL/></td></tr > "
Response.Write "<tr><td> your message: </td><td><textarea name= message cols=40 Rows=5></textarea ></td></tr> "
Response.Write "<tr><td>&nbsp;</td><td><input type=submit value= Post message/></td ></tr> "
Response.Write "</table>"
Response.Write "</form>"
End Function
%>
<title>xml Message Example </title>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<body>
<%
' Decide whether to send a message, and update the message
Dim A
A = Request.QueryString ("action")
If a<> "" Then
AddEntry
Else
Init
End If
%>
</body>


The above is a simple example of using XML to develop a message board, you can add more functionality as needed.