Asp+Access+Sql 开发 -爬坡者

<?xml version="1.0"?>
<records>
<record>
<name>caca</name>
<qq>154222225</qq>
<email>root@goog.com</email>
</record>
<records> 

不错，讲的比较全面。

Option Explicit

Response.Buffer=True  



'建立与XML数据库的连接

Dim objDOM,cNode,Maxlbid ,db,i,score

set objDOM=Server.CreateObject("Microsoft.XMLDOM")

objDOM.async=false

db=Server.MapPath("test.xml")

objDOM.load(db)

set cNode = objDOM.documentElement.selectSingleNode("/UserTest")



'--------------------------------------

'载入XML文件后,以后是实现各个功能,已经添加了注释,用到哪个功能的时候,找找相关语句即可

'-----------------------------------------





'取得XML文件里的记录的数目可以用cNode.childNodes.length

'Maxlbid = cNode.childNodes.length - 1



'取得XML文件里的根元素的属性可以用cNode.getAttribute("相关属性")

'Response.write cNode.getAttribute("subject")



'取得XML文件子结点的某个属性

'score = cNode.childNodes.item(Maxlbid-i).getAttribute("score")



'取得XML文件子结点的个数

'Response.Write cNode.childNodes.item(0).childNodes.length



'搜索子结点

Dim SearchChildNote

set SearchChildNote = objDOM.selectnodes("//Test")

'---------------------------------------------------------------- 
'程序简介: 完成asp语言对XML文档中指定节点文本的增加、删除、修改、查看 
'入口参数: 无 
'出口参数: 无 
'------------------------------------------------ 
'函数名字：ConnectXml() 
'入口参数: filename 需要连接或打开的xml文件名 
'出口参数: 无 
'返回值 ：ConnectXml=0，XMLMorntekDocument就是一个成功装载XML文档的对象了。 
' ConnectXml<>0,则打印错误信息strError 
'------------------------------------------------