您现在的位置：雨哲在线 >> 文章教程 >> Web开发 >> Asp编程 >> 查看文章内容

ASP操作XML文件的方法和操作类文件

【字体：小大】热 ★★★ 作者：未知文章来源：本站原创点击数：1035 更新时间：2008-01-03 阅读点数：0点

载入中

对于小数据量，xml文件在检索更新上于ACCESS有很多优势。

我曾经测试过不用数据库，把网站的会员信息，商品数据信息，交易信息，网站定制信息全部存放在三个xml文件中，运行结果十分正常，感觉上比数据库快多了，不过没有作测试，不能确定。（http://stone.yesku.net）

下面说一下创建，查询，修改等对xml操作的主要方法

'创建DOM对象
set objDom=server.CreateObject("MicroSoft.XMLDom")

'取得xml数据
'方法1 取得xml文件的xml数据
objDom.load("c:\test.xml")
'方法2 取得xml数据串的数据
objDom.loadxml("<people><man name="sd"/></people>")

'创建一个节点对象
Set Newnode=objDom.CreateElement("people")
'给这个节点赴值
Newnode.Text="人"
' 给这个节点添加属性
Set NewAttribute=objDom.CreateNode("attribute","name","")
NewAttribute.Text= "张三"
Newnode.SetAttributeNode NewAttribute
'给这个节点添加子节点
Set NewnodeChild=objDom.CreateElement("address")
Newnode.appendChild NewnodeChild
'保存这个节点对象
objDom.appendChild Newnode
objDom.save("c:\test.xml")

'查找一个节点对象
set objtofind=objdom.documentElement.SelectSingleNode("//people/man")
'取出这个节点对象的节点名，节点值，某个属性值，和全部的xml
nodename=objtofind.nodename
nodevalue=objtofind.text
objtofind.GetAttributeNode("name").NodeValue '属性名为name的属性值

'取出一个属性节点对象
set objattrtofind=objdom.documentElement.SelectSingleNode("//people/man"). GetAttributeNode("name")
'取出这个节点的属性名，属性值
nodeattrname=objattrtofind.nodename
nodeattrvalue=objattrtofind.nodevalue

'删除一个节点对象
set objnode=objdom.documentElement.SelectSingleNode("//people/man") '要删除的节点
set objparentnode=objdom.documentElement.SelectSingleNode("//people") '要删除的节点的父节点
objparentnode.removeChild objnode

'取出一个节点的字节点集合
set objnodes=objdom.documentElement.SelectSingleNode("//people/man").ChildNodes
遍历这个集合
方法1
for each element in objnodes
response.write element.nodename 字节点名
response.write element.text 字节点值
next
方法2
domlength=objnodes.length
for i = 0 to domlength-1
response.write objnodes.childnodes(i).nodename 字节点名
response.write objnodes.childnodes(i).text 字节点值
next

'取出一个节点的属性集合
set objnodes=objdom.documentElement.SelectSingleNode("//people/man").GetAttributeNode("name").attributes
遍历这个集合
for each element in objnodes
response.write element.nodename 属性名
response.write element.nodevalue 属性值
next

等能够熟练的运用xmldom对象来操作xml文件了，就可以享受xmlhttp对象来实现asp下的许多功能了。

下面是asp对xml文件的操作类和实现文件:

以下是引用片段：

<% 
Const FilePath = "2.xml"
Dim Action:Action = Trim(Request("Action"))
Dim ID
Dim PlugName:PlugName = Trim(Request("PlugName"))
Dim PlugUrl:PlugUrl = Trim(Request("PlugUrl"))
Dim PlugAdminUrl:PlugAdminUrl = Trim(Request("PlugAdminUrl"))
Select Case Action
 Case "Add"
  Call Add
 Case "SaveAdd"
  Call SaveAdd
 Case Else
  Call Main
