[Sommaire] [Imprimer]

   1  <!--
   2   * FCKeditor - The text editor for internet
   3   * Copyright (C) 2003-2005 Frederico Caldeira Knabben
   4   * 
   5   * Licensed under the terms of the GNU Lesser General Public License:
   6   *         http://www.opensource.org/licenses/lgpl-license.php
   7   * 
   8   * For further information visit:
   9   *         http://www.fckeditor.net/
  10   * 
  11   * "Support Open Source software. What about a donation today?"
  12   * 
  13   * File Name: basexml.asp
  14   *     This file include the functions that create the base XML output.
  15   * 
  16   * File Authors:
  17   *         Frederico Caldeira Knabben (fredck@fckeditor.net)
  18  -->
  19  <%
  20  
  21  Sub SetXmlHeaders()
  22      ' Cleans the response buffer.
  23      Response.Clear()
  24  
  25      ' Prevent the browser from caching the result.
  26      Response.CacheControl = "no-cache"
  27  
  28      ' Set the response format.
  29      Response.CharSet        = "UTF-8"
  30      Response.ContentType    = "text/xml"
  31  End Sub
  32  
  33  Sub CreateXmlHeader( command, resourceType, currentFolder )
  34      ' Create the XML document header.
  35      Response.Write "<?xml version=""1.0"" encoding=""utf-8"" ?>"
  36  
  37      ' Create the main "Connector" node.
  38      Response.Write "<Connector command=""" & command & """ resourceType=""" & resourceType & """>"
  39      
  40      ' Add the current folder node.
  41      Response.Write "<CurrentFolder path=""" & ConvertToXmlAttribute( currentFolder ) & """ url=""" & ConvertToXmlAttribute( GetUrlFromPath( resourceType, currentFolder) ) & """ />"
  42  End Sub
  43  
  44  Sub CreateXmlFooter()
  45      Response.Write "</Connector>"
  46  End Sub
  47  
  48  Sub SendError( number, text )
  49      SetXmlHeaders
  50      
  51      ' Create the XML document header.
  52      Response.Write "<?xml version=""1.0"" encoding=""utf-8"" ?>"
  53      
  54      Response.Write "<Connector><Error number=""" & number & """ text=""" & Server.HTMLEncode( text ) & """ /></Connector>"
  55      
  56      Response.End
  57  End Sub
  58  %>