1.XML
===========================================================================
<?xml version="1.0" encoding="gb2312"?>
<data>
<tomcat>
<ID>1</ID>
<username>张辉</username>
<password>123456</password>
</tomcat>
</data>
==========================================================================
aspXML.asp
==========================================================================
<%
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
%>