End Select
Sub Main()
 set tt=new ASPXML
 tt.Path=server.MapPath(FilePath)'第一步先选择文件路径
 tt.Data="Data" '第二步选择数据库
 tt.open '打开
 tt.SelectTable("Plug") '选择表
 'tt.SelectItem "PlugName","<a class="channel_keylink" href="http://www.yuzhe.name">雨哲</a>" '查询条件 如果读出所有 这里不要
 'tt.delectTable() '删除这个表
 'tt.SelectItem "ID","1" '这里是查询ID为1的记录
 'tt.Xml_Item=tt.Xml_Count 'tt.Xml_Item 是第几条记录 tt.Xml_Count是记录总数
 If tt.Xml_Bof or tt.Xml_Eof Then
  Response.Write "尚无数据"
  Response.End
 End If
 Response.Write "<table>"
 Response.Write "  <tr>"
 Response.Write "  </tr>"
 do while not(tt.Xml_Bof or tt.Xml_Eof)
  Response.Write "  <tr>"
  Response.Write "    <td>" & tt.read("ID") & "</td>"
  Response.Write "    <td>" & tt.read("PlugName") & "</td>"
  Response.Write "    <td>" & tt.read("PlugUrl") & "</td>"
  Response.Write "    <td>" & tt.read("PlugAdminUrl") & "</td>"
  Response.Write "  </tr>"
  tt.MoveNext()
 loop
 Response.Write "</table>"
 tt.close '关闭
End Sub
Sub Add()
 response.write "<form name='form1' method='post' action='?Action=SaveAdd'>"
 response.write "  插件名称：<input type='text' name='PlugName' size='30' ><br>"
 response.write "  插件地址：<input type='text' name='PlugUrl' size='40'><br>"
 response.write "  管理地址：<input type='text' name='PlugAdminUrl' size='40'><br>"
 response.write "  <input type='submit' value='提交'> <input type='reset' value='重置'>"
 response.write "  </form>"
End Sub
Sub SaveAdd()
 set tt=new ASPXML
 tt.Path=server.MapPath(FilePath)'第一步先选择文件路径
 tt.Data="Data" '第二步选择数据库
 tt.open '打开
 tt.SelectTable("Plug") '选择表
 tt.addnew ' 添加记录
 tt.add "PlugName",PlugName '写入值
 tt.add "PlugUrl",PlugUrl '写入值
 tt.add "PlugAdminUrl",PlugAdminUrl '写入值
 tt.update '保存记录
 tt.close '关闭
End Sub
Class ASPXML
Private objDom,objnodes,objTable,Xml_Array,XMLnodes,ID,brstr,NewXMLnode,NewXMLcooky
Public Path,Data,Xml_Eof,Xml_Bof,Xml_Item,Xml_Count
'打开文档
Public Sub Open()
 set objDom=server.CreateObject("Microsoft.XMLDOM")
 objDom.load Path
 set objnodes=objdom.documentElement.SelectSingleNode("//"+Data+"").ChildNodes
 set XMLnodes=objdom.documentElement.SelectSingleNode("//"+Data+"")
End Sub
'选择表
Public Function SelectTable(Table)
 objTable=Table
 Xml_Count=-1
 Xml_Eof=false
 Xml_Bof=false
 'Xml_Item=2
 If Xml_Item="" then
  Xml_Item=0
 End If
 GETCount()
 ChkCount()
End Function
Public Sub MoveNext() '下移一行
 Xml_Item=Xml_Item+1
 ChkCount()
End Sub
Public Sub MoveLast() '上移一行
 Xml_Item=Xml_Item-1
 ChkCount()
End Sub
Public Function Read(key) '读出值
 Read=objnodes(int(Xml_Array(Xml_Item))).selectSingleNode(key).text
End Function
Public Function Write(key,viold) '写入
 objnodes(int(Xml_Array(Xml_Item))).selectSingleNode(key).text=viold
End Function
Public Function SelectItem(key,viold) '查询字段
 Xml_AllTableWords=""
 For i=0 To Xml_Count
  xml_viold=objnodes(int(Xml_Array(i))).selectSingleNode(key).text
  If xml_viold=viold Then
   Xml_AllTableWords=Xml_AllTableWords+"|"+Xml_Array(i)
  End If
 Next
 StrPtr = instr(Xml_AllTableWords, "|")
 Xml_AllTableWords = mid(Xml_AllTableWords, StrPtr+1)
 Xml_Array=split(Xml_AllTableWords , "|") 
 Xml_Count=UBound(Xml_Array)
 ChkCount()
End Function
Public Sub AddNew() '新加记录
 NewXMLnode=""
 If XMLnodes.hasChildNodes Then
  ID = XMLnodes.lastchild.firstchild.text+1
 Else
  ID=1 '如是没有字子节点则是第一次ID号设为1
 End If
 Brstr=chr(13)&chr(10)&chr(9)
 NewXMLcooky=Brstr&"<"&objTable&">"&Brstr &"<ID>"&ID&"</ID>"&Brstr
