[Sommaire] [Imprimer]

   1  <!--
   2   * FCKeditor - The text editor for Internet - http://www.fckeditor.net
   3   * Copyright (C) 2003-2007 Frederico Caldeira Knabben
   4   * 
   5   * == BEGIN LICENSE ==
   6   * 
   7   * Licensed under the terms of any of the following licenses at your
   8   * choice:
   9   * 
  10   *  - GNU General Public License Version 2 or later (the "GPL")
  11   *    http://www.gnu.org/licenses/gpl.html
  12   * 
  13   *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
  14   *    http://www.gnu.org/licenses/lgpl.html
  15   * 
  16   *  - Mozilla Public License Version 1.1 or later (the "MPL")
  17   *    http://www.mozilla.org/MPL/MPL-1.1.html
  18   * 
  19   * == END LICENSE ==
  20   * 
  21   * File Name: basexml.asp
  22   *     This file include the functions that create the base XML output.
  23   * 
  24   * File Authors:
  25   *         Frederico Caldeira Knabben (www.fckeditor.net)
  26  -->
  27  <%
  28  
  29  Sub SetXmlHeaders()
  30      ' Cleans the response buffer.
  31      Response.Clear()
  32  
  33      ' Prevent the browser from caching the result.
  34      Response.CacheControl = "no-cache"
  35  
  36      ' Set the response format.
  37      Response.CharSet        = "UTF-8"
  38      Response.ContentType    = "text/xml"
  39  End Sub
  40  
  41  Sub CreateXmlHeader( command, resourceType, currentFolder )
  42      ' Create the XML document header.
  43      Response.Write "<?xml version=""1.0"" encoding=""utf-8"" ?>"
  44  
  45      ' Create the main "Connector" node.
  46      Response.Write "<Connector command=""" & command & """ resourceType=""" & resourceType & """>"
  47      
  48      ' Add the current folder node.
  49      Response.Write "<CurrentFolder path=""" & ConvertToXmlAttribute( currentFolder ) & """ url=""" & ConvertToXmlAttribute( GetUrlFromPath( resourceType, currentFolder) ) & """ />"
  50  End Sub
  51  
  52  Sub CreateXmlFooter()
  53      Response.Write "</Connector>"
  54  End Sub
  55  
  56  Sub SendError( number, text )
  57      SetXmlHeaders
  58      
  59      ' Create the XML document header.
  60      Response.Write "<?xml version=""1.0"" encoding=""utf-8"" ?>"
  61      
  62      Response.Write "<Connector><Error number=""" & number & """ text=""" & Server.HTMLEncode( text ) & """ /></Connector>"
  63      
  64      Response.End
  65  End Sub
  66  %>