奥科网络主营业务:网站建设 | 系统开发 | 手机网站 | 微信开发 | 网站推广 | 手机版
客服热线: 150-8175-4822  151-0269-3855     QQ咨询:1258 56 421

当前位置:首页 > asp删除HTML格式的代码 >

asp删除HTML格式的代码
2014-2-13 21:42:45 来源:邯郸做网站
’/* 函数名称:Zxj_ReplaceHtml ClearHtml 
’/* 函数语言:VBScript Language 
’/* 作 用:清除文件HTML格式函数 
’/* 传递参数:Content (注:需要进行清除的内容) 
’/* 函数说明:正则匹配(正则表达式)模式进行数据匹配替换 
Function ClearHtml(Content) 
Content=Zxj_ReplaceHtml("&#[^>]*;", "", Content) 
Content=Zxj_ReplaceHtml("</?marquee[^>]*>", "", Content) 
Content=Zxj_ReplaceHtml("</?object[^>]*>", "", Content) 
Content=Zxj_ReplaceHtml("</?param[^>]*>", "", Content) 
Content=Zxj_ReplaceHtml("</?embed[^>]*>", "", Content) 
Content=Zxj_ReplaceHtml("</?table[^>]*>", "", Content) 
Content=Zxj_ReplaceHtml(" ","",Content) 
Content=Zxj_ReplaceHtml("</?tr[^>]*>", "", Content) 
Content=Zxj_ReplaceHtml("</?th[^>]*>","",Content) 
Content=Zxj_ReplaceHtml("</?p[^>]*>","",Content) 
Content=Zxj_ReplaceHtml("</?a[^>]*>","",Content) 
Content=Zxj_ReplaceHtml("</?img[^>]*>","",Content) 
Content=Zxj_ReplaceHtml("</?tbody[^>]*>","",Content) 
Content=Zxj_ReplaceHtml("</?li[^>]*>","",Content) 
Content=Zxj_ReplaceHtml("</?span[^>]*>","",Content) 
Content=Zxj_ReplaceHtml("</?div[^>]*>","",Content) 
Content=Zxj_ReplaceHtml("</?th[^>]*>", "", Content) 
Content=Zxj_ReplaceHtml("</?td[^>]*>", "", Content) 
Content=Zxj_ReplaceHtml("</?script[^>]*>", "", Content) 
Content=Zxj_ReplaceHtml("(javascript|jscript|vbscript|vbs):", "", Content) 
Content=Zxj_ReplaceHtml("on(mouse|exit|error|click|key)", "", Content) 
Content=Zxj_ReplaceHtml("<file:///?xml[^>]*>", "", Content) 
Content=Zxj_ReplaceHtml("<\/?[a-z]+:[^>]*>", "", Content) 
Content=Zxj_ReplaceHtml("</?font[^>]*>", "", Content) 
Content=Zxj_ReplaceHtml("</?h2[^>]*>", "", Content) 
Content=Zxj_ReplaceHtml("</?h1[^>]*>", "", Content) ’除去h2标签
Content=Zxj_ReplaceHtml("</?b[^>]*>","",Content) 
Content=Zxj_ReplaceHtml("</?u[^>]*>","",Content) 
Content=Zxj_ReplaceHtml("</?i[^>]*>","",Content) 
Content=Zxj_ReplaceHtml("</?strong[^>]*>","",Content) 
ClearHtml=Content 
End Function 
Function Zxj_ReplaceHtml(patrn, strng,content) 
IF IsNull(content) Then 
content="" 
End IF 
Set regEx = New RegExp ’ 建立正则表达式。 
regEx.Pattern = patrn ’ 设置模式。 
regEx.IgnoreCase = true ’ 设置忽略字符大小写。 
regEx.Global = True ’ 设置全局可用性。 
Zxj_ReplaceHtml=regEx.Replace(content,strng) ’ 执行正则匹配 
End Function
奥科网络——专注于网站建设、系统开发、软件开发、报名系统开发制作、在线答题系统制作 !

公司名称:邯郸奥科信息服务有限公司 创始于2005年的互联网业务品牌,邯郸网络公司领先者!
公司地址:邯郸中华南大街雨晶小区 咨询热线:15081754822  15102693855

关于我们  |  联系我们  |  公司动态  |  在线客服
Copyright © www. 3505188.com 2011-2020 All Rights Reserved