怎么利用XML開發(fā)簡單的留言板功能-創(chuàng)新互聯(lián)

這篇文章主要介紹“怎么利用XML開發(fā)簡單的留言板功能”，在日常操作中，相信很多人在怎么利用XML開發(fā)簡單的留言板功能問題上存在疑惑，小編查閱了各式資料，整理出簡單好用的操作方法，希望對大家解答”怎么利用XML開發(fā)簡單的留言板功能”的疑惑有所幫助！接下來，請跟著小編一起來學習吧！

創(chuàng)新互聯(lián)長期為近1000家客戶提供的網(wǎng)站建設(shè)服務，團隊從業(yè)經(jīng)驗10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為瀘縣企業(yè)提供專業(yè)的網(wǎng)站制作、成都網(wǎng)站設(shè)計，瀘縣網(wǎng)站改版等技術(shù)服務。擁有十多年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。

xml是一種基于文本格式的元標記語言，它注重對數(shù)據(jù)結(jié)構(gòu)和數(shù)據(jù)意義的描述，實現(xiàn)了數(shù)據(jù)內(nèi)容和顯示樣式的分離（xml+xsl），而且是與平臺無關(guān)的。

由于XML注重數(shù)據(jù)內(nèi)容的描述，因而，對于數(shù)據(jù)的檢索非常有意義，我們不會再象HTML那樣，檢索出與我們要求無關(guān)的信息。

另一方面，XML文件是數(shù)據(jù)的載體，利用XML作為數(shù)據(jù)庫，不需要訪問任何數(shù)據(jù)庫系統(tǒng)，我們可以使用任意WEB技術(shù)來顯示我們的數(shù)據(jù)，比如HTML，F(xiàn)lashMX 等。

由于世界各大計算機公司的積極參與，XML正日益成為基于互聯(lián)網(wǎng)的數(shù)據(jù)格式新一代的標準。

下面利用XML作為數(shù)據(jù)的載體，開發(fā)一個基于XML的留言板。

首先，我們建立XML文件guestbook.xml，該文件記錄了留言者的姓名、電子郵件、網(wǎng)址、留言內(nèi)容。當然，我們也可以根據(jù)需要添加任意多的信息。文件內(nèi)容如下：

<?xml version="1.0" encoding="gb2312"?> 
<留言本> 
<留言記錄> 
<留言者姓名>KAI</留言者姓名> 
<電子郵件>kai@hostx.org</電子郵件> 
<網(wǎng)址>http://www.17xml.com </網(wǎng)址> 
<留言內(nèi)容>千山萬水總是情，常來泡妞行不行？咔咔:_)</留言內(nèi)容> 
</留言記錄> 
</留言本> 
　

　 由于目前許多服務器都支持asp，我們采用常見的ASP來作為實現(xiàn)的工具，guestbook.asp文件如下：

