Function ReplaceHtmlStr(str)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="[<a href=\".*\">]"
str=re.Replace(str,"<a href=\"#\">")
ReplaceHtmlStr=str
end function
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="[<a href=\".*\">]"
str=re.Replace(str,"<a href=\"#\">")
ReplaceHtmlStr=str
end function
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<a href=(.*)>[^.*</a>]"
str=re.Replace(str,"<a href=""#"">")
ReplaceHtmlStr1=str
end function
str="<a href='ddd'>link</a>"
response.Write(ReplaceHtmlStr1(str))
合法的链接格式
<a href="http://163.com" target="_blank">网易</a>
<a href=http://163.com target="_blank">网易</a>
<a href=http://163.com?href=http://163.com target="_blank">网易</a>
<a href=http://163.com>网易</a>
<a target="_blank" href=http://163.com>网易</a>
<a href=http://163.com?href=http://163.com target="_blank">网易</a>
<a href="http://163.com?a href=http://163.com" target="_blank">网易</a>等等,当然还有一些错误的html写法,这些正则表达式是解决不了的
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="[<a href=\".*\">]"
str=re.Replace(str,"<a href=\"#\">")
ReplaceHtmlStr=str
end function-----------------
怎么看起来不大像js.................
-------------------------------------------
<textarea id="text1" rows="3" cols="56">
<a href="http://163.com" target="_blank">网易</a>
</textarea>
<input type="button" onclick="alert(ReplaceHref(text1.value));" value="替换"><script language="javascript">function ReplaceHref(str){
var reg = /<a [^>]*>/gi;
return str.replace(reg,"<a href=\"#\">");
}
</script>
<!--
str="<a href=\"fadfa.htm\">";
reg=/^<a href=(.)*>$/;
alert(str.replace(reg,"<a href=\"#\">"));
//-->
</SCRIPT>
<script language="javascript">
function replaceNil(subject) {
alert(subject.replace(/(<a.+?href=)(.+?)>/img, "$1\"#\">"));
}
</script>
<body>
<textarea name="test" cols="100" rows="3"></textarea>
<input name="clk" value="test" type="button" onclick="javascript:replaceNil(document.getElementById('test').value);">
</body>
</html>
Function ReplaceHtmlStr1(str)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<a href=(.*)>[^.*</a>]"
str=re.Replace(str,"<a href=""#"">")
ReplaceHtmlStr1=str
end function
str="<a href='ddd'>link</a>"
response.Write(ReplaceHtmlStr1(str))
-----在此暂时不考虑这情况,我想用bclz_vs(边城)的那段
"(<a href=)(["|']{0,1})(.+)\2>"
"(<a href=)(["|']{0,1})(.+)\2>"
-----------------------------------
也不对
Function ReplaceHtmlStr1(str)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<a href=(.[^>]*)>"
str=re.Replace(str,"<a href=""#"">")
ReplaceHtmlStr1=str
end function
str="front<a href=""ddd"" target=""_blank"">link</a>last<a href=""abcdef"" target=""_blank"">link1</a>last1Third<font color=red><a href=""efg"">link2</a>last3"
response.Write(ReplaceHtmlStr1(str))
测试通过
结果:front<a href="#">link</a>last<a href="#">link1</a>last1sdffffffffffff<font color=red><a href="#">link2</a>last3