日逼视频免费看看,亚洲美女天天天射

asp添加、刪除、修改xml文件中的節(jié)點

admin

2011年12月14日 22:52 本文熱度 3554

asp添加、刪除、修改xml文件中的節(jié)點

1.ASP顯示xml文件中的所有節(jié)點

2.ASP向xml文件中的添加節(jié)點

3.ASP刪除xml文件中某個節(jié)點

4.使用asp修改xml中的節(jié)點

1.ASP操作xml--顯示xml文件中的所有節(jié)點

通常是利用數(shù)據(jù)庫來保存數(shù)據(jù)，但也可以使用xml文件來保存數(shù)據(jù)。假設xml文件的內(nèi)容是：
test.xml
<?xml version="1.0" encoding="gb2312"?>
<site>
<root>
<list>
<id>0</id>
<name>新浪</name>
<url>http://www.sina.com.cn</url>
<time>2007-11-1 10:10:10</time>
</list>
<list>
<id>1</id>
<name>google</name>
<url>http://www.google.cn</url>
<time>2007-11-2 11:11:11</time>
</list>
</root>
</site>

用來顯示xml中的內(nèi)容的asp文件
index.asp
<style>
body {}
</style>
<%
strSourceFile = Server.MapPath("./") & "\test.xml"
'獲取XML文件的路徑這里根據(jù)你的虛擬目錄不同而不同
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
'以自由線程創(chuàng)建一個XML對像
objXML.load(strSourceFile)'把XML文件讀入內(nèi)存
Set objRootsite = objXML.documentElement.selectSingleNode("root")
'選取root節(jié)點
num=objRootsite.childNodes.length-1
For i=0 To num
response.write "網(wǎng)站名:"&objRootsite.childNodes.item(i).childNodes.item(1).text&" <a href=""javascript:delxml("&objRootsite.childNodes.item(i).childNodes.item(0).text&")"">刪除</a> <a href=""editxml.asp?id="&objRootsite.childNodes.item(i).childNodes.item(0).text&""">修改</a>
"
response.write "網(wǎng)址："&objRootsite.childNodes.item(i).childNodes.item(2).text&"
"
response.write "添加時間:"&objRootsite.childNodes.item(i).childNodes.item(3).text&"

"
next
%>
<script>
function delxml(id)
{
if(!confirm("確定要刪除嗎？")) return false;
location.href='delxml.asp?id='+id;
}
</script>

注意：index.asp要與test.xml文件放在同一目錄下。

2.ASP操作xml--向xml文件中的添加節(jié)點

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> 向xml中添加新節(jié)點 </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<style>
body {}
</style>
</HEAD>

<BODY>

<%
addok=request("addok")
If addok="" Or IsNull(addok) Then
%>
<form name="form1" method="post" action="?addok=add">
網(wǎng)站名：<input type="text" name="site" size="30" >

網(wǎng) 址：<input type="text" name="url" size="40">

<input type="submit" value="提交"> <input type="reset" value="重置">
</form>
<%
End If
If addok="add" then
site=request("site")
url=request("url")
strSourceFile = Server.MapPath("./") & "\test.xml"
'獲取XML文件的路徑這里根據(jù)你的虛擬目錄不同而不同
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
'創(chuàng)建XML對像
objXML.load(strSourceFile)
'把XML文件讀入內(nèi)存中
Set objRootlist = objXML.documentElement.selectSingleNode("root")
'選取<root>節(jié)點
if objRootlist.hasChildNodes then
'判斷<NewList>是否有子節(jié)點（因為如果是每一次<root>是沒有子節(jié)點的，如果不加判斷在第一次運得時就會報錯
id = objRootlist.lastchild.firstchild.text+1
'這里獲得將要插入子節(jié)點的ID號，其ID號為<root>的最后一個子節(jié)點(lastchild)的第一個子節(jié)點(firstchild)
'的ID號加1（這里我們按照關系型數(shù)據(jù)庫的ID號來遞增）
else
'如是沒有字子節(jié)點則是第一次留言ID號設為1
id=1
end If
brstr=chr(13)&chr(10)&chr(9)
XMLnode=brstr&"<list>"&vbnewline & _
"<id>"&id&"</id>"&vbnewline & _
"<name>"&site&"</name>"&vbnewline & _
"<url>"&url&"</url>"&vbnewline & _
"<time>"&Replace(Replace(Now(),"上午 ",""),"下午 ","")&"</time>"&vbnewline & _
"</list>"&vbnewline&vbnewline

'根據(jù)得到的數(shù)據(jù)建立XML片段
set objXML2=Server.CreateObject("Microsoft.XMLDOM")
'建立一個新XML對像
objXML2.loadXML(XMLnode)
'把XML版片段讀入內(nèi)存中
set rootNewNode=objXML2.documentElement
'獲得objXML2的根節(jié)點
objRootlist.appendChild(rootNewNode)
'把XML片段插入到test.xml中
objXML.save(strSourceFile)
'存儲test.xml文件（因為不存儲test.xml只在內(nèi)存中更新了）
set objXML=nothing
set objXML2=nothing
Response.Redirect("index.asp")
response.end
End If
%>
</BODY>
</HTML>

test.xml中的內(nèi)容是
<?xml version="1.0" encoding="gb2312"?>
<site>
<root>
<list>
<id>0</id>
<name>新浪</name>
<url>http://www.sina.com.cn</url>
<time>2007-11-1 10:10:10</time>
</list>
</root>
</site>

3.ASP操作xml--刪除xml文件中某個節(jié)點

detail.asp?id=157這個頁面用來顯示xml文件中的所有節(jié)點,在每個節(jié)點旁邊有刪除和編輯兩個連接,其中刪除的代碼是:
<%
id=request("id")
if IsNumeric(id)=false or isNull(id) then
response.write ("參數(shù)不正確，請返回！")
response.end
end if
strSourceFile = Server.MapPath("./") & "\test.xml"
'獲取XML文件的路徑這里根據(jù)你的虛擬目錄不同而不同
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
'創(chuàng)建XML對像
objXML.load(strSourceFile)
'把XML文件讀入內(nèi)存中
Set objRootlist = objXML.documentElement.selectSingleNode("root")
set rootOldNode=objRootlist.childNodes.item(id)
objRootlist.RemoveChild rootOldNode
'刪除節(jié)點
objXML.save(strSourceFile)
'存儲test.xml文件（因為不存儲test.xml只在內(nèi)存中更新了）
set objXML=Nothing
set objXML2=Nothing
Response.Redirect("index.asp")
response.end
%>

4.ASP操作xml--修改xml文件中的節(jié)點

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> 修改xml內(nèi)容 </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>

<BODY>

<%
id=request("id")
if IsNumeric(id)=false or isNull(id) then
response.write ("參數(shù)不正確，請返回！")
response.end
end if
addok=request("addok")
If addok="" Or IsNull(addok) then
strSourceFile = Server.MapPath("./") & "\test.xml"
'獲取XML文件的路徑這里根據(jù)你的虛擬目錄不同而不同
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
'以自由線程創(chuàng)建一個XML對像
objXML.load(strSourceFile)'把XML文件讀入內(nèi)存
Set objRootsite = objXML.documentElement.selectSingleNode("root")
id=objRootsite.childNodes.item(id).childNodes.item(0).text
site=objRootsite.childNodes.item(id).childNodes.item(1).text
url=objRootsite.childNodes.item(id).childNodes.item(2).text
%>
<form name="form1" method="post" action="?addok=edit&id=<%=id%>">
網(wǎng)站名：<input type="text" name="site" value="<%=site%>" size="30">

網(wǎng) 址：<input type="text" name="url" value="<%=url%>" size="40">

<input type="submit" value="修改"> <input type="reset" value="重置">
</form>
<%
End If
If addok="edit" Then
site=request("site")
url=request("url")
strSourceFile = Server.MapPath("./") & "\test.xml"
'獲取XML文件的路徑這里根據(jù)你的虛擬目錄不同而不同
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
'創(chuàng)建XML對像
objXML.load(strSourceFile)
'把XML文件讀入內(nèi)存中
Set objRootlist = objXML.documentElement.selectSingleNode("root")
set rootOldNode=objRootlist.childNodes.item(id)
brstr=chr(13)&chr(10)&chr(9)
XMLnode=brstr&"<list>"&vbnewline & _
"<id>"&id&"</id>"&vbnewline & _
"<name>"&site&"</name>"&vbnewline & _
"<url>"&url&"</url>"&vbnewline & _
"<time>"&Replace(Replace(Now(),"上午 ",""),"下午 ","")&"</time>"&vbnewline & _
"</list>"&vbnewline&vbnewline
'根據(jù)得到的數(shù)據(jù)建立XML片段
set objXML2=Server.CreateObject("Microsoft.XMLDOM")
'建立一個新XML對像
objXML2.loadXML(XMLnode)
'把XML版片段讀入內(nèi)存中
set rootNewNode=objXML2.documentElement
'獲得objXML2的根節(jié)點
objRootlist.ReplaceChild rootNewNode,rootOldNode
'修改test.xml
objXML.save(strSourceFile)
'存儲test.xml文件（因為不存儲test.xml只在內(nèi)存中更新了）
set objXML=nothing
set objXML2=nothing
Response.Redirect("index.asp")
response.end

End if
%>
</BODY>
</HTML>

該文章在 2011/12/14 22:52:28 編輯過

關鍵字查詢

正在查詢...

點晴ERP是一款針對中小制造業(yè)的專業(yè)生產(chǎn)管理軟件系統(tǒng),系統(tǒng)成熟度和易用性得到了國內(nèi)大量中小企業(yè)的青睞。

點晴PMS碼頭管理系統(tǒng)主要針對港口碼頭集裝箱與散貨日常運作、調(diào)度、堆場、車隊、財務費用、相關報表等業(yè)務管理，結合碼頭的業(yè)務特點，圍繞調(diào)度、堆場作業(yè)而開發(fā)的。集技術的先進性、管理的有效性于一體，是物流碼頭及其他港口類企業(yè)的高效ERP管理信息系統(tǒng)。

點晴WMS倉儲管理系統(tǒng)提供了貨物產(chǎn)品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質期管理,貨位管理,庫位管理,生產(chǎn)管理,WMS管理系統(tǒng),標簽打印,條形碼,二維碼管理,批號管理軟件。

點晴免費OA是一款軟件和通用服務都免費，不限功能、不限時間、不限用戶的免費OA協(xié)同辦公管理系統(tǒng)。

日韩欧美人妻无码精品白浆,www.大香蕉久久网,狠狠的日狠狠的操,日本好好热在线观看

asp添加、刪除、修改xml文件中的節(jié)點

asp添加、刪除、修改xml文件中的節(jié)點