www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > admin/FCKeditor/editor/filemanager/browser/default/connectors/asp/util.asp
<!-- * QQ:23365210 --> <% 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 %>