国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 編程設計 > 正文

如何編寫一個過濾掉HTML代碼的函數？

2020-06-19 13:52:35
字體：大 中 小
來源：轉載
供稿：網友

如何編寫一個過濾掉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
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 镇江市| 林西县| 读书| 石棉县| 缙云县| 贵南县| 伊川县| 盐源县| 浦江县| 高邑县| 秀山| 鸡泽县| 临泽县| 阳谷县| 滁州市| 临夏县| 华蓥市| 南江县| 灵丘县| 康定县| 宁城县| 乳山市| 丰镇市| 芦溪县| 三都| 南开区| 木兰县| 连州市| 揭阳市| 嘉鱼县| 遂宁市| 安康市| 石屏县| 潮安县| 黄山市| 裕民县| 长汀县| 海晏县| 阿尔山市| 河津市| 闽侯县|