明辉手游网中心:是一个免费提供流行视频软件教程、在线学习分享的学习平台!

HTML代码过滤函数

[摘要]<%Function FilterHTML(strToFilter) Dim strTemp strTemp = strToFilter While Instr(1,strTemp,"<") AND Instr(1, strTemp, ">&q...

<%
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
%>