欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

如何編寫一個過濾掉HTML代碼的函數(shù)?

 更新時間:2006年11月16日 00:00:00   作者:  

如何編寫一個過濾掉HTML代碼的函數(shù)?

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

相關(guān)文章

最新評論