杭州设计公司,杭州广告设计公司
网页设计
asp文章关键词批量加链接
信息来源:网络     栏目类别: 网页设计     浏览次数:     发表评论 减小字体 增大字体


asp关键词加链接
思路:
第一步一般是建立一个关键字替换表 如 id keyword url 等字段
第二步是文章显示时把文章内容和关键字替换表对应的关键字替换成“<a href="[url字段]" target="_bla**k">[keyword字段]</a>”


fu**ctio**&**bsp;&**bsp; keywords_li**k(byval str)&**bsp;&**bsp;&**bsp;
dim rs&**bsp;&**bsp;&**bsp;
’问题1解决办法&**bsp;&**bsp;&**bsp;
set rs=co****.execute("select * from [关键字替换表] order by le**(keyword字段) desc")&**bsp;&**bsp;&**bsp;
while **ot rs.eof&**bsp;&**bsp;&**bsp;
str=p_replace(str,rs("keyword字段"),"<a href="""&rs("url字段")&""" target=""_bla**k"" >"&rs("keyword字段")&"</a>")&**bsp;&**bsp;&**bsp;&**bsp;
rs.move**ext&**bsp;&**bsp;&**bsp;
we**d&**bsp;&**bsp;&**bsp;
rs.close&**bsp;&**bsp;&**bsp;
set rs=**othi**g&**bsp;&**bsp;&**bsp;
keywords_li**k=str&**bsp;&**bsp;&**bsp;
e**d fu**ctio** ’

问题2解决函数 避免重复替换&**bsp;&**bsp;&**bsp;
fu**ctio** p_replace(byval co**te**t,byval asp,byval htm)&**bsp;&**bsp;&**bsp;
dim Matches,objRegExp,strs,i&**bsp;&**bsp;&**bsp;
strs=co**te**t&**bsp;&**bsp;&**bsp;
Set objRegExp = New Regexp’设置配置对象&**bsp;&**bsp;&**bsp;
objRegExp.Global = True’设置为全文搜索&**bsp;&**bsp;&**bsp;
objRegExp.Ig**oreCase = True&**bsp;&**bsp;&**bsp;
objRegExp.Patter** = "(\<a[^<>]+\>.+?\<\/a\>)|(\<img[^<>]+\>)"’&**bsp;&**bsp;&**bsp;
Set Matches =objRegExp.Execute(strs)’开始执行配置&**bsp;&**bsp;&**bsp;
’替换正则表达式&**bsp;&**bsp;&**bsp;
i=0&**bsp;&**bsp;&**bsp;
Dim MyArray()&**bsp;&**bsp;&**bsp;
For Each Match i** Matches&**bsp;&**bsp;&**bsp;
ReDim Preserve MyArray(i)&**bsp;&**bsp;&**bsp;
MyArray(i)=Mid(Match.Value,1,le**(Match.Value))&**bsp;&**bsp;&**bsp;
strs=replace(strs,Match.Value,"<"&i&">")&**bsp;&**bsp;&**bsp;
i=i+1&**bsp;&**bsp;&**bsp;
Next&**bsp;&**bsp;&**bsp;
’没有正则时候&**bsp;&**bsp;&**bsp;
if i=0 the**&**bsp;&**bsp;&**bsp;
co**te**t=replace(co**te**t,asp,htm)&**bsp;&**bsp;&**bsp;
p_replace=co**te**t&**bsp;&**bsp;&**bsp;
exit fu**ctio**&**bsp;&**bsp;&**bsp;
e**d if&**bsp;&**bsp;&**bsp;
’特殊字符替换&**bsp;&**bsp;&**bsp;
strs=replace(strs,asp,htm)&**bsp;&**bsp;&**bsp;
’替换回去&**bsp;&**bsp;&**bsp;
for i=0 to ubou**d(MyArray)&**bsp;&**bsp;&**bsp;
strs=replace(strs,"<"&i&">",MyArray(i))&**bsp;&**bsp;&**bsp;
**ext&**bsp;&**bsp;&**bsp;
p_replace=strs&**bsp;&**bsp;&**bsp;
e**d fu**ctio**

本文标签:asp文章关键词批量加链接把本文收藏到 网摘 博采 百度
上一篇:Asp生成带图片的文章摘要代码          回网页设计列表         下一篇:一组优秀博客评论界面设计
搜索本站其他内容: 百度一下:[asp文章关键词批量加链接]   Google搜索:[asp文章关键词批量加链接]
最新网友评论文章↓
1.靠2009-11-19 20:42:45
2.去2009-11-19 20:39:41
3.脑残还是变相炫富?2009-11-16 20:17:58
4.好感动哦2009-11-7 15:40:32
5.怎么学习2009-10-20 10:54:50

文章添加时间:2010-1-4,文件大小:20.32 KB,最近更新时间:2011-12-16 18:14:25 返回TOP↑            

本站文章搜集自网络;共享网络,共享快乐,我为人人,人人为我;如果您知道本站未知来源文章请告知本站谢谢!
文中及留言观点不代表本站;本站转载内容只是为了更好的交流;
若侵犯了您的版权请联系E-mail:有事儿,您Q我!,本站核实后立即处理!

  •             平面设计| 标志设计| 包装设计| 网页设计| 广告设计| VI设计| 画册设计| 专卖店设计| 展位设计| 名片设计| 网站地图|    建议使用IE5及以上1024*768分辨率
  •             友情链接 版权所有 © 杭州威迪广告公司 2008-2010 | TEL:0571-88385993 13296756810 浙ICP备09011107号