首页 >> 读书频道 >> 电脑 >> 一个功能更强大的函数,也是用正则表达式写的
 
· 用正则表达式写的HTML
· 提高ASP性能的最佳选择
· 如何使Microsoft
· 利用事务日志来恢复Upd
· SQL基础(六)
· Microsoft SQ
· MS SQL 7与Ora
· 如何用sql语句修改数据
· 利用ASP存取各种常用类
· 利用ASP存取各种常用类
· 利用ASP存取各种常用类
· 利用ASP存取各种常用类
 
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 红楼梦:120回全本[清
· 武林寓言故事
· 2006高考录取规则
· 首批中国世界名牌产品和2
· 济南美食大全
· 管理三十六计
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

一个功能更强大的函数,也是用正则表达式写的


查看有无更新版本

关键字:ASP网页的优化 2006-8-28

 

<%
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 %>





原作者:东方蜘蛛(转)
来 源:CHINAASP

一个功能更强大的函数,也是用正则表达式写的

[ 1 ]
一个功能更强大的函数,也是用正则表达式写的 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