首頁>網絡編程教程>ASP教程

ASP開發基於XML的留言板

作者：Eve Cole 更新時間：2025-03-02 20:16:01

XML(Extensible Markup Language)是一種基於文本格式的標記語言，它注重對數據結構和數據意義的描述，實現了數據內容和顯示樣式的分離，而且是與平台無關的。下面利用XML作為數據的載體，開發一個基於XML的留言板。

XML(Extensible Markup Language)是一種基於文本格式的標記語言，它注重對數據結構和數據意義的描述，實現了數據內容和顯示樣式的分離，而且是與平台無關的。由於XML注重數據內容的描述，因而，對於數據的檢索非常有意義，我們不會再象HTML那樣，檢索出與我們要求無關的信息。另一方面，XML文件是數據的載體，利用XML作為數據庫，不需要訪問任何數據庫系統，我們可以使用任意WEB技術來顯示我們的數據，比如HTML，Flash 5 等。由於世界各大計算機公司的積極參與，XML正日益成為基於互聯網的數據格式新一代的標準。下面利用XML作為數據的載體，開發一個基於XML的留言板。

首先，我們建立XML文件guestbook.xml，該文件記錄了留言者的姓名、電子郵件、網址、留言內容。當然，我們也可以根據需要添加任意多的信息。

文件內容如下：

  1. <?xmlversion=1.0encoding=gb2312?>
  2. <留言本>
  3. <留言記錄>
  4. <留言者姓名>孟憲會</留言者姓名>
  5. <電子郵件>[email protected]</電子郵件>
  6. <網址>http://go.163.com/~colorweb</網址>
  7. <留言內容>測試成功！ ！ </留言內容>
  8. </留言記錄>
  9. </留言本>

由於目前許多服務器都支持ASP，我們採用常見的ASP來作為實現的工具，guestbook.asp文件如下：

  1. <%@Language=VBScript%>
  2. <%
  3. '設置Web頁面的信息
  4. Response.Buffer=true
  5. Response.Expires=-1
  6. '顯示留言函數init()
  7. Functioninit()
  8. entryForm()
  9. '定義局部變量
  10. DimobjXML
  11. DimarrNames
  12. DimarrEmails
  13. DimarrURLS
  14. DimarrMessages
  15. '創建XMLDOM文檔對象，用來存放留言
  16. SetobjXML=server.createObject(Msxml2.DOMDocument)
  17. objXML.async=false
  18. objXML.load(server.MapPath(guestbook.xml))
  19. '取得留言本各元素的集合
  20. SetarrNames=objXML.getElementsByTagName(留言者姓名)
  21. SetarrEmails=objXML.getElementsByTagName(電子郵件)
  22. SetarrURLS=objXML.getElementsByTagName(網址)
  23. SetarrMessages=objXML.getElementsByTagName(留言內容)
  24. Response.Write<tableborder='0'width='100%'>
  25. Response.Write<tr><tdbgcolor='#00CCFF'align='center'height='26'>
  26. Response.Write<b>各位的留言如下：</b>
  27. Response.Write</td></tr>
  28. '輸出留言本各元素的內容，最新的留言先顯示
  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>網址：<ahref=&arrURLS.item(x).text&target='_blank'>&arrURLS.item(x).text&</a><td></tr>
  32. Response.Write<tr><td>留言內容：</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. '向XML文件添加留言記錄的函數addEntry()
  40. FunctionaddEntry()
  41. '定義局部變量
  42. DimstrName
  43. DimstrEmail
  44. DimstrURL
  45. DimstrMessage
  46. '取得留言表單的輸入內容
  47. strName=Request.Form(姓名)
  48. strEmail=Request.Form(電子郵件)
  49. strURL=Request.Form(網址)
  50. strMessage=Request.Form(留言)
  51. DimobjXML
  52. DimobjEntry
  53. DimobjName
  54. DimobjEmail
  55. DimobjURL
  56. DimobjMessage
  57. '向XML文件添加留言內容
  58. SetobjXML=server.createObject(Msxml2.DOMDocument)
  59. objXML.async=false
  60. objXML.load(server.MapPath(guestbook.xml))
  61. SetobjEntry=objXML.createNode(element,留言記錄,)
  62. objXML.documentElement.appendChild(objEntry)
  63. SetobjName=objXML.createNode(element,留言者姓名,)
  64. objEntry.appendChild(objName)
  65. objName.text=strName
  66. SetobjEmail=objXML.createNode(element,電子郵件,)
  67. objEntry.appendChild(objEmail)
  68. objEmail.text=strEmail
  69. SetobjURL=objXML.createNode(element,網址,)
  70. objEntry.appendChild(objURL)
  71. objURL.text=strURL
  72. SetobjMessage=objXML.createNode(element,留言內容,)
  73. objEntry.appendChild(objMessage)
  74. objMessage.text=strMessage
  75. objXML.save(server.MapPath(guestbook.xml))
  76. Response.Redirect(guestbook.asp)
  77. Endfunction
  78. '填寫和發送留言表單的函數entryForm()
  79. FunctionentryForm()
  80. Response.Write<palign='center'><b>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>您的姓名：</td><td><inputtype=textname=姓名/></td></tr>
  85. Response.Write<tr><td>電子郵件：</td><td><inputtype=textname=電子郵件/></td></tr>
  86. Response.Write<tr><td>您的網址：</td><td><inputtype=textname=網址/></td></tr>
  87. Response.Write<tr><td>您的留言：</td><td><textareaname=留言cols=40rows=5></textarea></td></tr>
  88. Response.Write<tr><td></td><td><inputtype=submitvalue=發布留言/></td></tr>
  89. Response.Write</table>
  90. Response.Write</form>
  91. EndFunction
  92. %>
  93. <html>
  94. <head>
  95. <title>XML留言例子</title>
  96. <metahttp-equiv=Content-Typecontent=text/html;charset=gb2312>
  97. </head>
  98. <body>
  99. <%
  100. '判斷是否發送了留言，並更新留言信息
  101. Dima
  102. a=Request.Querystring(action)
  103. Ifa<>Then
  104. addEntry
  105. else
  106. init
  107. EndIf
  108. %>
  109. </body>
  110. </html>

以上是利用XML開髮留言板簡單的例子，可以根據需要進行添加更多的功能。

相關文章