欧美在线小视频_成人午夜sm精品久久久久久久_综合国产第二页_蜜乳av一区二区三区

VBScript code

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

'*函數名 : GetHrefFromContent

'*參數說明 ： html 被提取的html中A代碼

'*功能簡介 ： 提取這部分html代碼中A標簽的連接地址和名稱

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

function GetHrefFromContent(html)

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

strContent = ""

set Re = new RegExp

re.IgnoreCase =True

re.Global = True

re.Pattern = ")|>)(.*?)"

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