如何用ASP将一大段文字中的HTML的标识去掉
2000-11-05 10:13:56 来源:WEB开发网核心提示:<%Function FilterHTML(strToFilter)Dim strTempstrTemp = strToFilterWhile Instr(1,strTemp,"<") AND Instr(1, strTemp, ">")strTemp = Le
<%
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
%>
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
%>
赞助商链接