ASP去掉字符串头尾连续回车和空格的Function

代码片段如下：

```vbscript

'去除字符串首尾连续的回车与空格的函数

Function TrimVBcrlf(ByVal str As String) As String

TrimVBcrlf = RemoveLeadingSpacesAndNewlines(str) '移除字符串开头的空格和换行符后，再移除字符串末尾的空格和换行符。

End Function

'去除字符串开头的连续的空格和回车符号函数定义

Function RemoveLeadingSpacesAndNewlines(ByVal str As String) As String

Dim pos As Integer, isBlankChar As Boolean

pos = 1

isBlankChar = True

While isBlankChar And pos <= Len(str) '循环检查字符串开头是否有连续的空格或回车符号。

If Mid(str, pos, 1) = " " Then pos = pos + 1 ElseIf Mid(str, pos, 2) = VBcrlf Then pos = pos + 2 Else isBlankChar = False End If '如果当前字符是空格或者回车符号，则移动位置；否则退出循环。

Wend

RemoveLeadingSpacesAndNewlines = Right(str, Len(str) - pos + 1) '返回去掉开头空格和回车符号后的字符串。

End Function

'去除字符串末尾连续的空格和回车符号的函数定义

Function RemoveTrailingSpacesAndNewlines(ByVal str As String) As String

Dim pos As Integer, isBlankChar As Boolean

pos = Len(str) '从字符串末尾开始检查。

isBlankChar = True