去掉函数参数中的HTML标记代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】去掉函数参数中的HTML标记

作者: / 发布于2011/1/6/ 679

<div><font color="#008000">''***************************************************
''************函数功能：去掉函数参数中的HTML标记
''***************************************************
</font>Function stripHTML(strtext)
dim arysplit,i,j, strOutput

arysplit=split(strtext,"<")
if len(arysplit(0))>0 then j=1 else j=0
for i=j to ubound(arysplit)
if instr(arysplit(i),">") then
 arysplit(i)=mid(arysplit(i),instr(arysplit(i),">")+1)
else
 arysplit(i)="<" & arysplit(i)
end if
next
<div>strOutput = join(arysplit, "")
strOutput = mid(strOutput, 2-j)
strOutput = replace(strOutput,">",">")
strOutput = replace(strOutput,"<","<")</div>
<div>stripHTML = strOutput
End Function
</div>
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　HTML标记　

同语言下

可能有用的

贡献的其它代码Label