strTemp = Left(strTemp, Instr(1, st">

如何用ASP将一大段文字中的HTML的标识去掉

80酷酷网    80kuku.com

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












分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: