forked from science-ation/science-ation
56 lines
1.4 KiB
Plaintext
56 lines
1.4 KiB
Plaintext
<%
|
|
' FCKeditor - The text editor for Internet - http://www.fckeditor.net
|
|
' Copyright (C) 2003-2008 Frederico Caldeira Knabben
|
|
'
|
|
' == BEGIN LICENSE ==
|
|
'
|
|
' Licensed under the terms of any of the following licenses at your
|
|
' choice:
|
|
'
|
|
' - GNU General Public License Version 2 or later (the "GPL")
|
|
' http://www.gnu.org/licenses/gpl.html
|
|
'
|
|
' - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
|
|
' http://www.gnu.org/licenses/lgpl.html
|
|
'
|
|
' - Mozilla Public License Version 1.1 or later (the "MPL")
|
|
' http://www.mozilla.org/MPL/MPL-1.1.html
|
|
'
|
|
' == END LICENSE ==
|
|
'
|
|
' This file include generic functions used by the ASP Connector.
|
|
%>
|
|
<%
|
|
Function RemoveFromStart( sourceString, charToRemove )
|
|
Dim oRegex
|
|
Set oRegex = New RegExp
|
|
oRegex.Pattern = "^" & charToRemove & "+"
|
|
|
|
RemoveFromStart = oRegex.Replace( sourceString, "" )
|
|
End Function
|
|
|
|
Function RemoveFromEnd( sourceString, charToRemove )
|
|
Dim oRegex
|
|
Set oRegex = New RegExp
|
|
oRegex.Pattern = charToRemove & "+$"
|
|
|
|
RemoveFromEnd = oRegex.Replace( sourceString, "" )
|
|
End Function
|
|
|
|
Function ConvertToXmlAttribute( value )
|
|
ConvertToXmlAttribute = Replace( value, "&", "&" )
|
|
End Function
|
|
|
|
Function InArray( value, sourceArray )
|
|
Dim i
|
|
For i = 0 to UBound( sourceArray )
|
|
If sourceArray(i) = value Then
|
|
InArray = True
|
|
Exit Function
|
|
End If
|
|
Next
|
|
InArray = False
|
|
End Function
|
|
|
|
%>
|