【www.bbyears.com--Dom教程】
asp多级联动菜单
<%
Dim xmlDoc, ParentCode, code
"Dim root As IXMLDOMElement
"Dim newElem As IXMLDOMElement
response.ContentType = "text/xml" "输出格式为xml
ParentCode = Request("ParentCode")
If ParentCode = "" Then
Response.Write ""
Response.End
End If
set xmlDoc=CreateObject("Microsoft.XMLDOM") "新建xmldom对象
xmlDoc.loadXML("")
If ParentCode = "00" Then
code = "__"
else
code = ParentCode & "__"
End If
Set root = xmlDoc.documentElement
set rs=server.createobject("ADODB.recordset")
strSql="select y_id, y_code, [y_title] from m_style where y_code like ""&code&"""
rs.Open strSQL,conn,1,1
If not rs.eof Then
do while not rs.eof
Set newElem = xmlDoc.createElement("TreeNode")
root.appendChild newElem
newElem.setAttribute "NodeId", "MaterialClass_" & rs("y_code")
newElem.setAttribute "Title", rs("y_title")
if len(rs("y_code"))<6 Then newElem.setAttribute "NodeXmlSrc", "Tree.asp?ParentCode=" & rs("y_code")
newElem.setAttribute "Href", rs("y_code")
newElem.setAttribute "MaterialClassCode", rs("y_code")
rs.movenext
loop
End If
rs.close
set rs = nothing
response.write(""&xmlDoc.xml)
%>
这里主要是先用asp 生成xml 文档再用 Microsoft.XMLDOM读取xml 给js进行分级,另外再提一点就可以直接在js代码中asp 代码让它生成js代码,这也是一种多级联动菜单 的处理办法