![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
1个回答
展开全部
给你一个我采用的例子,你自己想过滤什么标签随便加就行了。
如下:
<%
'过滤html标签函数
Function Delhtml(Con,Code)
Do while instr(lcase(con),"<"&Code)
ps = instr(lcase(Con),"<"&Code)
pe = instr(ps,Con,">")+1
p = mid(con,ps,pe-ps)
con = replace(Con,p,"")
Loop
Con = replace(Con,"</"&lcase(Code)&">","")
Con = replace(Con,"</"&ucase(Code)&">","")
Delhtml = Con
End Function
'以下是调用 想过滤什么直接往后加 Str 变派祥量余肢是网页字符串
Str = Delhtml(Str,"img") '过滤图片
Str = Delhtml(Str,"竖羡世br") '过滤换行
……
%>
如下:
<%
'过滤html标签函数
Function Delhtml(Con,Code)
Do while instr(lcase(con),"<"&Code)
ps = instr(lcase(Con),"<"&Code)
pe = instr(ps,Con,">")+1
p = mid(con,ps,pe-ps)
con = replace(Con,p,"")
Loop
Con = replace(Con,"</"&lcase(Code)&">","")
Con = replace(Con,"</"&ucase(Code)&">","")
Delhtml = Con
End Function
'以下是调用 想过滤什么直接往后加 Str 变派祥量余肢是网页字符串
Str = Delhtml(Str,"img") '过滤图片
Str = Delhtml(Str,"竖羡世br") '过滤换行
……
%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询