[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: util.asp
  22   *     This file include generic functions used by the ASP Connector.
  23   * 
  24   * File Authors:
  25   *         Frederico Caldeira Knabben (www.fckeditor.net)
  26  -->
  27  <%
  28  Function RemoveFromStart( sourceString, charToRemove )
  29      Dim oRegex
  30      Set oRegex = New RegExp
  31      oRegex.Pattern = "^" & charToRemove & "+"
  32  
  33      RemoveFromStart = oRegex.Replace( sourceString, "" )
  34  End Function
  35  
  36  Function RemoveFromEnd( sourceString, charToRemove )
  37      Dim oRegex
  38      Set oRegex = New RegExp
  39      oRegex.Pattern = charToRemove & "+$"
  40  
  41      RemoveFromEnd = oRegex.Replace( sourceString, "" )
  42  End Function
  43  
  44  Function ConvertToXmlAttribute( value )
  45      ConvertToXmlAttribute = Replace( value, "&", "&amp;" )
  46  End Function
  47  
  48  Function InArray( value, sourceArray )
  49      Dim i
  50      For i = 0 to UBound( sourceArray )
  51          If sourceArray(i) = value Then
  52              InArray = True
  53              Exit Function
  54          End If
  55      Next
  56      InArray = False
  57  End Function
  58  
  59  %>