帮帮忙，asp中如何去掉所有空格和回车符号

[phuai007]

代码如下：

zt_description=left(rs_makeview("zt_content"),100)'页面描述长度截取

这是从数据库取影片介绍的代码，取200个字符，目前没问题，但是如果这中间有空格或者回车的话，也会被一起取出来，如何把除了文字和标点符号以外的其他所有代码（空格，回车，p，br等）都清理掉，帮忙写下，谢谢

[phuai007]

呵呵，看来结贴结早了点，7楼的代码多了一个去掉换行符号，决定采用了，谢谢几位热心的帮助。

[cqq]

s=rs_makeview("zt_content")
s=replace(s,vbcrlf,"")
s=replace(s," "," ")
zt_description=left(s,100)

[不耐烦]

'===============================================================
'函数名：RemoveHTML
'作 用：清除HTML标签
'参 数：strHTML 内容
'返回值：过滤HTML标签后的内容
'===============================================================
function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)

'遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End function

[gavinluo]

'===============================================================
'函数名：RemoveHTML
'作 用：清除HTML标签
'参 数：strHTML 内容
'返回值：过滤HTML标签后的内容
'===============================================================
function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Glob…
[/Quote]

[phuai007]

谢谢楼上3位，不过1楼给的代码似乎更合我的需要一些。结贴给分。

[layers2323]

chr(13) 是一个回车 Chr(10) 是个换行符 chr(32) 是一个空格符
s=rs_makeview("zt_content")
s=replace(s,vbcrlf,chr(10))
s=replace(s,vbcrlf,chr(13))
s=replace(s,vbcrlf,chr(32))

[phuai007]

zt_description1=left(rs_makeview("zt_content"),100)'页面描述长度截取
zt_description=replace(replace(zt_description1,char(10),""),char(13),"")

这是我搜索后得来的代码，不知道效率怎样

[layers2323]

chr(13) 是一个回车 Chr(10) 是个换行符 chr(32) 是一个空格符
s=rs_makeview("zt_content")
s=replace(s,chr(10),"")
s=replace(s,chr(13),"")
s=replace(s,chr(32),"")

这论坛真是没人性，自己都不能修改自己的发言。