求一ASP过滤数据库的正则

来源：百度知道 编辑：UC知道 时间：2024/05/22 03:12:43
公司让改个论坛，需要用到帖子中的视频
但是帖子和视频是同一个字段
用什么办法可以把除了
<object ........></object>
<embed..........></embed>
其他的标签全过滤掉？
还得把特子内容过滤掉
我在网上找的这个函数不能过滤文字
可以了
谢谢

<%

function getimgs(str)
dim strv
strv=""
getimgs=""
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<object.+?>.*</object>|<embed.+?>.*</embed>"
set kk=objRegExp.Execute(str)
For Each Match in kk
if strv="" then
strv=Match.Value
else
strv=strv&"|"&Match.Value
end if
next
getimgs=strv
end function
response.write getimgs("中国<object ........><PARAM NAME='SelectionEnd' VALUE='0'></object>ssffsd<embed ^^^></embed>")

%>

详细的和我聊