asp中用過濾html代碼,但要保留p標記

Function replaceWithoutP(ContentStr)

Dim ClsTempLoseStr,regEx

ClsTempLoseStr = Cstr(ContentStr)

Set regEx = New RegExp

regEx.Pattern = "(<(\/){0,1}[^<>p]*>)|(<(\/){0,1}[^<>]+p[^<>]*>)"

regEx.IgnoreCase = True

regEx.Global = True

ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")

replaceWithoutP = ClsTempLoseStr

Set regEx = Nothing

End Function

兄弟妳可以試壹下

其中(<(\/){0,1}[^<>p]*>)|(<(\/){0,1}[^<>]+p[^<>]*>)的意思是：以<或者</開頭，內容不包含<和>和p,以>結尾；或者以<或者</開頭內容包含p但是p前面有別的字符p後面為任意字符,以>結尾

把這些字符串都替換掉就得到妳要的結果了