util.asp
资源名称:MEIMS.rar [点击查看]
上传用户:ah_jiwei
上传日期:2022-07-24
资源大小:54044k
文件大小:1k
源码类别:
数据库编程
开发平台:
Visual C++
- <%
- ' FCKeditor - The text editor for Internet - http://www.fckeditor.net
- ' Copyright (C) 2003-2007 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
- %>