中文XML论坛 - 专业的XML技术讨论区--显示贴子

以文本方式查看主题

-  中文XML论坛 - 专业的XML技术讨论区  (http://bbs.xml.org.cn/index.asp)
--  『 DOM/SAX/XPath 』  (http://bbs.xml.org.cn/list.asp?boardid=11)
----  关于XML DOM 条件判断的问题。。请高手解决。。。  (http://bbs.xml.org.cn/dispbbs.asp?boardid=11&rootid=&id=31920)

-- 作者：sbb6081
-- 发布时间：5/8/2006 5:55:00 PM

-- 关于XML DOM 条件判断的问题。。请高手解决。。。

下面是一段完整的显示XML的程序，
问题出在条件判断不起作用：（if strBigClassName = Cstr(strbigname) then
 Response.write "<A href='ShowNews1.asp?SmallClassName=" & strName & "' target='News'>" & strName & "</A> "
 end if）
。。把所有的元素都显示出来没有选折性的，如果要实现有选折的显示怎么解决？多谢高手赐教。。。

<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html;charset=GB2312">
</HEAD>
<BODY>
<%
Dim strbigname
set rs=Server.CreateObject("adodb.recordset")
sql="select * from BigClassName where name='文体新闻'"
rs.open sql,conn,1,3
strbigname = rs("name")
rs.close
set rs=nothing
conn.close
set conn=nothing
Dim objXMLDom, objNodesList, objNodes, objNode
Dim strID, strName, strXMLFile
strXMLFile = "catalog1.xml"
' 建立XML DOM文件
Set objXMLDom = Server.CreateObject("MSXML2.DOMDocument.4.0")
objXMLDom.async = false
' 加载XML文件
objXMLDom.load(Server.Mappath(strXMLFile))
' 检查错误
If objXMLDom.parseError.errorCode <> 0 Then
 ' 显示错误信息
 Response.Write "错误:" & objXMLDom.parseError.reason & " "
 Set objXMLDom = Nothing
 Response.End
End If
Set objNodesList = objXMLDom.documentElement
Response.Write " 新闻目录<HR>"
' 检查是否有子元素
If objNodesList.hasChildNodes() Then
For Each objNodes in objNodesList.childNodes
 ' 获取目录编号
 Set objNode = objNodesList.GetElementsByTagName("BigClassName")
strBigClassName = objNode.item(0).text
 Set objNode = objNodes.GetElementsByTagName("smallID")
 strID = objNode.item(0).text
 ' 获取目录名称
 Set objNode = objNodes.GetElementsByTagName("name")
 strName = objNode.item(0).text
 if strBigClassName = Cstr(strbigname) then
 Response.write "<A href='ShowNews1.asp?SmallClassName=" & strName & "' target='News'>" & strName & "</A> "
 end if
Next
End If
Set objXMLDom = Nothing
Set objNode = Nothing
Set objNodes = Nothing
Set objNodesList = Nothing
%>
</BODY>
</HTML>

--  作者：sbb6081
--  发布时间：5/8/2006 5:58:00 PM

--
哪位大虾帮帮忙啊。。。我的QQ：179164260。。。最好在QQ上联系我。。。谢谢了

W 3 C h i n a ( since 2003 ) 旗下站点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》

46.875ms