下面是一段完整的显示XML的程序，
问题出在条件判断不起作用：（if strBigClassName = Cstr(strbigname) then
Response.write "<A href='ShowNews1.asp?SmallClassName=" & strName & "' target='News'>" & strName & "</A><BR>"
end if）
。。把所有的元素都显示出来没有选折性的，如果要实现有选折的显示怎么解决？多谢高手赐教。。。
<!--#include file="adminconn.inc"-->
<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 & "<BR>"
Set objXMLDom = Nothing
Response.End
End If
Set objNodesList = objXMLDom.documentElement
Response.Write "<BR><B>新闻目录</B><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><BR>"
end if
Next
End If
Set objXMLDom = Nothing
Set objNode = Nothing
Set objNodes = Nothing
Set objNodesList = Nothing
%>
</BODY>
</HTML>
[返回] W3CHINA.ORG讨论区 - 语义网·描述逻辑·本体·RDF·OWL →
XML.ORG.CN讨论区 - XML技术 → 『 DOM/SAX/XPath 』 → 关于XML DOM 条件判断的问题。。请高手解决。。。
(订阅本版)
2006/5/8 17:55:00
新浪微博
关于XML DOM 条件判断的问题。。请高手解决。。。
