asp采集网页中所有的http链接，请问怎么写程序

怎样获取网页中所有超链接url Asp代码怎么编写~

function linkBlur(){
try{
document.links[0].removeAttribute("onfocus");
}catch(e){}
for(var i=0;i<document.links.length;i++){
alert(document.links[i].href);
}
}


js代码

下载一个信息采集器，就是站长下载，可以下载整个网站的内容，包括视频，音乐，图片，不过程序类型的就下载不到了，网址的链接肯定会下载到的

strCut(strContent,StartStr,EndStr,CutType) 只是截取字符。

再给你一个函数吧。

'================================================== 
'函数名：GetArray 
'作 用：提取链接地址，以$$分隔 
'参 数：ConStr ------提取地址的原字符 
'参 数：StartStr ------开始字符串 
'参 数：OverStr ------结束字符串 
'参 数：IncluL ------是否包含StartStr 
'参 数：IncluR ------是否包含OverStr 
'==================================================
Function GetArray(Byval ConStr,kStr,OStr,IncluL,IncluR)
	If ConStr="" Or IsNull(ConStr)=True or kStr="" Or OStr="" or IsNull(kStr)=True Or IsNull(OStr)=True Then GetArray="":Exit Function
	Dim TempStr,TempStr2,objRegExp,Matches,Match:set objRegExp = New Regexp:objRegExp.IgnoreCase=True:objRegExp.Global=True
	objRegExp.Pattern="("&kStr&").+?("&OStr&")":set Matches =objRegExp.Execute(ConStr) 
	For Each Match in Matches:TempStr=TempStr & Match.Value& "$$":Next:set Matches=nothing
	If TempStr="" Then GetArray="":Exit Function end if
	If IncluL=False then objRegExp.Pattern =kStr:TempStr=objRegExp.Replace(TempStr,"")
	If IncluR=False then objRegExp.Pattern =OStr:TempStr=objRegExp.Replace(TempStr,"")
	set objRegExp=nothing:set Matches=nothing
	If TempStr="" then GetArray="" Else GetArray=TempStr
End Function
用法：
str=getHTTPPage(url)
urls=GetArray(str,"_url","abbucket",false,false)'这里的规则"_url","abbucket"自己改
urlx=split(urls,"$$")
for i=0 to ubound(urlx)
    response.write urlx(i) & "<br>"
next

---

海淀区17056242071： asp采集网页中所有的http链接,请问怎么写程序 - ？
封视丹黄： strCut(strContent,StartStr,EndStr,CutType) 只是截取字符.再给你一个函数吧. '================================================== '函数名:GetArray '作 用:提取链接地址,以$$分隔 '参 数:ConStr ------提取地址的原字符 '参 ...

海淀区17056242071： ASP里怎么接收上一页面地址栏的全部地址? - ？
封视丹黄： Response.Write Request.ServerVariables(＂HTTP_REFERER＂)----就会输出http://www.sslj.cn/photo.asp

海淀区17056242071： 求asp抓取网页代码 - ？
封视丹黄： Function getHTTPPage(urls) dim objXML set objXML=server.createobject(＂MSXML2.XMLHTTP＂)'定义 objXML.open ＂GET＂,urls,false'打开 objXML.send()'发送 If objXML.readystate4 then '判断文档是否已经解析完,以做客户端接受返回消...

海淀区17056242071： ASP.NET获取网站的HTTP代码. - ？
封视丹黄： 点button1之后,label1.text=getPage(textbox1.text) static public string getPage(string url) { System.Net.HttpWebRequest req; System.Net.HttpWebResponse res; req = (System.Net.HttpWebRequest)System.Net.WebRequest.Create(url); res = (...

海淀区17056242071： 怎么采集一个网站的所有链接? - ？
封视丹黄： 下载一个信息采集器,就是站长下载,可以下载整个网站的内容,包括视频,音乐,图片,不过程序类型的就下载不到了,网址的链接肯定会下载到的

海淀区17056242071： asp中如何获取当前浏览器页面URL - ？
封视丹黄： response.write(＂当前共有＂&request.servervariables.count&＂个servervariables变量＂) for each temp in request.servervariables response.write(＂request.servervariables(＂＂＂+temp+＂＂＂)=＂+request.servervariables(temp)+＂＂+chr(10)+chr(13)) next%> 看看哪一个键值取出了index.html 你就用那个好了

海淀区17056242071： ASP批量采集代码 - ？
封视丹黄： Dim strurl strurl = Getarrayurl(Request(＂dname＂)) Function Getarrayurl(str) '====采集的域名串处理 If str = ＂＂ Then exit Function str_ = Replace(str,chr(13),＂,＂) str_ = Replace(str_,chr(10),＂＂) str_ = Replace(str_,＂ ＂,＂＂) Getarrayurl = str_ ...

海淀区17056242071： 高手进!有事想问! - ？
封视丹黄： 呵呵.我来解释原理.假设你访问的网站也就是盗链别人的网站为:A网站被盗链网站为 B 网站.那么你所述的盗链情况原理是这样的:1、你首先申请 http://A/index.asp,也就是打开 A 网站首页,2、A 网...

海淀区17056242071： 如何通过asp代码获取某个网站页面上的文本内容?试试做个采集？
封视丹黄： &lt;% '功能:asp采集代码 url=＂http://news.163.com/09/0423/04/57IC37280001124J.html＂ str=getHTTPPage(url) title=strcut(str,＂&lt;h1 id=＂＂h1title＂＂&gt;＂,＂&lt;/h1&gt;＂,2) content=strcut(str,＂手机看新闻&lt;/a&gt;&lt;/span&gt;＂,...

海淀区17056242071： asp怎么获取前一页面的网址 - ？
封视丹黄： Dim ComeUrl ComeUrl = Trim(Request.ServerVariables(＂HTTP_REFERER＂)) Response.Write(ComeUrl)%> 在b.asp页面顶部加上以上代码看效果,变量 ComeUrl 即是来路地址 特别说明:据说不是所有的浏览器都支持 HTTP_REFERER 方法,但是这是asp中最普遍 最权威的获取来路方法了