导航

ASP操作XML数据小结

Posted on 2011-07-22 10:04  ykhi  阅读(396)  评论(0)    收藏  举报 
XML用途之一 

增加、删除、修改“XML 记录”的例子 
'XML 文件 
<?xml version="1.0" encoding="gb2312"?> 
<stocks date="2001-8-24"> 
<stock> 
<code>111</code> 
<name>AAA</name> 
<openprice>7.93</openprice> 
<currentprice>7.93</currentprice> 
<tradeamount>0</tradeamount> 
<totalamount>1000000</totalamount> 
<status>1</status> 
</stock> 
<stock> 
<code>222</code> 
<name>BBB</name> 
<openprice>170.92</openprice> 
<currentprice>170.92</currentprice> 
<tradeamount>0</tradeamount> 
<totalamount>100000</totalamount> 
<status>1</status> 
</stock> 
<stock> 
<code>333</code> 
<name>CCC</name> 
<openprice>55.43</openprice> 
<currentprice>55.43</currentprice> 
<tradeamount>0</tradeamount> 
<totalamount>100000</totalamount> 
<status>1</status></stock> 
</stocks> 

'处理文件 Stocks.asp 
<% 
Response.CacheControl = "no-cache" 
%> 
<html> 
<head> 

<title>XML 的股票行情</title> 
<style> 
td {font-size:9pt} 
</style> 
</head> 

<body> 
<h1>XML 的股票行情</h1> 

<hr> 
<% 
set xml = Server.CreateObject("MSXML2.domdocument") 
'set xml = Server.CreateObject("Microsoft.xmlDom") 
xml.load Server.MapPath("stocks.xml") 
if xml.parseError.errorCode <> 0 then 
Response.Write "xml.parseError.errorCode = " &xml.parseError.errorCode 
Response.Write "xml.parseError.reason = " &xml.parseError.reason 
Response.Write "xml.parseError.line = " &xml.parseError.line 
Response.End 
end if 

'如果<stocks>的DATE属性不是今天，则改为今天 
xmlDate = xml.documentElement.attributes.getNamedItem("date").text 
if datediff("d",xmlDate,date) >= 1 then 
'xml.documentElement.attributes.getNamedItem("date").text = FormatDateTime(date,2) 
'可以在此加入改变股票价格的代码 
i = 1 
StockAmount = xml.getElementsByTagName("stock").length 
set StockList = xml.getElementsByTagName("stock") 
for i = 0 to StockAmount - 1 
set StockTemp = StockList.item(i) 
randomize 
ss =1 
if rnd() > 0.6 then ss = -1 
randomize 
StockTemp.childNodes.item(2).text = FormatNumber(Ccur(StockTemp.childNodes.item(2).text)*(1+ss*rnd()/10),2) 
StockTemp.childNodes.item(3).text = StockTemp.childNodes.item(2).text 
next 

xml.save Server.MapPath("stocks.xml") 
end if 

if Request.Form("submit") = "增加股票" then 

set objRoot = xml.documentElement 
set newStock = xml.createElement("stock") 
objRoot.appendChild newStock 
set objA1 = xml.createElement("code") 
newStock.appendChild objA1 
objA1.text = Request.Form("scode") 
set objA2 = xml.createElement("name") 
newStock.appendChild objA2 
objA2.text = Request.Form("sname") 
set objA3 = xml.createElement("openprice") 
newStock.appendChild objA3 
objA3.text = Request.Form("openPrice") 
set objA4 = xml.createElement("currentprice") 
newStock.appendChild objA4 
objA4.text = Request.Form("curPrice") 
set objA5 = xml.createElement("tradeamount") 
newStock.appendChild objA5 
objA5.text = Request.Form("tradeAmount") 
set objA6 = xml.createElement("totalamount") 
newStock.appendChild objA6 
objA6.text = Request.Form("TotalAmount") 
set objA7 = xml.createElement("status") 
newStock.appendChild objA7 
objA7.text = Request.Form("status") 

xml.save Server.MapPath("stocks.xml") 

set newStock = nothing 
set objRoot = nothing 
set objA1 = nothing 
set objA2 = nothing 
set objA3 = nothing 
set objA4 = nothing 
set objA5 = nothing 
set objA6 = nothing 
set objA7 = nothing 

end if 

if Request.Form("submit") = "删除" and Request.Form("remove")<>empty then 
set objCodeList = xml.getElementsByTagName("code") 
remove = split(Request.Form("remove")) 
for i=0 to ubound(remove) 
for j=0 to objCodeList.Length-1 
if objcodeList.item(j).text = remove(i) then 
xml.documentElement.removeChild(objcodeList.item(j).parentNode) 
end if 
next 
xml.save Server.MapPath("stocks.xml") 
next 
end if 

'xml.save Server.MapPath("stocks.xml") 

Response.Write FormatDateTime(now) 
%> 
<hr> 
<form action="" method="post"> 
<TABLE cellSpacing=1 cellPadding=1 width="100%" border=1> 
<TR> 
<TD>股票代码</TD> 
<TD>股票名称</TD> 
<TD>开盘价格</TD> 
<TD>当前价格</TD> 
<TD>成交量</TD> 
<TD>流通总数</TD> 
<TD>状态</TD> 
<TD>删除</TD> 
</TR> 
<% 
i = 1 
StockAmount = xml.getElementsByTagName("stock").length 
set StockList = xml.getElementsByTagName("stock") 
for i = 0 to StockAmount - 1 
set StockTemp = StockList.item(i) 
%> 
<TR> 
<TD> <%=StockTemp.childNodes.item(0).text%></TD> 
<TD> <%=StockTemp.childNodes.item(1).text%></TD> 
<TD> <%=StockTemp.childNodes.item(2).text%></TD> 
<TD> <%=StockTemp.childNodes.item(3).text%></TD> 
<TD> <%=StockTemp.childNodes.item(4).text%></TD> 
<TD> <%=StockTemp.childNodes.item(5).text%></TD> 
<TD> <%=StockTemp.childNodes.item(6).text%></TD> 
<TD><input type="checkbox" name="remove" value=<%=StockTemp.childNodes.item(0).text%>></TD> 
</TR> 
<% 
next 
set xml = nothing 
%> 
<TR> 
<TD><input type="text" name="scode"></TD> 
<TD><input type="text" name="sname"></TD> 
<TD><input type="text" name="openPrice" size="6"></TD> 
<TD><input type="text" name="curPrice" size="6"></TD> 
<TD><input type="text" name="tradeAmount"></TD> 
<TD><input type="text" name="TotalAmount"></TD> 
<TD><input type="text" name="status" size="6"></TD> 
<TD><input type="submit" name="submit" value="删除"></TD> 
</TR> 
</TABLE> 
<% 
%> 
<input type="submit" name="submit" value="增加股票"> 
</form> 
</body> 
</html>

来自: http://hi.baidu.com/yuyang0105/blog/item/82379d476713d32acefca3d8.html