数据库取值形成xml实现tree

最新推荐文章于 2025-09-11 20:53:34 发布

转载最新推荐文章于 2025-09-11 20:53:34 发布 · 89 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/iwenr/blog/222986

文章标签：

#数据库 #ui

本文介绍了一个使用 ASP.NET 的 TreeView 控件进行数据绑定的实例。该实例通过三层页面实现：TreeViewDataSet.aspx 用于展示树形结构，Categories.aspx 负责从数据库获取类别信息并返回 XML 结构，Products.aspx 则根据选中的类别加载具体产品。这些页面展示了如何利用 SQL 查询结合 XML 技术来构建动态树形菜单。

为什么80%的码农都做不了架构师？>>>

Create three .aspx files

TreeViewDataSet.aspx

<%@ import Namespace="Microsoft.Web.UI.WebControls" %>
<%@ Register TagPrefix="IE" Namespace="Microsoft.Web.UI.WebControls" Assembly="Microsoft.Web.UI.WebControls" %>
<html>
<head>
<title>
TreeViewDataSet.aspx
</title>
</head>
<body>
<form runat="Server">
<IE:TreeView
 AutoPostBack="True"
 TreeNodeSrc="Categories.aspx"
 Runat="Server"/>
</form>
</body>
</html>

Categories.aspx

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<Script runat="Server">
sub page_load
 Dim mycon as SqlConnection
 Dim cmdCategories As SqlCommand
 Dim dsCategories As DataSet
 Dim strQuery As String
 mycon=New Sqlconnection("Server=localhost;UID=sa;PWD=secret;Database=Northwind")
 strQuery="select categoryname as Text,'products.aspx?catid='
 +LTRIM(STR(CategoryID))" & _
 "As TreeNodeSrc from Categories As TreeNode for xml auto, XMLDATA"
 cmdCategories=new SqlCommand(strQuery,mycon)
 dsCategories=New DataSet
 dsCategories.ReadXML(cmdCategories.ExecuteXmlReader(),XmlReadMode.Fragment)
 dsCategories.DataSetName="TREENODES"
 dsCategories.WriteXml(Response.OutputStream)
end sub
</script>

Products.aspx

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<Script runat="Server">
sub page_load
 Dim mycon as SqlConnection
 Dim cmdProducts As SqlCommand
 Dim dsProducts As DataSet
 Dim strQuery As String
 mycon=New Sqlconnection("Server=localhost;UID=sa;PWD=secret;Database=Northwind")
 strQuery="select Productname as Text from products As TreeNode" & _
 " where CategoryID=@categoryID for xml auto, XMLDATA "
 cmdproducts=new SqlCommand(strQuery,mycon)
 cmdproducts.Parameters.Add(New SqlParameter("@categoryID",Request.QueryString("catID")))
 mycon.open()
 dsproducts=New DataSet
 dsproducts.ReadXML(cmdproducts.ExecuteXmlReader(),XmlReadMode.Fragment)
 dsproducts.DataSetName="TREENODES"
 dsproducts.WriteXml(Response.OutputStream)
 mycon.close()
end sub
</script>

转载于:https://my.oschina.net/iwenr/blog/222986