asp去html

来源：互联网发布：java violate关键字编辑：程序博客网时间：2024/06/10 23:00

方法一：

func.asp

<%
'*************************************************************************************
'函数名称:filtrateHtml(str)
'作     者:Rock
'函数功能:去掉HTML标签，去掉<>之间的内容
'函数参数:str为要转换的字符串,如:filtrateHtml("<html>aaaaaa</html>")将显示aaaaaa
'*************************************************************************************
Function filtrateHtml(str)
     For i = 1 To Len(str)
         If Mid(str, i, 1) = "<" Then
             For j = i To Len(str)
                 If Mid(str, j, 1) = ">" Then
                     i = j
                     Exit For
                 End If
             Next
         Else
             filtrateHtml = filtrateHtml & Mid(str, i, 1)
         End If
     Next
End Function
%>

外部调用方法：

<%=left(filtrateHtml(rs("content")),100)%> '只显示前100个文字

方法二：

func.asp

<%
'去除HTML标记
Function delHTML(s_string)
Dim re
Set re = New RegExp
re.Pattern = "<[^<>]*>"
re.Global = true
delHTML = re.Replace(s_string,"")
End Function
%>

外部调用方法：

<%=delHTML(rs("content"))%>

方法三

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,"")
nohtml=str
End Function

--------------------------

注意防止函数的嵌套，会报错！引入文件最好在头部引用以防止嵌套到程序中

-----------------------------------

VB 正则表达式(RegExp)对象

正则表达式(RegExp)对象
提供简单的正则表达式支持功能。

说明
下面的代码说明了RegExp对象的用法：

Function RegExpTest(patrn, strng)
  Dim regEx, Match, Matches      ' 建立变量。
  Set regEx = New RegExp         ' 建立正则表达式。
   regEx.Pattern = patrn         ' 设置模式。
   regEx.IgnoreCase = True         ' 设置是否区分字符大小写。
   regEx.Global = True         ' 设置全局可用性。
  Set Matches = regEx.Execute(strng)   ' 执行搜索。
  For Each Match in Matches      ' 遍历匹配集合。
     RetStr = RetStr & "Match found at position "
     RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
     RetStr = RetStr & Match.Value & "'." & vbCRLF
  Next
   RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

Global 属性
设置或返回一个 Boolean 值，该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个。

object.Global [= True | False ]

对象参数总是 RegExp 对象。如果搜索应用于整个字符串，Global 属性的值为 True，否则其值为 False。默认的设置为 False。

IgnoreCase 属性
设置或返回一个Boolean值，指明模式搜索是否区分大小写。

object.IgnoreCase [= True | False ]

Object 参数总是一个 RegExp 对象。如果搜索是区分大小写的，则 IgnoreCase 属性为 False；否则为 True。缺省值为 False。

Pattern 属性

设置或返回被搜索的正则表达式模式。

object.Pattern [= "searchstring"]

参数

object

必选项。总是一个 RegExp 对象变量。

searchstring

可选项的。被搜索的正则字符串表达式。它可能包含设置部分表格中的各种正则表达式字符。

Execute 方法
对指定的字符串执行正则表达式搜索。

object.Execute(string)

参数
object

必选项。总是一个 RegExp 对象的名称。

string

必选项。要在其上执行正则表达式的文本字符串。

说明
正则表达式搜索的设计模式是通过 RegExp 对象的 Pattern 来设置的。

Execute 方法返回一个 Matches 集合，其中包含了在 string 中找到的每一个匹配的 Match 对象。如果未找到匹配，Execute 将返回空的 Matches 集合。

Replace 方法
替换在正则表达式查找中找到的文本。

object.Replace(string1, string2)

参数
object

必选项。总是一个 RegExp 对象的名称。

string1

必选项。string1 是将要进行文本替换的字符串。

string2

必选项。 string2 是替换文本字符串。

说明
被替换的文本的实际模式是通过 RegExp 对象的 Pattern 属性设置的。

Replace 方法返回 string1 的副本，其中的 RegExp.Pattern 文本已经被替换为 string2。如果没有找到匹配的文本，将返回原来的 string1 的副本。

下面的例子说明了 Replace 方法的用法。

Function ReplaceTest(patrn, replStr)
  Dim regEx, str1               ' 建立变量。
   str1 = "The quick brown fox jumped over the lazy dog."
  Set regEx = New RegExp               ' 建立正则表达式。
   regEx.Pattern = patrn               ' 设置模式。
   regEx.IgnoreCase = True               ' 设置是否区分大小写。
   ReplaceTest = regEx.Replace(str1, replStr)         ' 作替换。
End FunctionMsgBox(ReplaceTest("fox", "cat"))            ' 将 'fox' 替换为 'cat'。
；另外，Replace 方法在模式中替换 subexpressions 。下面对以前示例中函数的调用，替换了原字符串中的所有字对：

MsgBox(ReplaceText("(/S+)(/s+)(/S+)", "$3$2$1"))         ' 交换词对.

Test 方法
对指定的字符串执行一个正则表达式搜索，并返回一个 Boolean 值指示是否找到匹配的模式。

object.Test(string)

参数
object

必选项。总是一个 RegExp 对象的名称。

string

必选项。要执行正则表达式搜索的文本字符串。

说明
正则表达式搜索的实际模式是通过RegExp对象的Pattern属性来设置的。RegExp.Global属性对Test方法没有影响。

如果找到了匹配的模式，Test方法返回True；否则返回False。

下面的代码说明了Test 方法的用法。

Function RegExpTest(patrn, strng)
  Dim regEx, retVal            ' 建立变量。
  Set regEx = New RegExp         ' 建立正则表达式。
   regEx.Pattern = patrn         ' 设置模式。
   regEx.IgnoreCase = False         ' 设置是否区分大小写。
   retVal = regEx.Test(strng)         ' 执行搜索测试。
  If retVal Then
     RegExpTest = "找到一个或多个匹配。"
  Else
     RegExpTest = "未找到匹配。"
  End If
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

0 0