联系站长 加入收藏 设为首页 繁體中文 RSS
  首页 | 生活百科 | 电脑网络 | 高手学堂 | 语录名言 | 读书文学 | 极品软件 | 奇趣图片 | 站长微博  
 您的位置: 精品百字节网 >> 高手学堂 >> ASP高手进阶 >> 正文 当前没有通告!
   □  网站采集原型   3星级
网站采集原型
[ 作者:Admin     来源:精品百字节网     点击数:     更新时间:2008-06-24     文章录入:Admin
【字体:
[内容提要]
网站采集原型
if SaveFile("localhost.htm","http://www.100byte.com") then
 Response.write "already create"
else
 Response.write "not already create"
end if
Function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads,Retrieval,GetRemoteData
On Error Resume next
Set Retrieval=Server.CreateObject("Microso"&"ft.XM"&"LHTTP")
With Retrieval
 .Open "Get",RemoteFileUrl,False,"",""
 .Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads=Server.CreateObject("Ado"&"db.Str"&"eam")
With Ads
 .Type = 1
 .Open
 .Write GetRemoteData
 .SaveToFile Server.MapPath(LocalFileName),2
 .Cancel()
 .Close()
End With
Set Ads=nothing
if err<>0 then
 SaveFile = false
else
 SaveFile = true
end if
End function
上一篇文章:ASP在线操作数据库的通用类 下一篇文章:kingcms批量替换Url目录格式思路
发表评论 □告诉好友 □打印此文 □收藏此页 □关闭窗口 □返回顶部
 最新热点文章
 kingcms批量替换Url目录格式思路
 添加删除Windows组件出错的解决方法
 IIS安装配置出现问题的解决办法
 ps中用钢笔画图锚点规律总绍
 Xp系统下如何架设网站站点?
 通过对页面进行压缩提高网站速度方案
 一些js代码,慢慢研究
 
 最新推荐文章
 添加删除Windows组件出错的解决方法
 IIS安装配置出现问题的解决办法
 ps中用钢笔画图锚点规律总绍
 Xp系统下如何架设网站站点?
 根据时段网站变换不同风格的代码
 EditPlus 代码段实用指南
 网站采集原型
 
 最新图文
  ◇  网友评论:(只显示最新5条。评论内容只代表网友观点,与本站立场无关!)
关于本站 | 免责申明 | 网站地图 | 联系站长 | 友情链接 | 与我同在
冀ICP备06032589号
  Copyright© 2006-2009 100byte.Com All Rights Reserved
网站声明:本网站是公益性质网站,部分内容来源于网络,如有侵犯您权利的地方,请与精品百字节站长联系,尽快修正.
Powered By CreateLive CMS 本站法律顾问:(冀港)武镇海律师
点击这里给我发消息