繁體中文当前位置: 首页 > 图文教程 > 网络编程 > 正则表达式 > 去除内容中的html
- 正则表达式
- 左右若干数字验证的正则表达式
- 表单验证常用正则(强烈推荐大家收藏下)
- ASP 正则表达式的应用使用说明
- 常见的数字验证正则表达式整理
- 表单 数字字符验证正则
- 移除HTML标签的正则表达式
- 匹配价格的正则表达式
- js 验证 常用正则表达式集锦
- windows与linux 路径正则写法
- 正则表达式 传智播客学习
- JS 正则表达式中小括号的应用
- JS 正则表达式的位置匹配
- JavaScript 正则表达式之RegExp属性、方法及应用分析
- [原创]javascript 手机号码正则表达式验证函数
- ip138中各种客户端验证js代码
- Javascript 字符串字节长度计算函数代码与效率分析（for VS 正则）
- php中常用的正则表达式的介绍及应用实例代码
- ASP 正则表达式常用的几种方法(execute、test、replace)
- 正则表达式中的反向预搜索(上)
- 正则表达式中的反向预搜索(下)
正则表达式 中的 去除内容中的html
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 50 ::
收藏到网摘: n/a
无
<%
Option Explicit
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
strOutput = join(arysplit, "")
strOutput = mid(strOutput, 2-j)
strOutput = replace(strOutput,">",">")
strOutput = replace(strOutput,"<","<")
stripHTML = strOutput
End Function
%>
<form method="post" id=form1 name=form1>
<b>Enter an HTML String:</b><br>
<textarea name="txtHTML" cols="50" rows="8" wrap="virtual"><%=Request("txtHTML")%></textarea>
<p>
<input type="submit" value="Strip HTML Tags!" id=submit1 name=submit1>
</form>
<% if Len(Request("txtHTML")) > 0 then %>
<p><hr><p>
<b><u>View of string <i>with no</i> HTML stripping:</u></b><br>
<xmp>
<%=Request("txtHTML")%>
</xmp><p>
<b><u>View of string <i>with</i> HTML stripping:</u></b><br>
<pre>
<%=StripHTML(Request("txtHTML"))%>
</pre>
<% End If %>
评论 (0) All
