class= " lineNumbers "
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
|
class=
функция DisplaySiteMap " class= " id= " codeSnippet745466 Public () как шнур
Тусклый tmpString как новое StringBuilder
Тусклое objDB как новое ZipCM.Database
Тусклое objSet как новое ZipCM.Settings
Тусклое strXml как шнур = ""
objSet.SiteSettings ()
С objDB
.ConnString = Common.ConnString
.CmdType = 1
. Вопрос = «отборные a.pageID, a.pageTitle, a.pageLink,» & _
«(Отборное b.pageID, b.pageTitle, b.pageLink от MainSitePages b где b.parentID = a.pageID для курса XML («SubPage "), типа) как SubPages» & _
«От MainSitePages» & _
«Где a.siteID = @SiteID» & _
«Для курса XML («страницы "), корня («страниц ")»
.ParamNames = новый шнур () {«@SiteID»}
. Значения = новый шнур () {objSet.SiteID}
.ExecuteDataReader ()
Если .TotalRecords > 0 после этого
strXml = .ReturnValues (0, 0) (1)
Еще
strXml = ""
Закончитесь если
Закончитесь с
objSet = ничего
objDB = ничего
Попытка
Тусклое objXml как новое XmlDocument
Тусклое objNode как XmlNode
Тусклое nodeCount как длиной = 0
objXml.LoadXml (strXml)
objNode = objXml.SelectSingleNode («//Pages»)
nodeCount = objNode.ChildNodes.Count
objNode = ничего
objXml = ничего
tmpString.Append («» & nodeCount &» Pages")
Задвижка ex как исключение
tmpString.Append (ex. Сообщение & «» & strXml & « ")
Попытка конца
Если tmpString.Length > 0 после этого
Возвращенные tmpString.ToString ()
Еще
Возвращенное ""
Закончитесь если
tmpString = ничего
Функция конца
|
