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

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

　　function trimVBcrlf(str)

　　trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))

　　end function

　　'去掉字符串开头的连续的回车和空格

　　function ltrimVBcrlf(str)

　　dim pos,isBlankChar

　　pos=1

　　isBlankChar=true

　　while isBlankChar

　　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

　　ltrimVBcrlf=right(str,len(str)-pos+1)

　　end function

　　'去掉字符串末尾的连续的回车和空格

　　function rtrimVBcrlf(str)

　　dim pos,isBlankChar

　　pos=len(str)

　　isBlankChar=true

　　while isBlankChar and pos>=2

　　if mid(str,pos,1)=" " then

　　pos=pos-1

　　elseif mid(str,pos-1,2)=VBcrlf then

　　pos=pos-2

　　else

　　isBlankChar=false

　　end if

　　wend

　　rtrimVBcrlf=rtrim(left(str,pos))

　　end function