- <%
- '名称:asp通用采集函数冗余版,要精品版的有心人自己改
- '作者:柳永法
- '日期:2007-6-23
- Function getHTTPPage(Path)
- t = GetBody(Path)
- getHTTPPage = BytesToBstr(t, "GB2312")
- End Function
- Function GetBody(url)
- On Error Resume Next
- Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
- With xmlhttp
- .Open "Get", url, False, "", ""
- .Send
- .waitForResponse 1000
- GetBody = .ResponseBody
- End With
- Set xmlhttp = Nothing
- End Function
- Function BytesToBstr(Body, Cset)
- On Error Resume Next
- Dim objstream
- Set objstream = Server.CreateObject("adodb.stream")
- objstream.Type = 1
- objstream.Mode = 3
- objstream.Open
- objstream.Write Body
- objstream.Position = 0
- objstream.Type = 2
- objstream.Charset = Cset
- BytesToBstr = objstream.ReadText
- objstream.Close
- Set objstream = Nothing
- End Function
- Function getHTTPimg(url)
- On Error Resume Next
- Dim xmlhttp
- Set xmlhttp = server.CreateObject("MSXML2.XMLHTTP")
- xmlhttp.Open "GET", url, false
- xmlhttp.send()
- If xmlhttp.Status<>200 Then Exit Function
- getHTTPimg = xmlhttp.responseBody
- Set xmlhttp = Nothing
- If Err.Number<>0 Then Err.Clear
- End Function
- Function Save2Local(from, tofile)
- Dim geturl, objStream, imgs
- geturl = Trim(from)
- imgs = gethttpimg(geturl)
- Set objStream = Server.CreateObject("ADODB.Stream")
- objStream.Type = 1
- objStream.Open
- objstream.Write imgs
- objstream.SaveToFile tofile, 2
- objstream.Close()
- Set objstream = Nothing
- End Function
- %>
- <%
- NowDir = server.mappath("/")
- Call Save2Local("http://www.baidu.com/img/logo.gif", NowDir & "baidulogo.gif")
- Call Save2Local("http://flash.jninfo.net/images/banner.swf", NowDir & "banner.swf")
- Call Save2Local("//www.zzvips.com/", NowDir & "zzvips.htmll")
- response.Write getHTTPPage("//www.zzvips.com/")
- %>
asp通用采集函数冗余版可以保存文件到本地
2019-10-08 09:36柳永法 ASP教程
asp通用采集函数冗余版可以保存文件到本地,,要精品版的有心人自己改
延伸 · 阅读
- 2019-10-08ASP生成静态文件编码为UTF-8格式的HTML文件
- 2019-10-08ASP下的两个防止SQL注入式攻击的Function
- 2019-10-08asp下的风讯用的SQL通用防注入模块
- 2019-10-08asp生成三维饼图的函数
- 2019-10-07ASP下的简洁的多重查询的方法与函数 真不错
- 2019-10-07发一个ASP的ADODB类代码
精彩推荐
- ASP教程
asp 关键词高亮显示(不区分大小写)
用ASP做搜索很容易,但要实现智能搜索这类就比较累一点,其实任何程序都差不多,主要还是看数据库的处理能力,一般小网站ASP经常跟ACCESS数据库搭配...
- ASP教程
asp 判断是否为搜索引擎蜘蛛的代码
下面的代码注意是针对搜索引擎做出一些适当的内容显示,但这样对于seo不好。不建议使用。作为学习参考。...
- ASP教程
asp文章中随机插入网站版权文字的实现代码
网站不断被人抄袭采集,在百度对采集网站还没有有效的打击下,我们不能指望百度可以识别这些采集网站,那么只能依靠我们自己给我们辛辛苦苦做的内容加上版权文字,以打击这种不劳而获的采集行为。 ...
- ASP教程
asp 空值测试判断函数
asp 空值测试判断函数,学习asp的朋友可以参考下。...
- ASP教程
asp获取数据库中表名和字段名的代码
今天冒出来一个想法,在仅知道数据库名的情况下,用asp得到数据库中的所有表名、所有表的字段名、以及所有字段中的内容。经过一段时间查询资料和修改,终于做出来了,现在与大家分享。...
- ASP教程
ASP实现防止网站被采集代码
ASP实现防止网站被采集代码,是个不错的思路,但现在都是生成静态的了。...
- ASP教程
asp中rs.BookMark的使用介绍
这篇文章主要介绍了asp中rs.BookMark的使用方法,需要的朋友可以参考下...
- ASP教程
asp Fix、Int、Round、CInt函数使用说明
Fix(number) 和 Int(number) 都是返回数字的整数部分,Round(number, numdecimalplaces),第二个参数表示从小数点右边第几位开始实行四舍五入,可以省略,默认是0,即四舍五入返回整数...