ASP循环提取和截取指定格式字符串的函数

do while instr(str,"<a htef")=0 
startnub=instr(str,"<a href") 
endnub=instr(str,"</a>") 
a(i)=mid(str,startnub,endnub-startnub) 
i=i+1 
str=mid(str,endnub+1) 
loop
Function RegExpTest(patrn, strng) '首先是建个函数
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match In Matches ' 遍历匹配集合。
RetStr = RetStr & Match.Value & "||"
Next
RegExpTest2 = RetStr
End Function
'假设你的html的原文件信息存在变量 html中
href=RegExpTest(html,"<a href=(.*)>(.*)</a>") '应该可以得到一个字符串变量href，将所有连接用||区分开，下面将其变为数组

上一个：asp数组的一些基础教程和使用方法
下一个：ASP截取指定字符串之间的字符的源代码