1
|
<%
|
2
|
' FCKeditor - The text editor for Internet - http://www.fckeditor.net
|
3
|
' Copyright (C) 2003-2009 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
|
' This file include generic functions used by the ASP Connector.
|
22
|
%>
|
23
|
<%
|
24
|
Function RemoveFromStart( sourceString, charToRemove )
|
25
|
Dim oRegex
|
26
|
Set oRegex = New RegExp
|
27
|
oRegex.Pattern = "^" & charToRemove & "+"
|
28
|
|
29
|
RemoveFromStart = oRegex.Replace( sourceString, "" )
|
30
|
End Function
|
31
|
|
32
|
Function RemoveFromEnd( sourceString, charToRemove )
|
33
|
Dim oRegex
|
34
|
Set oRegex = New RegExp
|
35
|
oRegex.Pattern = charToRemove & "+$"
|
36
|
|
37
|
RemoveFromEnd = oRegex.Replace( sourceString, "" )
|
38
|
End Function
|
39
|
|
40
|
Function ConvertToXmlAttribute( value )
|
41
|
ConvertToXmlAttribute = Replace( value, "&", "&" )
|
42
|
End Function
|
43
|
|
44
|
Function InArray( value, sourceArray )
|
45
|
Dim i
|
46
|
For i = 0 to UBound( sourceArray )
|
47
|
If sourceArray(i) = value Then
|
48
|
InArray = True
|
49
|
Exit Function
|
50
|
End If
|
51
|
Next
|
52
|
InArray = False
|
53
|
End Function
|
54
|
|
55
|
%>
|