Public Funktion DisplaySiteMap () als Schnur
Schwaches tmpString als neues StringBuilder
Schwaches objDB als neues ZipCM.Database
Schwaches objSet als neues ZipCM.Settings
Schwaches strXml als Schnur = ""
objSet.SiteSettings ()
Mit objDB
.ConnString = Common.ConnString
.CmdType = 1
. Frage = „auserwähltes a.pageID, a.pageTitle, a.pageLink,“ u. _
„(Auserwähltes b.pageID, b.pageTitle, b.pageLink von MainSitePages b, wo b.parentID = a.pageID für XML Weg („SubPage "), Art) als SubPages“ u. _
„Von MainSitePages“ u. vom _
„, wo a.siteID = @SiteID“ u. _
„Für XML Weg („Seite "), Wurzel („Seiten ")“
.ParamNames = neue Schnur () {„@SiteID“}
. Werte = neue Schnur () {objSet.SiteID}
.ExecuteDataReader ()
Wenn .TotalRecords > 0 dann
strXml = .ReturnValues (0, 0) (1)
Sonst
strXml = ""
Beenden wenn
Mit beenden
objSet = nichts
objDB = nichts
Versuch
Schwaches objXml als neues XmlDocument
Schwaches objNode als XmlNode
Schwaches nodeCount als lang = 0
objXml.LoadXml (strXml)
objNode = objXml.SelectSingleNode („//Pages“)
nodeCount = objNode.ChildNodes.Count
objNode = nichts
objXml = nichts
tmpString.Append („“ u. nodeCount u.“ Pages")
Fang ex als Ausnahme
tmpString.Append (ex. Mitteilung u. „“ u. strXml u. „ ")
Enden-Versuch
Wenn tmpString.Length > 0 dann
RückholtmpString.ToString ()
Sonst
Rückhol""
Beenden wenn
tmpString = nichts
Enden-Funktion
|