asp中自动给内容统一添加站内关键词链接问题?
下面是现有给关键词加链接的代码,但这个代码在内容中只要碰到关键词就给加链接了,不管关键词是不是已经是锚文本的一部分,或者是图片alt中的文本,这样就把内容弄乱了;另外怎么...
下面是现有给关键词加链接的代码,但这个代码在内容中只要碰到关键词就给加链接了,不管关键词是不是已经是锚文本的一部分,或者是图片alt中的文本,这样就把内容弄乱了;另外怎么能让他只给首次出现的关键词添加链接?
哪位老师有办法可以解决上述问题,还请赐教!
If Trim(Application("Ok3w_SitePublicKeyWords"))<>"" And Application("Ok3w_SitePublicKeyWords")<>"0" Then
kTmp = Split(Application("Ok3w_SitePublicKeyWords"),vbCrLf)
For kk=0 To Ubound(kTmp)
uTmp = Split(kTmp(kk),"|")
If Ubound(uTmp)=1 Then
OutContent = ReplaceTest(OutContent,uTmp(0),"<span class=keyword><a href=" & uTmp(1) & " target=_blank>" & uTmp(0) & "</a></span>")
End If
Next
End If
请不要粘贴复制其他资料,如有满意答案会加分,谢谢! 展开
哪位老师有办法可以解决上述问题,还请赐教!
If Trim(Application("Ok3w_SitePublicKeyWords"))<>"" And Application("Ok3w_SitePublicKeyWords")<>"0" Then
kTmp = Split(Application("Ok3w_SitePublicKeyWords"),vbCrLf)
For kk=0 To Ubound(kTmp)
uTmp = Split(kTmp(kk),"|")
If Ubound(uTmp)=1 Then
OutContent = ReplaceTest(OutContent,uTmp(0),"<span class=keyword><a href=" & uTmp(1) & " target=_blank>" & uTmp(0) & "</a></span>")
End If
Next
End If
请不要粘贴复制其他资料,如有满意答案会加分,谢谢! 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询