asp转到超链接功能。

复制代码代码如下所示：
<
功能replaceurl2（htmlstr）
定义n，str1、str2，STR3，str4
htmlstr = 1例（htmlstr）
N = 1 UBound（分裂（htmlstr，<））
（htmlstr str1 =仪器，<）
str2 =仪器（str1，htmlstr，>）
htmlstr =左（htmlstr，str1-1）右（htmlstr，len（htmlstr）-莱恩（左（htmlstr，str2））））
htmlstr =取代（htmlstr，
replaceurl2 = htmlstr
下一个
端功能
%>

正则表达式删除链接：

复制代码代码如下所示：
功能regremovehref（htmlstr）
建立RA = new RegExp
ra.ignorecase =真
Ra，全局=真的
模式>>（1）
regremovehref = ra.replace（htmlstr，1美元）
端功能