|
|
<script>
var m_oXMLDoc = new ActiveXObject("Microsoft.XMLDOM");
//--------------cid为父级ID
var m_sBaseSrc = "Tree.asp?cid=";
//---------------id 为所属类型-----
var m_sBaseSrc1 = "&id=";
var m_post=3;
function BindSelect( strXMLSrc , objSelectName, defaultVal)
{
m_oXMLDoc.async = true;
m_oXMLDoc.onreadystatechange = Function( "fnLoadComplete("" + objSelectName + "", "" + defaultVal + "");" );
if (objSelectName=="jz_3"){ strXMLSrc=strXMLSrc+m_sBaseSrc1+0;}
if (objSelectName=="jz_25"){ strXMLSrc=strXMLSrc+m_sBaseSrc1+1;m_post=2;}
if (objSelectName=="jz_9"){ strXMLSrc=strXMLSrc+m_sBaseSrc1+2;}
if (objSelectName=="jz_10"){ strXMLSrc=strXMLSrc+m_sBaseSrc1+3;}
m_oXMLDoc.load( strXMLSrc );
数据挖掘实验室
}
function fnLoadComplete(objSelectName, defaultVal)
{
var objSelect = document.all[objSelectName];
var aryXMLNodes;
var node;
if (objSelect == null)
return;
try
{
var iReadyState = m_oXMLDoc.readyState;
}
catch(e)
{
return;
}
if( iReadyState != 4 ) return;
if( m_oXMLDoc != null && m_oXMLDoc.xml != "" )
{
objSelect.length = 0;
aryXMLNodes = m_oXMLDoc.documentElement.selectNodes("Tree_0");
objSelect.options[0] = new Option("==请选择==");
for (var i=0; i < aryXMLNodes.length; i++)
{
node = aryXMLNodes[i];
objSelect.options[i+1] = new Option(node.getAttribute("Title"),node.getAttribute("cId"));
//-------------------请注意这里,初始选择
if (node.getAttribute("cId")==1||node.getAttribute("cId")==2||node.getAttribute("cId")==3||node.getAttribute("cId")==4)
{
objSelect.options[i+1].selected=true
数据挖掘工具
}
}
if (defaultVal != null && defaultVal != "" && objSelect.length > 1)
{
SetSelectedValue(objSelect, defaultVal)
}
if(objSelect.ChildSelectName != null&&m_post>0)
{
m_post=m_post-1;
objSelect.onchange = Function( "var val = document.all.jz_3.value;BindSelect(m_sBaseSrc+val, ""+objSelect.ChildSelectName+"", ""+defaultVal+"");if(val!=")document.all.MaterialClassCode.value=m_post;" );
objSelect.fireEvent("onchange");
}
else
{
objSelect.onchange = Function( "var val = document.all.jz_3.value;if(val!=")document.all.MaterialClassCode.value=m_post;" );
}
}
}
function InitSelect(defaultVal)
{
//document.all.MaterialClassCode.value = "";
BindSelect( m_sBaseSrc + "0", "jz_3", defaultVal);
//document.write( m_sBaseSrc + "0"+"&cid="+0, "jz_3", defaultVal);
//BindSelect( m_sBaseSrc + "1", "jz_9", defaultVal);
数据挖掘研究院
}
function Equality(val1,val2)
{
if (val1.length < val2.length || val2 == "")
return false;
return (val1.substr(0,val2.length) == val2)
}
function SetSelectedValue(oSel,val)
{
if (val == null)
return;
for(var i=0; i<oSel.length; i++)
{
if (Equality(val, oSel.options[i].value))
{
oSel.selectedIndex = i;
if(oSel.ChildSelectName == null)
oSel.fireEvent("onchange");
break;
}
}
}
window.onload = function(){InitSelect();}
</script>
//------------------------------------tree.asp---------
<!--#include file="../inc/asp/all.asp"-->
<%
tree=3
Dim xmlDoc, tmp(3), root,rows_A(1),i,newElem
"Dim root As IXMLDOMElement
"Dim newElem As IXMLDOMElement
response.ContentType = "text/xml" "输出格式为xml
tmp(0) = Request("cid")
tmp(1) = Request("id")
If tmp(0) =empty or tmp(1) =empty Then
Response.Write "<Tree/>"
数据挖掘工具
Response.End
End If
set xmlDoc=server.CreateObject("Microsoft.XMLDOM") "新建xmldom对象
xmlDoc.loadXML("<Tree cId="""&tmp(0)&""" Src=""Tree.asp?cid="&tmp(0)&"""/>")
set root = xmlDoc.documentElement
"----------请注意，这里是用的我定义的类，打开的数据库
call jz.conn_00(0,tree)
call jz.c_r_s(0,true,true)
jz.sql(0)="select jz_0,jz_1,jz_2,jz_4 from Jz_Template where jz_2="&tmp(0)&" and jz_4="&tmp(1)
call jz.c_r_o(0,0,1)
If not jz.rs(0).eof Then
rows_A(1)=jz.rs(0).GetRows
rows_A(0)=ubound(rows_A(1),2)
for i=0 to rows_A(0)
Set newElem = xmlDoc.createElement("Tree_0")
root.appendChild newElem
newElem.setAttribute "cId",rows_A(1)(0,i)
newElem.setAttribute "Title", rows_A(1)(1,i)
next
end if
call jz.c_r_e(0,tree,tree)
Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&xmlDoc.xml
%>
|
