home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 November / PCWorld_2003-11_cd.bin / Novinky / Interval / podklady / ruzicka / aspx / rss / rssreader / rssreader.ascx < prev    next >
Encoding:
ASP Control Directive  |  2003-09-05  |  1.5 KB  |  60 lines
  1. ∩╗┐<%@ Control Language="C#" EnableViewState="False" Debug="False" %>
  2. <%@ OutputCache Duration="7200" Shared="True" VaryByControl="XmlParser1" %>
  3. <%@ Import Namespace="System.Net" %>
  4. <%@ Import Namespace="System.Xml" %>
  5. <script language="C#" runat="server">
  6. private string rssurl,rssxsl;
  7.  
  8. public string RssUrl
  9. {
  10.   set { rssurl = value; }
  11. }
  12.  
  13. public string RssXsl
  14. {
  15.   set { rssxsl = value; }
  16. }
  17.  
  18. XmlDocument getXML(string sourceURL)
  19. {
  20.   try
  21.   {
  22.     WebRequest myRequest = WebRequest.Create(sourceURL);
  23.     WebResponse myResponse = myRequest.GetResponse();
  24.     XmlTextReader myReader = new XmlTextReader(myResponse.GetResponseStream());
  25.     XmlDocument doc = new XmlDocument();
  26.     doc.Load(myReader);
  27.     myResponse.Close();
  28.     myReader.Close();
  29.     return doc;
  30.   }
  31.   catch(WebException e)
  32.   {
  33.     return null;
  34.   }
  35.   catch(Exception e)
  36.   {
  37.     return null;
  38.   }
  39. }
  40.  
  41. void Page_Init(object sender, System.EventArgs e)
  42. {
  43.   if ((rssurl != null) && (rssxsl != null))
  44.     if ((rssurl != String.Empty) && (rssxsl != String.Empty))
  45.       if ((XmlParser1.Document = getXML(rssurl))!=null)
  46.         try
  47.         {
  48.           XmlParser1.TransformSource=rssxsl;
  49.           XmlParser1.Visible = true;
  50.           LblError.Visible = false;
  51.         }
  52.         catch (Exception ex)
  53.         {
  54.           LblError.Visible = true;
  55.         }
  56. }
  57. </script>
  58. <asp:Xml Id="XmlParser1" Visible="false" RunAt="server" />
  59. <asp:Label Id="LblError" Text="Seznam ─ìl├ínk┼» nelze na─ì├¡st..." RunAt="server" />
  60.