西工新苑:ASP 提取页面中所有的链接

来源:百度文库 编辑:神马品牌网 时间:2024/04/28 11:35:04
请问各位,我想通过限制
开始字符:<a href="
结束字符:">
来提取中间的链接字符串,试了很多次都不能成功,有朋友帮帮我吗?

dim link(20) as string
do
i=instr(1,lcase(src),"<a href=")
j=instr(i,src,">")
if i=0 or j=0 then exit do
link(count)=mid(src,i+8,j-i-8)
count=count+1
loop

for i = 0 to count-1
print link(i)
next

----------------------------------
程序有问题找我

用正则表达式

你先找到href=" 然后提取从这个字串开始,终止于其后第一个",就可以了