ASP获取远程网页的指定内容的函数
ASP #远程 #采集 #网页 #函数2012-05-11 09:29
先贴函数：
01 | <% |
02 | '用ASP获取远程目标网页指定内容 更多的代码来这里找 http://yige.org |
03 | On Error Resume Next |
04 | Server.ScriptTimeOut=9999999 |
05 | Function getHTTPPage(Path) |
06 | t = GetBody(Path) |
07 | getHTTPPage=BytesToBstr(t,"GB2312") |
08 | End function |
09 | Function Newstring(wstr,strng) |
10 | Newstring=Instr(lcase(wstr),lcase(strng)) |
11 | if Newstring<=0 then Newstring=Len(wstr) |
12 | End Function |
13 | Function BytesToBstr(body,Cset) |
14 | dim objstream |
15 | set objstream = Server.CreateObject("adodb.stream") |
16 | objstream.Type = 1 |
17 | objstream.Mode =3 |
18 | objstream.Open |
19 | objstream.Write body |
20 | objstream.Position = 0 |
21 | objstream.Type = 2 |
22 | objstream.Charset = Cset |
23 | BytesToBstr = objstream.ReadText |
24 | objstream.Close |
25 | set objstream = nothing |
26 | End Function |
27 | Function GetBody(url) |
28 | on error resume next |
29 | Set Retrieval = CreateObject("Microsoft.XMLHTTP") |
30 | With Retrieval |
31 | .Open "Get", url, False, "", "" |
32 | .Send |
33 | GetBody = .ResponseBody |
34 | End With |
35 | Set Retrieval = Nothing |
36 | End Function |
37 | %> |
01 | 'ASP获取远程网页指定内容开始 |
02 | Dim wstr,str,url,start,over,dtime |
03 | a="开始内容" 'ASP获取目标网页内容开始标记 |
04 | b="结束内容" 'ASP获取网页内容结束标记 |
05 | url="http://yige.org/asp/" |
06 | wstr=getHTTPPage(url) |
07 | start=Newstring(wstr,a) |
08 | over=Newstring(wstr,b) |
09 | body=mid(wstr,start,over-start) |
10 | response.write ""&body;&"" '输出获取到的网页内容 |
11 | 'ASP获取远程网页指定内容结束 |
相关文章
- ASP生成SQL命令字符串类 2012/05/11
- ASP文本框换行显示方法 2012/05/11
- ASP页面支持cache的方法 2012/05/11
- ASP的JSON类使用方法 2012/05/11
- ASP的JSON类 2012/05/11
- ASP实现注册登录的代码 2012/05/11
- ASP实现ajax注册即时提示代码 2012/05/10
- ASP多级联动菜单效果代码 2012/05/10
- ASP提高页面执行效率的方法 2012/05/10
- ASP删除数据并同时删除图片的代码 2012/05/10