联系站长 加入收藏 设为首页 繁體中文 RSS
  首页 | 生活百科 | 电脑网络 | 高手学堂 | 语录名言 | 读书文学 | 极品软件 | 奇趣图片 | 站长微博  
 您的位置: 精品百字节网 >> 高手学堂 >> ASP高手进阶 >> 正文 当前没有通告!
   □  文章中的关键字替换方案    4星级
文章中的关键字替换方案
[ 作者:周海河     来源:海河工作室     点击数:     更新时间:2008-06-24     文章录入:Admin
【字体:
[内容提要]
文章关键字替换: 第一步一般是建立一个关键字替换表 如 id keyword url 等字段 第二步是文章显示时把【文章】内容和【关键字替换表】对应的关键字替换成“[keyword字段]

文章关键字替换:
第一步一般是建立一个关键字替换表 如 id keyword url 等字段
第二步是文章显示时把【文章】内容和【关键字替换表】对应的关键字替换成“<a href="[url字段]" target="_blank">[keyword字段]</a>”
 

以下是解决方法:
function  keywords_link(byval str) 
 dim rs 
 ’问题1解决办法 
 set rs=conn.execute("select * from [关键字替换表] order by len(keyword字段) desc") 
 while not rs.eof 
 str=p_replace(str,rs("keyword字段"),"<a href="""&rs("url字段")&""" target=""_blank"" >"&rs("keyword字段")&"</a>")  
 rs.movenext 
 wend 
 rs.close 
 set rs=nothing 
 keywords_link=str 
end function ’

问题2解决函数 避免重复替换 
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[^<>]+\>.+?\<\/a\>)|(\<img[^<>]+\>)"’ 
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 

    
    
上一篇文章:SQL存储过程初探 下一篇文章:ASP伪静态页入门教程
发表评论 □告诉好友 □打印此文 □收藏此页 □关闭窗口 □返回顶部
 最新热点文章
 kingcms批量替换Url目录格式思路
 添加删除Windows组件出错的解决方法
 IIS安装配置出现问题的解决办法
 ps中用钢笔画图锚点规律总绍
 Xp系统下如何架设网站站点?
 通过对页面进行压缩提高网站速度方案
 一些js代码,慢慢研究
 
 最新推荐文章
 添加删除Windows组件出错的解决方法
 IIS安装配置出现问题的解决办法
 ps中用钢笔画图锚点规律总绍
 Xp系统下如何架设网站站点?
 根据时段网站变换不同风格的代码
 EditPlus 代码段实用指南
 网站采集原型
 
 最新图文
  ◇  网友评论:(只显示最新5条。评论内容只代表网友观点,与本站立场无关!)
关于本站 | 免责申明 | 网站地图 | 联系站长 | 友情链接 | 与我同在
冀ICP备06032589号
  Copyright© 2006-2009 100byte.Com All Rights Reserved
网站声明:本网站是公益性质网站,部分内容来源于网络,如有侵犯您权利的地方,请与精品百字节站长联系,尽快修正.
Powered By CreateLive CMS 本站法律顾问:(冀港)武镇海律师
点击这里给我发消息