国产探花免费观看_亚洲丰满少妇自慰呻吟_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
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 玛曲县| 南京市| 格尔木市| 贵港市| 丰都县| 麻城市| 镇平县| 梧州市| 平谷区| 隆回县| 甘谷县| 万年县| 玛多县| 武山县| 北碚区| 万山特区| 阿鲁科尔沁旗| 新龙县| 鲁甸县| 盐池县| 叙永县| 峨眉山市| 永川市| 阿尔山市| 汉阴县| 舒城县| 栖霞市| 渝北区| 县级市| 禄丰县| 岑巩县| 阿瓦提县| 铜梁县| 睢宁县| 日土县| 乐至县| 调兵山市| 辽宁省| 申扎县| 新田县| 绥中县|