- ·上一篇文章:fso显示文本文件的所有内容
- ·下一篇文章:asp图片采集代码
如何使用asp去字符串中的超链接
下面是一个去掉超链接的例子,改变一下,可以去掉其他的,如script、div、span等html代码
<
p>
<
a 
href=&
#39
1.html&
#39
>
11111<
/a>
<
/p>
<
p>
2222<
/p>
 
<
p>
<
a 
href=&
#39
2.html&
#39
>
3333<
/a>
<
/p>
<
p>
44444<
/p>
 
想得到的结果是: 
<
p>
11111<
/p>
<
p>
2222<
/p>
<
p>
3333<
/p>
<
p>
4444<
/p>
 
<
%
Function 
regExReplace(sSource,patrn, 
replStr) 
Dim 
regEx, 
str1 
str1 
= 
sSource 
Set 
regEx 
= 
New 
RegExp 
regEx.Pattern 
= 
patrn 
regEx.IgnoreCase 
= 
True 
regEx.Global 
= 
True 
regExReplace 
= 
regEx.Replace(str1, 
replStr) 
End 
Function 
dim 
c1,c2 
c1="
<
p>
<
a 
href=&
#39
1.html&
#39
>
11111<
/a>
<
/p>
<
p>
2222<
/p>
 
<
p>
<
a 
href=&
#39
2.html&
#39
>
3333<
/a>
<
/p>
<
p>
44444<
/p>
 
"
 
c2=regExReplace(c1,"
<
a.*?>
|<
/a>
"
,"
"
)
response.Write(c2) 
%>
<
p>
<
a 
href=&
#39
1.html&
#39
>
11111<
/a>
<
/p>
<
p>
2222<
/p>
 
<
p>
<
a 
href=&
#39
2.html&
#39
>
3333<
/a>
<
/p>
<
p>
44444<
/p>
 
想得到的结果是: 
<
p>
11111<
/p>
<
p>
2222<
/p>
<
p>
3333<
/p>
<
p>
4444<
/p>
 
<
%
Function 
regExReplace(sSource,patrn, 
replStr) 
Dim 
regEx, 
str1 
str1 
= 
sSource 
Set 
regEx 
= 
New 
RegExp 
regEx.Pattern 
= 
patrn 
regEx.IgnoreCase 
= 
True 
regEx.Global 
= 
True 
regExReplace 
= 
regEx.Replace(str1, 
replStr) 
End 
Function 
dim 
c1,c2 
c1="
<
p>
<
a 
href=&
#39
1.html&
#39
>
11111<
/a>
<
/p>
<
p>
2222<
/p>
 
<
p>
<
a 
href=&
#39
2.html&
#39
>
3333<
/a>
<
/p>
<
p>
44444<
/p>
 
"
 
c2=regExReplace(c1,"
<
a.*?>
|<
/a>
"
,"
"
)
response.Write(c2) 
%>
如何使用asp去字符串中的超链接