日期:2014-05-17 浏览次数:21003 次
data = vbcrlf&vbcrlf&vbcrlf&".............................内容............"&vbcrlf&vbcrlf&vbcrlf
Response.Write trims(data)
Function trims(s)
Dim r
Set r = New RegExp
r.IgnoreCase = True
r.Global = True
r.Pattern = "^\s+"
s = r.Replace(s, "")
r.Pattern = "\s+$"
s = r.Replace(s, "")
trims = s
End Function