日期:2014-05-16 浏览次数:20332 次
Function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(</td><td>).*?(</td></tr>)"
str=re.replace(str, "$1$2")
nohtml=str
set re=nothing
End Function
response.write nohtml("</td><td>内容dfff内容</td></tr>")