Public Funkcja DisplaySiteMap () Sznurek
Ciemnawy tmpString Jako Nowy StringBuilder
Ciemnawy objDB Jako Nowy ZipCM.Database
Ciemnawy objSet Jako Nowy ZipCM.Settings
Ciemnawy strXml Jako Sznurek = ""
objSet.SiteSettings ()
Z objDB
.ConnString = Common.ConnString
.CmdType = (1)
. Zapytanie = "Wybrany a.pageID, a.pageTitle, a.pageLink," & _
"(Wybrany b.pageID, b.pageTitle, b.pageLink Od MainSitePages B Dokąd b.parentID = a.pageID Dla XML Ścieżka ("SubPage "), Typ) Jako SubPages" & _
"Od MainSitePages" & _
"Dokąd a.siteID = @SiteID" & _
"Dla XML Ścieżka ("Strona "), Korzeń ("Strona ")"
.ParamNames = Nowy Sznurek () {"@SiteID"}
. Wartość = Nowy Sznurek () {objSet.SiteID}
.ExecuteDataReader ()
Jeżeli .TotalRecords > (0) Wtedy
strXml = .ReturnValues ((0), (0)) (1)
Inny
strXml = ""
Kończyć Jeżeli
Kończyć Z
objSet = Nic
objDB = Nic
Próba
Ciemnawy objXml Jako Nowy XmlDocument
Ciemnawy objNode Jako XmlNode
Ciemnawy nodeCount Długo = (0)
objXml.LoadXml (strXml)
objNode = objXml.SelectSingleNode ("//Pages")
nodeCount = objNode.ChildNodes.Count
objNode = Nic
objXml = Nic
tmpString.Append ("" & nodeCount &" Pages")
Chwyt wyjątek Jako Wyjątek
tmpString.Append (tmpString.Append. Wiadomość & "" & strXml & " ")
Końcówka Próba
Jeżeli tmpString.Length > (0) Wtedy
Powrotny tmpString.ToString ()
Inny
Powrotny ""
Kończyć Jeżeli
tmpString = Nic
Końcówka Funkcja
|