以后地位:首页 > 建站常识 > 列表

asp只给文章第一个关头词主动加链接

点击: 次时辰:2016/10/16关头词:asp 超链接
function keywords_link(byval str)dim rs'处理方式 来历 3djiangyin.comset rs=conn.execute("select * from [tag] order by len(keyword) des

<%
function keywords_link(byval str)
dim rs

'处理方式 来历 3djiangyin.com

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


'处理方式 避免反复替代 来历 3djiangyin.com

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
%>


来历上海网页建造 3djiangyin.com

预定建站
收费供给网站优化
支付关头词