Tag: 链接预览模式: 普通 | 列表

ASP获取URL链接href标签的值

作者:edwin 日期:2014-04-30

function GetHref(strHTML)
   Dim objRegExp
   Set objRegExp = New Regexp
   objRegExp.IgnoreCase = True
   objRegExp.Global = True

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 5058

高兴！解决了ASP中多个特定字符替换为不同链接的问题

作者:edwin 日期:2009-06-06

一直都想在文章正文中把一些SEO的关键词自动替换为链接，因为看了个小偷程序，觉得可以借用，初步设想用replace语句实现，但是昨天晚上试了一个晚上都没试成功，直至在睡梦中才恍然大悟，想到了解决方法

其实方法很简单，只是对语法不熟悉，有错误都不知道，才弄得那么辛苦～～～

方法可能很多，每个人的做法也不一样，现在把我的方法公开予大家分享：

<%
'程序作者：edwin，http://edwin.jkqun.com
Function Change2Link(strContent)'替换关键词为链接
Dim OutContent,strLink,getLinkStr,getLink,LinkStr
OutContent = strContent
strLink="广州,<a href=""http://www.dayoo.com/"">广州</a>|深圳,<a href=""http://www.sznews.com/"">深圳</a>|珠海,<a href=""http://www.zh-hr.com/"">珠海</a>" '关键词组，用"|"分隔组，用","分割关键词和替换的链接代码
getLinkStr = Split(strLink, "|") '分离组
For i = LBound(getLinkStr) To UBound(getLinkStr) Step 1
getLink=getLinkStr(i)
LinkStr = Split(getLink, ",") '分离链接词和代码
OutContent = replace(OutContent,LinkStr(LBound(LinkStr)),LinkStr(UBound(LinkStr)),1,1)
Next
Change2Link=OutContent
End Function
%>

Tags: ASP ASP 字符字符替换替换链接链接难题难题