您现在的位置是：网站首页> 编程资料编程资料
如何编写一个过滤掉HTML代码的函数？_编程10000问_
2023-05-25
171人已围观
简介 如何编写一个过滤掉HTML代码的函数？_编程10000问_
如何编写一个过滤掉HTML代码的函数？
<%Function Filterhtml(strToFilter)
Dim strTemp
strTemp = strToFilter
While Instr(1,strTemp,"<") AND Instr(1, strTemp, ">")
strTemp = Left(strTemp, Instr(1, strTemp, "<")-1) & Right(strTemp, Len(strTemp)-Instr(1,strTemp, ">"))
WEnd
Filterhtml = strTemp
End Function
%>
