当前文件路径：DNN/Library/WebControls/FeedBrowser.vb 
1
'
2' DotNetNuke?- http://www.dotnetnuke.com
3' Copyright (c) 2002-2008
4' by DotNetNuke Corporation
5'
6' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated
7' documentation files (the "Software"), to deal in the Software without restriction, including without limitation
8' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and
9' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
10'
11' The above copyright notice and this permission notice shall be included in all copies or substantial portions
12' of the Software.
13'
14' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
15' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
16' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
17' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
18' DEALINGS IN THE SOFTWARE.
19'
20
21Imports System
22Imports System.Collections.Generic
23Imports System.ComponentModel
24Imports System.Text
25Imports System.Web
26Imports System.Web.UI
27Imports System.Web.UI.WebControls
28Imports System.IO
29Imports System.Xml
30
31Imports DotNetNuke.Services.FileSystem
32Imports DotNetNuke.Services.Syndication
33Imports DotNetNuke.Services.Exceptions
34Imports DotNetNuke.Framework
35Imports DotNetNuke.Common
36
37
Namespace DotNetNukeNamespace DotNetNuke.UI.WebControls
38
39 <DefaultProperty("RssProxyUrl"), ToolboxData("<{0}:FeedBrowser runat=server></{0}:FeedBrowser>")> _
40
Public Class FeedBrowserClass FeedBrowser
41 Inherits WebControlBase
42
43Private Members#Region "Private Members"
44 Private _defaultTemplate As String = ""
45 Private _rssProxyUrl As String = ""
46 Private _opmlUrl As String = ""
47 Private _opmlFile As String = ""
48 Private _opmlText As String = ""
49 Private _allowHtmlDescription As Boolean = True
50
#End Region
51
52Public Properties#Region "Public Properties"
53
54 Property DefaultTemplate()Property DefaultTemplate() As String
55 Get
56 Return _defaultTemplate
57 End Get
58 Set(ByVal value As String)
59 _defaultTemplate = value
60 End Set
61 End Property
62
63
64 Property RssProxyUrl()Property RssProxyUrl() As String
65 Get
66 Return _rssProxyUrl
67 End Get
68 Set(ByVal value As String)
69 _rssProxyUrl = value
70 End Set
71 End Property
72
73
74 Property AllowHtmlDescription()Property AllowHtmlDescription() As Boolean
75 Get
76 Return _allowHtmlDescription
77 End Get
78 Set(ByVal value As Boolean)
79 _allowHtmlDescription = value
80 End Set
81 End Property
82
83
84 Property OpmlUrl()Property OpmlUrl() As String
85 Get
86 Return _opmlUrl
87 End Get
88 Set(ByVal value As String)
89 _opmlUrl = value
90 End Set
91 End Property
92
93 Property OpmlFile()Property OpmlFile() As String
94 Get
95 Return _opmlFile
96 End Get
97 Set(ByVal value As String)
98 _opmlFile = value
99 End Set
100 End Property
101
102 Property OpmlText()Property OpmlText() As String
103 Get
104 Return _opmlText
105 End Get
106 Set(ByVal value As String)
107 _opmlText = value
108 End Set
109 End Property
110
111#End Region
112
113 Public Overrides ReadOnly Property HtmlOutput()Property HtmlOutput() As String
114 Get
115 Dim opmlFeed As Opml = New Opml()
116 Dim elementIdPrefix As String = Me.ClientID
117 Dim instanceVarName As String = elementIdPrefix + "_feedBrowser"
118
119 Try
120 If ((OpmlUrl = "") And (OpmlFile = "") And (OpmlText = "")) Then
121 opmlFeed = GetDefaultOpmlFeed()
122 Else
123 If (OpmlText <> "") Then
124 Dim opmlDoc As New XmlDocument()
125 opmlDoc.LoadXml("<?xml version=""1.0"" encoding=""utf-8""?><opml version=""2.0""><head /><body>" + OpmlText + "</body></opml>")
126 opmlFeed = Opml.LoadFromXml(opmlDoc)
127 ElseIf (OpmlUrl <> "") Then
128 opmlFeed = Opml.LoadFromUrl(New Uri(OpmlUrl))
129 Else
130 opmlFeed = Opml.LoadFromFile(OpmlFile)
131 End If
132 End If
133 Catch exc As Exception
134 ProcessModuleLoadException(Me, exc)
135 opmlFeed = GetDefaultOpmlFeed()
136 End Try
137
138 Dim script As New StringBuilder()
139 Dim output As New StringBuilder()
140
141 Dim tabInstanceVarName As String = instanceVarName + "_tabs"
142 script.Append("var " + tabInstanceVarName + " = new DotNetNuke.UI.WebControls.TabStrip.Strip(""" + tabInstanceVarName + """);")
143 script.Append("var " + instanceVarName + " = new DotNetNuke.UI.WebControls.FeedBrowser.Browser(""" + instanceVarName + """," + tabInstanceVarName + ");")
144 script.Append(tabInstanceVarName + ".setResourcesFolderUrl(""" + ResourcesFolderUrl + """);")
145 script.Append(instanceVarName + ".setResourcesFolderUrl(""" + ResourcesFolderUrl + """);")
146 If (StyleSheetUrl <> "") Then
147 script.Append(tabInstanceVarName + ".setStyleSheetUrl(""" + StyleSheetUrl + """);")
148 script.Append(instanceVarName + ".setStyleSheetUrl(""" + StyleSheetUrl + """);")
149 End If
150
151 script.Append(instanceVarName + ".setElementIdPrefix(""" + elementIdPrefix + """);")
152 If (Theme <> "") Then
153 script.Append(instanceVarName + ".setTheme(""" + Theme + """);")
154 End If
155
156 If (RssProxyUrl <> "") Then
157 script.Append(instanceVarName + ".setRssProxyUrl(""" + RssProxyUrl + """);")
158 End If
159
160 If (DefaultTemplate <> "") Then
161 script.Append(instanceVarName + ".setDefaultTemplate(""" + DefaultTemplate + """);")
162 End If
163
164 script.Append(instanceVarName + ".setAllowHtmlDescription(")
165 If (AllowHtmlDescription) Then
166 script.Append("true")
167 Else
168 script.Append("false")
169 End If
170 script.Append(");")
171
172
173 Dim renderScript As String = GetRenderingScript(opmlFeed.Outlines)
174 Dim includeFallbackScript As Boolean = False
175
176 ' Is there any OPML structure to render?
177 If (renderScript = "") Then
178 includeFallbackScript = True
179 script.Append(instanceVarName + ".setTabs(defaultFeedBrowser());")
180 Else
181 ' Javascript function that renders the OPML structure
182 script.Append("function customFeedBrowser() ")
183 script.Append("{")
184 script.Append(" var tabs = [];")
185 script.Append(" with (DotNetNuke.UI.WebControls.FeedBrowser) ")
186 script.Append(" {")
187 script.Append(renderScript)
188 script.Append(" }")
189 script.Append(" return(tabs);")
190 script.Append("} ")
191 script.Append(instanceVarName + ".setTabs(customFeedBrowser());")
192 End If
193
194 script.Append(instanceVarName + ".render();")
195
196 output.Append("<script type=""text/javascript"">var $dnnHostUrl = '" + Globals.ResolveUrl("~/") + "';</script>")
197 output.Append("<script type=""text/javascript"" src=""" + Globals.ResolveUrl("~/Resources/Shared/scripts/init.js") + """></script>")
198 output.Append("<script type=""text/javascript"" src=""" + Globals.ResolveUrl("~/Resources/Shared/scripts/DotNetNukeAjaxShared.js") + """></script>")
199 output.Append("<script type=""text/javascript"" src=""" + Globals.ResolveUrl("~/Resources/TabStrip/scripts/tabstrip.js") + """></script>")
200 output.Append("<script type=""text/javascript"" src=""" + Globals.ResolveUrl("~/Resources/FeedBrowser/scripts/feedbrowser.js") + """></script>")
201 output.Append("<script type=""text/javascript"" src=""" + Globals.ResolveUrl("~/Resources/FeedBrowser/scripts/templates.js") + """></script>")
202
203 If (includeFallbackScript) Then
204 output.Append("<script type=""text/javascript"" src=""" + Globals.ResolveUrl("~/Resources/FeedBrowser/scripts/fallback.js") + """></script>")
205 End If
206 output.Append("<script type=""text/javascript"">" + script.ToString() + "</script>")
207
208 Return (output.ToString())
209 End Get
210 End Property
211
212
213Private Methods#Region "Private Methods"
214
215 Private Function GetDefaultOpmlFeed()Function GetDefaultOpmlFeed() As Opml
216
217 Dim opmlFeed As Opml = New Opml()
218 Dim fileName As String = "SolutionsExplorer.opml.config"
219 Dim filePath As String = ApplicationMapPath + "\" + fileName
220
221 If Not File.Exists(filePath) Then
222 'Copy from \Config
223 If File.Exists(ApplicationMapPath + glbConfigFolder + fileName) Then
224 File.Copy(ApplicationMapPath + glbConfigFolder + fileName, filePath, True)
225 End If
226 End If
227
228 If File.Exists(filePath) Then
229 opmlFeed = Opml.LoadFromFile(filePath)
230 End If
231
232 Return opmlFeed
233 End Function
234
235 Private Function GetRenderingScript()Function GetRenderingScript(ByVal _outlines As OpmlOutlines) As String
236
237 Dim script As String = ""
238
239 ' First fetch any linked OPML files
240 ' Only one level of link fetching is supported so
241 ' no recursion
242 Dim expandedOutlines As New OpmlOutlines
243 For Each item As OpmlOutline In _outlines
244 If (item.Type = "link") Then
245 Dim linkedFeed As Opml = Opml.LoadFromUrl(item.XmlUrl)
246 If (item.Category.StartsWith("Tab")) Then
247 expandedOutlines.Add(item)
248 Try
249 For Each linkedOutline As OpmlOutline In linkedFeed.Outlines
250 item.Outlines.Add(linkedOutline)
251 Next
252 Catch exc As Exception
253 ProcessModuleLoadException(Me, exc)
254 End Try
255 Else
256 Try
257 For Each linkedOutline As OpmlOutline In linkedFeed.Outlines
258 expandedOutlines.Add(linkedOutline)
259 Next
260 Catch exc As Exception
261 ProcessModuleLoadException(Me, exc)
262 End Try
263 End If
264 Else
265 expandedOutlines.Add(item)
266 End If
267 Next
268
269 script = GetTabsScript(expandedOutlines)
270
271 Return script
272 End Function
273
274 Private Function GetTabsScript()Function GetTabsScript(ByVal _outlines As OpmlOutlines) As String
275
276 Dim js As New StringBuilder("")
277 Dim tabCounter As Integer = -1
278 For Each item As OpmlOutline In _outlines
279 If (item.Category.StartsWith("Tab")) Then
280 Try
281 tabCounter = tabCounter + 1
282 Dim tabVarName As String = "tab" + tabCounter.ToString()
283
284 ' Create a call to the "addTab" method
285 ' addTab accepts one parameter -- a TabInfo object
286 ' Here the TabInfo object is dynamically created
287 ' with the parameters Label, Url and Template
288 js.Append("var " + tabVarName + " = new TabInfo('" + item.Text + "',")
289
290 If (item.Type = "none") Then
291 js.Append("''")
292 Else
293 js.Append("'" + item.XmlUrl.AbsoluteUri + "'")
294 End If
295
296 ' Template detection
297 ' The category field indicates if the outline node is a tab, section or category
298 ' If the field value includes a / character, then portion of the value to the right of /
299 ' contains the name of the template that should be used for that tab/section/category
300 ' and its children
301 If (item.Category.IndexOf("/") > 0) Then
302 js.Append(",'" + item.Category.Substring(item.Category.IndexOf("/") + 1) + "'")
303 End If
304
305 js.Append(");")
306
307
