asp的采集信息功能怎么实现

[lsfcoder]

asp的采集信息功能怎么实现

[fuweijun]

一般做法xmlhttp抓取所需的数据,然后用正则再剔除数据,得到自己想要的....建议用jquery抓取数据

[lsfcoder]

能给个具体的例子吗?

[sy_binbin]

jquery使用的也是XMLHTTP的原理

'-----------------------本函数为远程获取内容的函数，URL即为网页地址，asp页面也行-----
Function GetBody(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
With Retrieval 
.Open "Get", url, False, "", "" 
.Send 
GetBody = .ResponseBody
End With 
End Function

'--------------------------内码处理的函数，否则发送的邮件可能是乱码
Function BytesToBstr(strBody,CodeBase) 
        dim objStream 
        set objStream = Server.CreateObject("Adodb.Stream") 
        objStream.Type = 1 
        objStream.Mode =3 
        objStream.Open 
        objStream.Write strBody 
        objStream.Position = 0 
        objStream.Type = 2 
        objStream.Charset = CodeBase 
        BytesToBstr = objStream.ReadText  
        objStream.Close 
        set objStream = nothing 
End Function

response.write BytesToBstr(GetBody("http://www.baidu.com"),"GB2312")

上面是一个常用的函数和用法，你看看吧

[Anlige]

http://www.ii-home.cn/show.asp?id=123