asp获取a连接，获取代码中的链接地址，asp截取文本连接地址。

VbScript code

创新互联建站-专业网站定制、快速模板网站建设、高性价比石河子网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式石河子网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖石河子地区。费用合理售后完善，10年实体公司更值得信赖。

'==================================================

'*函数名 : GetHrefFromContent

'*参数说明 ： html asp截取文本连接地址。

'*功能简介 ： 获取代码中的链接地址

'==================================================

function GetHrefFromContent(html)

Dim Re, match, matchs,strContent,aryNum,aryContent,strUrl

strContent = ""

set Re = new RegExp

re.IgnoreCase =True

re.Global = True

re.pattern = "<a.*?href=(?:""(.*?)""|(.*?))(?:(?: .*?>)|>)(.*?)</a>"

Set matchs = re.Execute(html)

for each match in matchs

'match.SubMatches(0) 基本 0 可改成数组里的其它成员

strContent = strContent + (match.SubMatches(0)) & "|$|"

next

set matchs = nothing

aryContent = split(strContent,"|$|")

for aryNum = Lbound(aryContent) to Ubound(aryContent)

strUrl = aryContent(aryNum) '连接地址

next

end function

asp网站建设的截取连接地址功能，你学会了吗？

网站标题：asp获取a连接，获取代码中的链接地址，asp截取文本连接地址。
分享路径：https://www.cdcxhl.com/article28/sccdcp.html

成都网站建设公司_创新互联，为您提供网站内链、网站维护、静态网站、关键词优化、面包屑导航、网站设计公司

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联