UC知道asp中替换问题
来源：百度知道 编辑：UC知道 时间：2024/06/05 19:45:21
请教
我在文章中自动加了链接，
但是发现添加文章中原有手动加的链接就发现了错误
请问如何写段代码,将下面的链接：
<a href="http//www.dsfdf.com"><a href="http//www.adfdf..com">链接</a></a>
替换成：
<a href="http//www.adfdf..com">链接</a>
或者高手可以提供一个批量替换链接的方法
要求是一个 原来已经手动加的链接就不需要再次替换了:
如<a href="http//www.****.com">链接</a>
KingsNet写的很详细，但是把链接替换成这种形式了：
<a href=http://www.aaa**..com>><a href=</a>
我在文章中自动加了链接，
但是发现添加文章中原有手动加的链接就发现了错误
请问如何写段代码,将下面的链接：
<a href="http//www.dsfdf.com"><a href="http//www.adfdf..com">链接</a></a>
替换成：
<a href="http//www.adfdf..com">链接</a>
或者高手可以提供一个批量替换链接的方法
要求是一个 原来已经手动加的链接就不需要再次替换了:
如<a href="http//www.****.com">链接</a>
KingsNet写的很详细，但是把链接替换成这种形式了：
<a href=http://www.aaa**..com>><a href=</a>
抱歉，有点小错误，再试试看：
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("数据库名.mdb")
Set rs = Server.Createobject("ADODB.Recordset")
sql="Select * from [表名]"
rs.open sql,conn,1,3
while not rs.eof
rs("字段名")=RegUrl(rs("字段名"))
rs.update
rs.movenext
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
Function RegUrl(TheStr)
Set RegEx = New RegExp
RegEx.IgnoreCase =True
RegEx.Pattern = "(<a href=)([^{><}]*)(><a href=)([^{><}]*)(>)([^{><}]*)(</a></a>)"
RegUrl=RegEx.replace(TheStr,"<a href=$4>$6</a>")
End Function
%>
<% a="是天底下《》人" b=replace(a,"《","[") b=replace(b,"》","]") response