xml的数据搜索

[kevinping0712]

怎么样在一个xml文件中查询
例如：<?xml version="1.0" encoding="gb2312" ?>
<FishList>
<FishPrice>
<Id>001 </Id>
<FishStyle>青鱼 </FishStyle>
<Detail>条重≥2000 </Detail>
<Location>北京 </Location>
<Data>2004-4-15</Data>
<Price>10.1</Price>
<Unit>￥/kg</Unit>
</FishPrice>
<FishPrice>
<Id>002 </Id>
<FishStyle>青鱼 </FishStyle>
<Detail>条重≥2000 </Detail>
<Location>广州 </Location>
<Data>2003-10-6</Data>
<Price>10.3</Price>
<Unit>￥/kg</Unit>
</FishPrice>
要满足查询的字段有3个Fishstyle,Location,Data
而且data能不能实现段查询，比如2002－1－1到2004－5－1
最好用VBSCRIPT
希望有比较详细的写法
望各位大侠帮帮忙，小弟做毕业设计，急

[笨笨兔兔兔兔兔]

你用dom getelementsbytagname 这个自己看看有不懂的再问

[possible_Y]

如果xml文件比较小，用dom可以，但是如果xml特别大，建议使用sax方式，或者用xpath和xquery

[kevinping0712]

看了dom getelementsbytagname以后稍微有一点理解
但是查询的时候比如说是地点，我from表格接受的列表信息有多个值
请问如何写查询的代码
能不能给个示例

[笨笨兔兔兔兔兔]

class blogxmldom
dim blogdom,blogtitle,bloglink
Private Sub Class_Initialize
set blogdom=createobject("Microsoft.XMLDOM")
blogdom.async=false
blogdom.load "c:\bloginfo.xml"
end sub

function findxslt()
set blogchild=blogdom.getElementsByTagName("blogxsltname")
blogchildlen=blogchild.item(0).childNodes.length
for i=0 to blogchildlen-1
blogxsltsel=blogchild.item(0).childNodes(i).getAttribute("selected")
if blogxsltsel="yes" then
findxslt=blogchild.item(0).childNodes(i).text
exit for
end if
next
end function

function getblogname()
set blogchild=blogdom.getElementsByTagName("blogname")
getblogname=blogchild.item(0).text
end function

function findfolder()
set blogchild=blogdom.getElementsByTagName("blogfolder")
findfolder=blogchild.item(0).text
end function

function getpagenum()
set blogchild=blogdom.getElementsByTagName("blogpagenumshow")
num=blogchild.item(0).text
getpagenum=CInt(num)
end function

public sub getblogtitlelink(startb)
set blogchild=blogdom.getElementsByTagName("blogall")
blogtitled blogchild.item(0).childNodes(startb).getAttribute("title")
bloglinkd blogchild.item(0).childNodes(startb).getAttribute("link")
end sub

function blogsum()
set blogchild=blogdom.getElementsByTagName("blogall")
blogsum=blog.childNodes.length
end function

public property get blogtitled()
blogtitled=blogtitle
end property

public property let blogtitled(blogt)
blogtitle=blogt
end property

public property get bloglinkd()
bloglinkd=bloglink
end property

public property let bloglinkd(blogl)
bloglink=blogl
end property

Private Sub Class_Terminate
set blogdom=nothing
End Sub
end class