 |
建站必读 |
 |
|
|
|
| |
| 当前位置：首页 -> 建站必读 -> ASP技术 |
|
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
%>
|
| |
|
| |
本站关键词： |
|
|
|
|
|
