ASP + XML + JavaScript 实现动态无限级联动菜单
2005/8/27 14:00:13
阅读全文(2816) | 回复(0) | 编辑 | 精华
我做某个项目时，有需求的是做一个动态的无限级的联动菜单。由于本人比较懒于是上网找找有关的代码，但很多都没有满足需求，其中有一编文章是用JavaScript对XML文件操作来实现无限级联动菜单的，我们可结合ASP来完成对数据库值的读取，然后写入XML文件，再用JavaScript读出来并且控制它的联动。这儿的关键是把数据库内的N层数据类读出来然后正确写入XML文件中：我的数据库表结构是这样的:'tbl_Class 列名 数据类型 长度 说明ClassID int 4 类IDModuleID int 4 模块IDGroupID int 2 标识一个组ClassName nvarchar 50 类别名称ParentID int 2 连接到组(0表示是父类) '####################################我的ASP代码如下####################################'我把连接数据库的代码忽略。 '函数名字：OpenXml(FileName) '入口参数: filename 需要连接或打开的xml文件名 '返回值 ：XmlDoc就是一个成功装载XML文档的对象了。 ' 有错误则打印错误信息strError '------------------------------------------------ function OpenXml(filename) dim strSourceFile ,XmlDoc,strErrorstrSourceFile = filenameSet XmlDoc = Server.CreateObject("Microsoft.XMLDOM") '创建XMLDOM实例XmlDoc.async = false XmlDoc.load(strSourceFile) OpenXml=XmlDoc.parseerror.errorcode if XmlDoc.parseerror.errorcode<>0 then strError="<h2>error"&XmlDoc.parseerror.errorcode&"</h2>" strError=strError&XmlDoc.parseerror.reason&"<br>" strError=strError&XmlDoc.parseerror.url&"<br>" strError=strError&XmlDoc.parseerror.line&"<br>" strError=strError&XmlDoc.parseerror.filepos&"<br>" strError=strError&XmlDoc.parseerror.srcText&"<br>" response.write strError '输出错误else set OpenXml=XmlDoc '返回实例end if end function '------------------------------------------------ '函数名字：CloseXml() '参数: XmlDoc XML组件实例'------------------------------------------------ function CloseXml(XmlDoc) if IsObject(XmlDoc) then set XmlDoc=nothing end if end function '------------------------------------------------ '函数名字：SelectXmlNode'参数:XmlDoc XML组件实例' e 元素的名字 '返回元素实例'------------------------------------------------ function SelectXmlNode(XmlDoc,e) dim n set n=XmlDoc.selectSingleNode("//" & e ) set selectXmlNode= n end function Dim n,np,MaxGroup,root,xmlDoc,nt,filename,s,ss,TorFfilename=server.mappath("demo.xml")set xmlDoc=openXML(filename)'打开XMLRemoveAllNodes xmlDoc,"Root"'把Root和它下面的子项清除，这样可以多次方便读写set root= xmlDoc.createElement("Root")xmlDoc.appendChild root'创建一个顶层元素sql="select Max(GroupID) from tbl_Class " '读出最大的层次set rs=cn.execute(sql)if isnull(rs(0)) then MaxGroup=0 else MaxGroup=rs(0) '如果为null 表示没有数据s="":ss=""set nt=xmldoc.createElement("item") nt.setAttribute "text", "请选择" root.appendChild nt '创建一个元素for i=1 to MaxGroup '开始循环 sql="select * from tbl_Class where GroupID=" & i '由底层向顶层读取 set rs=cn.execute(sql) TorF=False '为了每一个层上都创建一个“请选择”的空取。 do while rs.eof =false '开始读取下层的数据 Set n = xmlDoc.createElement("item" & rs("ClassID")) '创建一个命名为item + ID号的标记元素 n.setAttribute "text",rs("ClassName")'把它的属性“text”设置为数据库表内的 ClassName n.setAttribute "value",rs("ClassID")'把它的属性“value”设置为数据库表内的 ClassID if rs("ParentID")>0 then '是有上层数据的 set np=selectXmlNode(xmlDoc,"item" & rs("ParentID")) '把它的上层数据元素先读出保存在np if TorF=false then '如果TorF为False值时 set nt=xmldoc.createElement("item") '创建一个元素保存在nt nt.setAttribute "text", "请选择"'把它的text属性设置为“请选择” np.appendChild nt 'np把它加为子元素 end if TorF=true '设置true np.appendChild n 'np 把n加为子元素 else root.appendChild n '如果是第一层数据就把它加入为root下的一个子元素 end if rs.movenext '下一条指针 loop ss=ss & "<SELECT id=Select" & i & " width=1 ></SELECT></span>" '每有一层就创建一个 <select> s=s & ",'Select" & i & "'" '把每个<select>的id 保存在变量s，它的格式为：id1,id2,id3,id4 nextxmlDoc.save filename '正式保存Xml文件CloseXml xmlDoc '关闭Xml文件 response.write ss '直接把<select>输出到文档 s=mid(s,2) //在HTM文件内调用xmlselect.js<SCRIPT language=JavaScript src="xmlselect.js"></SCRIPT><SCRIPT language=JavaScript><!--//** power by fasonfunction init() { var Sel = [<%=s%>]; attachSelect("demo.xml", Sel,["论坛导航"]);};//--></SCRIPT>init(); //#########我把它的JS代码贴出来，作者叫：蒲佛信，http://fason.nease.net/samples/xmlselect/这儿有示例和代码。 //-----------------------------xmlselect.js文件开始------------------------------- //-----------------------------------------------------/// NichName :fason// Autho :Forbes Pu(蒲佛信)// Email :fason_pfx@hotmail.com// HomePage :http://fason.nease.net// Blog :http://blog.mvpcn.net/fason/// http://blog.csdn.net/fason///// function :attachSelect(sXMLSrc, aSel[, sStore])// param1 :sXMLSrc(URL of XML data source)// param2 :aSel(array of SELECT controls's ID)// param3 :array of default value when display//-----------------------------------------------------/ function attachSelect(sXMLSrc, aSel, sStore) { var oXML = CreateXmlDocument(); var oDocument = null; var store = sStore ? sStore : []; var Sel = new Array(); for (var i=0; i<aSel.length; i++) Sel[i] = document.getElementById(aSel[i]); if (!oXML){ throw new Error('Not support!\nplease install a XML parser');return; } oXML.onreadystatechange = function () { if (oXML.readyState == 4) { attachXML(); } }; oXML.load(sXMLSrc); function CreateXmlDocument() { if (document.implementation && document.implementation.createDocument) { var doc = document.implementation.createDocument("", "", null); if (doc.readyState == null) { doc.readyState = 1; doc.addEventListener("load", function () { doc.readyState = 4; if (typeof doc.onreadystatechange == "function") doc.onreadystatechange(); }, false); } return doc; } else if (window.ActiveXObject) { var prefix = ["MSXML3","MSXML2","MSXML","Microsoft"]; for (var i=0;i<prefix.length;i++) { try { var doc = new ActiveXObject(prefix[i] + ".DomDocument"); doc.setProperty("SelectionLanguage","XPath"); return doc; } catch (e) {} } } return null; }; function attachXML() { oDocument = oXML.documentElement; if (!oDocument) { throw new Error('No XML data!'); return; } for (var i=0;i<aSel.length-1;i++){ addEvent(Sel[i], "onchange", function(x) { return function () { doChange(x); } }(i+1)); } doChange(0); }; function selectXMLNode(x) { var sPath = "/*"; var oDoc = oDocument; for (var i=0;i<x;i++) sPath += "/*[" + (Sel[i].selectedIndex+1) + "]"; if (typeof(oDoc.selectSingleNode)!='undefined') return oDoc.selectSingleNode(sPath); else { var doc=oDoc.nodeType==9?oDoc:oDoc.ownerDocument; var res = doc.createNSResolver(oDoc.nodeType==9? oDoc.documentElement:oDoc); return doc.evaluate(sPath,oDoc, res, 9, null).singleNodeValue; } }; function addEvent(el, sHandler, fnc) { if (el.attachEvent) { el.attachEvent(sHandler, fnc); } else if (el.addEventListener) { el.addEventListener(sHandler.replace(/on/i, ''), fnc, false); } else { el[sHandler] = fnc; } }; function doChange(n) { var el = selectXMLNode(n); var nodes = el ? el.childNodes :[]; var s = Sel[n]; var f = 0; if (nodes.length>0) { with (s){ length = 0; for (var i = 0,j = 0;i<nodes.length;i++) { if (nodes[i].nodeType!=1)continue; var t = nodes[i].getAttribute("text"); var v = nodes[i].getAttribute("value") ? nodes [i].getAttribute("value") : t; if (v == store[n]) f = j; options[j++] = new Option(t, v); } options[f].selected = true; } if (++n<Sel.length) doChange(n); } else { for (var i=n; i<Sel.length; i++) { with (Sel[i]) { length = 0; options[0] = new Option('--'); options[0].selected = true; } } } }; }; //-----------------------------xmlselect.js文件结束------------------------------- 由于Xml的操作简便直接，使用起来得心应手。 文章作者：Jockey 来源：Jockey的专栏
Posted by Qr on 2005/8/27 14:00:13
| 发表评论： |