source: trunk/expressoMail1_2/js/fckeditor/editor/filemanager/browser/default/connectors/asp/basexml.asp @ 389

Revision 389, 1.7 KB checked in by niltonneto, 16 years ago (diff)

Ver Tickets no Trac #286 e #287.
Inclusão de template de assinatura padrão.
Assinatura também disponível em formato de texto rico.
Inclusão da biblioteca FCKEditor.

  • Property svn:executable set to *
Line 
1<!--
2 * FCKeditor - The text editor for internet
3 * Copyright (C) 2003-2006 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
21Sub 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"
31End Sub
32
33Sub 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) ) & """ />"
42End Sub
43
44Sub CreateXmlFooter()
45        Response.Write "</Connector>"
46End Sub
47
48Sub 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
57End Sub
58%>
Note: See TracBrowser for help on using the repository browser.