<%@Language="VBScript"%> 
<% 
'設(shè)置Web頁面的信息 
Response.Buffer = true 
Response.Expires = -1 
　 
'顯示留言函數(shù)init() 
'www.knowsky.com
Function init() 
entryForm() 
　 
'定義局部變量 
Dim objXML 
Dim arrNames 
Dim arrEmails 
Dim arrURLS 
Dim arrMessages 
　 
'創(chuàng)建XMLDOM文檔對象，用來存放留言 
Set objXML = server.createObject("Msxml2.DOMDocument") 
objXML.async = false 
objXML.load(server.MapPath("guestbook.xml")) 
　 
'取得留言本各元素的集合 
Set arrNames = objXML.getElementsByTagName("留言者姓名") 
Set arrEmails = objXML.getElementsByTagName("電子郵件") 
Set arrURLS = objXML.getElementsByTagName("網(wǎng)址") 
Set arrMessages = objXML.getElementsByTagName("留言內(nèi)容") 
　 
Response.Write "<table border='0' width='100%'>" 
Response.Write "<tr><td bgcolor='#00CCFF' align='center' height='26'>" 
Response.Write "<b>各位的留言如下：</b>" 
Response.Write "</td></tr>" 
　 
'輸出留言本各元素的內(nèi)容，最新的留言先顯示 
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>網(wǎng)址：<a href=" & arrURLS.item(x).text & " target='_blank'>" & arrURLS.item(x).text & "</a><td></tr>" 
Response.Write "<tr><td>留言內(nèi)容：</td></tr>" 
Response.Write "<tr><td bgcolor='#0099ff'>" & arrMessages.item(x).text &"</td></tr>" 
Response.Write "<tr><td> </td></tr>" 
Next 
　 
Response.Write "</table>" 
Set objXML = nothing 
End Function 
　 
'向XML文件添加留言記錄的函數(shù)addEntry() 
Function addEntry() 
　 
'定義局部變量 
Dim strName 
Dim strEmail 
Dim strURL 
Dim strMessage 
　 
'取得留言表單的輸入內(nèi)容 
strName = Request.Form("姓名") 
strEmail = Request.Form("電子郵件") 
strURL = Request.Form("網(wǎng)址") 
strMessage = Request.Form("留言") 
　 
Dim objXML 
Dim objEntry 
Dim objName 
Dim objEmail 
Dim objURL 
Dim objMessage 
　 
'向XML文件添加留言內(nèi)容 
Set objXML = server.createObject("Msxml2.DOMDocument") 
objXML.async = false 
objXML.load(server.MapPath("guestbook.xml")) 
　 
Set objEntry = objXML.createNode("element", "留言記錄", "") 
objXML.documentElement.appendChild(objEntry) 
　 
Set objName = objXML.createNode("element", "留言者姓名", "") 
objEntry.appendChild(objName) 
objName.text = strName 
　 
Set objEmail = objXML.createNode("element", "電子郵件", "") 
objEntry.appendChild(objEmail) 
objEmail.text = strEmail 
　 
Set objURL = objXML.createNode("element", "網(wǎng)址", "") 
objEntry.appendChild(objURL) 
objURL.text = strURL 
　 
Set objMessage = objXML.createNode("element", "留言內(nèi)容", "") 
objEntry.appendChild(objMessage) 
objMessage.text = strMessage 
　 
objXML.save(server.MapPath("guestbook.xml")) 
　 
Response.Redirect("guestbook.asp") 
　 
End function 
　 
'填寫和發(fā)送留言表單的函數(shù)entryForm() 
Function entryForm() 
　 
Response.Write "<p align='center'><b>XML 留言本 例子</b></p>" 
Response.Write "<hr color='#000099' width='100%' noshade>" 
Response.Write "<form action=guestbook.asp?action=addEntry method=post>" 
Response.Write "<table border=1>" 
Response.Write "<tr><td>您的姓名：</td><td><input type=text name=姓名 /></td></tr>" 
Response.Write "<tr><td>電子郵件：</td><td><input type=text name=電子郵件 /></td></tr>" 
Response.Write "<tr><td>您的網(wǎng)址：</td><td><input type=text name=網(wǎng)址 /></td></tr>" 
Response.Write "<tr><td>您的留言：</td><td><textarea name=留言 cols=40 rows=5></textarea></td></tr>" 
Response.Write "<tr><td> </td><td><input type=submit value=發(fā)布留言 /></td></tr>" 
Response.Write "</table>" 
Response.Write "</form>" 
　 
End Function 
%> 
<html> 
<head> 
<title>XML 留言例子</title> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
</head> 
<body> 
<% 
'判斷是否發(fā)送了留言，并更新留言信息 
Dim a 
a = Request.Querystring("action") 
If a<>"" Then 
addEntry 
else 
init 
End If 
%> 
</body> 
</html>

到此，關(guān)于“怎么利用XML開發(fā)簡單的留言板功能”的學習就結(jié)束了，希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學習，快去試試吧！若想繼續(xù)學習更多相關(guān)知識，請繼續(xù)關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編會繼續(xù)努力為大家?guī)砀鄬嵱玫奈恼拢?/p>

本文標題：怎么利用XML開發(fā)簡單的留言板功能-創(chuàng)新互聯(lián)
標題網(wǎng)址：http://bm7419.com/article8/ceogop.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供全網(wǎng)營銷推廣、定制開發(fā)、網(wǎng)站排名、網(wǎng)站制作、外貿(mào)網(wǎng)站建設(shè)、電子商務

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)