当前位置:首页 > 网站维护 > 列表

asp只给文章第一个关键词自动加链接

来源:浦一科技点击:时间:2016-10-16 关键词:asp 超链接
functionkeywords_link(byvalstr)dimrs'解决办法来源www.021jz.com.cnsetrs=conn.execute("select*from[tag]orderbylen(keyword)desc")whilenotrs

<%
function keywords_link(byval str)
dim rs

'解决办法 来源 www.021jz.com.cn

set rs=conn.execute("select * from [tag] order by len(keyword) desc")
while not rs.eof
str=p_replace(str,rs("keyword"),""&rs("keyword")&"")
rs.movenext
wend
rs.close
set rs=nothing
keywords_link=str
end function


'解决办法 避免重复替换 来源 www.021jz.com.cn

function p_replace(byval content,byval asp,byval htm)
dim Matches,objRegExp,strs,i
strs=content
Set objRegExp = New Regexp'设置配置对象
objRegExp.Global = True'设置为全文搜索
objRegExp.IgnoreCase = True
objRegExp.Pattern = "(\]+\>.+?\<\/a\>)|(\]+\>)"'
Set Matches =objRegExp.Execute(strs)
'开始执行配置
'替换正则表达式
i=0
Dim MyArray()
For Each Match in Matches
ReDim Preserve MyArray(i)
MyArray(i)=Mid(Match.Value,1,len(Match.Value))
strs=replace(strs,Match.Value,"<"&i&">")
i=i+1
Next
'没有正则时候
if i=0 then
content=replace(content,asp,htm)
p_replace=content
exit function
end if
'特殊字符替换
strs=replace(strs,asp,htm)
'替换回去
for i=0 to ubound(MyArray)
strs=replace(strs,"<"&i&">",MyArray(i))
next
p_replace=strs
end function
%>


来源上海网页制作 www.021jz.com.cn

服务项目

网站建设

网站建设

通过SEO优化技术,提供更多的展示机会,带来大量精准流量和询盘,每月意向客户增长20%。

手机网站建设

手机网站建设

手机网站的时代强势来袭,赢在全网营销时代,手机+电脑双剑合璧,把握商机滴水不漏。

网站维护

网站维护

一个好的网站需要定期或不定期地更新内容,才能不断地吸引更多的浏览者,增加访问量。

整合网络营销

整合营销

为了建立、维护和传播品牌,以及加强客户关系,而对品牌进行计划、实施和监督的一系列营销

预约建站
免费提供网站优化
领取关键词