asp去除html的函数代码分析附实例说明

来源:爱站网时间:2020-06-03编辑:网友分享
ASP是嵌入在HTML页面中的脚本程序,我们都知道ASP的脚本语言和其他语言对比起来算是比较简单的,但是要运行它却不是一件容易的事,今天爱站技术频道小编就和大家分享asp去除html的函数代码分析附实例说明,相信一定会让你们涨知识的哦。

ASP是嵌入在HTML页面中的脚本程序,我们都知道ASP的脚本语言和其他语言对比起来算是比较简单的,但是要运行它却不是一件容易的事,今天爱站技术频道小编就和大家分享asp去除html的函数代码分析附实例说明,相信一定会让你们涨知识的哦。

复制代码 代码如下:

function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.>)"
str=re.replace(str," ")
re.Pattern="(\)"
str=re.replace(str," ")
str=replace(str," ","")
str=replace(str," ","")
nohtml=str
set re=nothing
end function
str="sadjksjdl脚本之家欢迎你sajdljsald<sadsadsad>" '这里是测试<br> response.write nohtml(str)<br> %></sadsadsad>


结果为:

 

复制代码 代码如下:

 


sadjksjdl脚本之家欢迎你sajdljsald


不过下面的代码是不问的,直接看到

 

复制代码 代码如下:

 


Function dropHtml(Byval strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的
objRegExp.Pattern = "<.>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合,并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
dropHtml=strHTML
Set objRegExp = Nothing
End Function
str="sadjksjdl脚本之家欢迎你sajdljsald<sadsadsad>" '这里是测试<br> response.write dropHtml(str)<br> %></sadsadsad>


结果为:

 

 

通过爱站技术频道介绍的asp去除html的函数代码分析附实例说明,大家已经了解了吧,我们需要熟练掌握项目内容,这样才能保证自己项目的顺利开发。

上一篇:Asp下Access无法更新的解决方法

下一篇:asp中使用redim、preserve创建动态数组实例

您可能感兴趣的文章

相关阅读

热门软件源码

最新软件源码下载