End Sub
Public Function Add(key,viold) '添加数值
 NewXMLcooky=NewXMLcooky&"<"&key&">"&viold&"</"&key&">"&Brstr
 NewXMLnode=NewXMLcooky&"</"&objTable&">"&chr(13)
End Function
Public Function delect(key,viold) '删除记录
 for i=0 to Xml_Count
  if ISkeyOk(key,viold) then
   XMLnodes.removechild(objDom.selectsinglenode("//"&objTable&"["&key&"='"&viold&"']"))
  end if
 next
 objDom.save(Path)
End Function
Public Function DelectTable() '删除表
 for i=0 to Xml_Count
  XMLnodes.removechild(objDom.selectsinglenode("//"&objTable))
 next
 objDom.save(Path)
End Function
Public Sub update() '更新修改表
 if NewXMLnode<>"" then
  set objXML2=Server.CreateObject("Microsoft.XMLDOM")
  objXML2.loadXML(NewXMLnode) '建立一个新XML对像
  set rootNewNode=objXML2.documentElement '把XML版片段读入内存中
  XMLnodes.appendChild(rootNewNode) '获得objXML2的根节点
 end if
 objDom.Save(Path)
End Sub
Public Sub CLOSE() '关闭
 set objnodes=nothing
 set objDom=nothing
 'Response.Write(objTable)
End Sub
Private Function GETCount()
 Xml_AllTableWords=""
 Xml_AllCount=-1
 for each element in objnodes
  Xml_AllCount=Xml_AllCount+1
  If element.nodename =objTable then
   Xml_AllTableWords=Xml_AllTableWords+"|"+cstr(Xml_AllCount)
  end if
 next
 StrPtr = instr(Xml_AllTableWords, "|")
 Xml_AllTableWords = mid(Xml_AllTableWords, StrPtr+1)
 Xml_Array=split(Xml_AllTableWords , "|") 
 Xml_Count=UBound(Xml_Array)
End Function
Private Function ChkCount()
 if Xml_Count<0 then
  Xml_Bof=true
 end if
 if Xml_Item>Xml_Count then
  Xml_Eof=true
 end if
End Function
Private Function ISkeyOk(key,viold)
 ISkeyOk=false
 if not(XMLnodes.hasChildNodes) then
  exit Function
 end if
 for each timent in objnodes
 If timent.nodename =objTable then
  set pobjnodes=timent.ChildNodes
  for each yyment in pobjnodes
   if yyment.nodename=key and yyment.text=viold then
    ISkeyOk=true
    exit Function
   end if
  next
 end if
 next
End Function
End Class
%>

[雨8哲[Yz81.Com]提示：①Ctrl+A 全部选择]

给文章部分内容增加权限[类似论坛购买贴][11-09]

留言本仿论坛模板及部分功能[11-08]

雨哲自定义表单系统 For SiteWeaver[11-07]

在线支付模板管理[11-07]

全站搜索 For SiteWeaver 通用[11-07]

企业会员展示系统[11-07]

本文短地址：http://www.yz81.com/?ArticleID=2970 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

上一篇文章：从URL中获取关键词
下一篇文章： asp中access到sql server导入升级后要做的工作

[更多] 网友看法

数据载入中，请稍后……

发表评论

昵　称:		邮　箱:
评　分:	1分 2分 3分 4分 5分
内　容: （0/5000）插入链接
验证码:
雨哲提示：Alt+S快速发表

用户信息中心

与本文章相关内容

>> [雨缘博客]雨哲自定义表单系统 For Si　[日期：2008-11-07 03:03:03]
>> [文章教程]ASP读取XML数据文件的方法　[日期：2008-08-14 00:52:26]
>> [文章教程]ASP中常见数学函数Abs Int 　[日期：2008-07-07 00:07:53]
>> [文章教程]asp关键字函数运算附　[日期：2008-07-04 16:23:37]
>> [文章教程]ASP模板引擎代码　[日期：2008-06-29 06:50:05]
>> [文章教程]asp验证码bmp图片的生成原理　[日期：2008-04-14 01:17:11]
>> [文章教程]Access内置函数　[日期：2008-04-10 01:14:49]
>> [文章教程]使用ASP加密算法加密你的数　[日期：2008-04-07 09:43:56]
>> [文章教程]使用ASP加密算法加密你的数　[日期：2008-04-07 09:41:43]
>> [文章教程]用Asp读取数据库中数据到数　[日期：2008-03-25 14:47:45]

热门排行TOP10

推荐排行TOP10

[雨哲在线]最新公告

ASP操作XML文件的方法和操作类文件