由于公司seo人员的建议：要求编辑添加内容的时候，需要将文章内容中的一些产品分类名称自动加上链接。而每遍文章的内容很多，编辑找起来不方便，还有可能漏掉一些，如果他们为了找这个，太影响编辑每天添加新闻数量了。所以编辑问一下我们，希望我来在程序中解决这样的问题。
功能：自动给文章内容中的分类名称加上链接，并且相同的分类名称只加一次
拿到这个问题，第一就想到asp中的函数replace来替换，按照我们习惯性的写法。整个页面上的分类名称都被替换了。因为我们常用的写法是：replace(str,a,b);
正是这个原因，会出现上面的问题。其实replace还有两个参数我们很少用到。
看一下replace语法：
描述: 返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。
语法: Replace(expression,find,replacewith[,start[,count[,compare]]])
Replace 函数的语法有以下参数：
参数:
expression 必选。 字符串表达式 包含要替代的子字符串。
find 必选。被搜索的子字符串。
replacewith 必选。用于替换的子字符串。
start 可选。expression 中开始搜索子字符串的位置。如果省略，默认值为 1。在和count 关联时必须用
count 可选。执行子字符串替换的数目。如果省略，默认值为 -1，表示进行所有可能的替换。在和 start 关联时必须用。
compare 可选。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略,缺省值为 0,这意味着必须进行二进制比较。
设置:
compare 参数可以有以下值：
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。
返回值:
Replace 返回以下值：
如果 Replace 返回
expression 为零长度 零长度字符串 ()。
expression 为 Null 错误。
find 为零长度 expression 的副本。
replacewith 为零长度 expression 的副本，其中删除了所有由 find 参数指定的内容。
start > Len(expression) 零长度字符串。
count 为 0 expression 的副本。
说明:
Replace 函数的返回值是经过替换（从由 start 指定的位置开始到 expression 字符串的结尾）后的字符串，而不是原始字符串从开始至结尾的副本。
了解了replace的另外几个参数的用法，对于这个问题就好解决了
代码如下：
<!--#include File="Conn.Asp"-->
<%
Str = 要替换的文章内容
然后循环分类
Set rs = server.CreateObject(adodb.recordset)
sql = Select classname,classid from category where status = 1 order by classid desc
rs.Open sql,conn,1,1
If Not rs.EOF Then
Do While Not rs.EOF
classid = rs(classid)
classname = rs(classname)
Str = Replace(Str,classname,<a href = "/products.asp?cid=&classid&" target = "_blank">&classname&< / a>,1)
rs.movenext
Loop
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
response.Write Str
%>
运行一下这个文件，看看是不是自己要的效果
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。