tree.asp

大型黄页系统,精美黄页flash演示,10m

<%
Dim Conn,connstr
ConnStr = "Provider = Sqloledb; User ID = sa; Password = sa; Initial Catalog = DX_HLJ; Data Source = (local);"

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.open connstr

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 "<Tree/>"
	Response.End
End If

set xmlDoc=CreateObject("Microsoft.XMLDOM")	'新建xmldom对象
xmlDoc.loadXML("<Tree TreeId=""MaterialClass_"&ParentCode&""" NodeXmlSrc=""Tree.asp?ParentCode="&ParentCode&"""/>")

If ParentCode = "00" Then
	code = "__"
else
	code = ParentCode & "__"
End If

Set root = xmlDoc.documentElement

set rs=server.createobject("ADODB.recordset") 
strSql="select MaterialClassID, MaterialClassCode, [Description] from MaterialClass where 	MaterialClassCode 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("MaterialClassCode")
   newElem.setAttribute "Title", rs("Description")
   if len(rs("MaterialClassCode"))<6 Then newElem.setAttribute "NodeXmlSrc", "Tree.asp?ParentCode=" & rs("MaterialClassCode")
   newElem.setAttribute "Href", rs("MaterialClassCode")
   newElem.setAttribute "MaterialClassCode", rs("MaterialClassCode")
rs.movenext
loop
End If
rs.close
set rs = nothing

response.write("<?xml version=""1.0"" encoding=""GB2312""?>"&xmlDoc.xml)


%>