 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% \\\'取得远程文件并保存到本地 Function GetRemoteFiels(RemotePath, LocalPath, FileName) Dim strBody Dim FilePath On Error Resume Next \\\'取得流 strBody = GetBody(RemotePath) \\\'取得保存的文件名 if Right(LocalPath, 1) <> "" then LocalPath = LocalPath & "" FilePath = LocalPath & GetFileName(RemotePath, FileName) \\\'保存文件 if SaveToFile(strBody, FilePath) = true and err.Number = 0 then GetRemoteFiles = true else GetRemoteFiles = false end if End Function \\\'远程获取内容 Function GetBody(url) Dim Retrieval \\\'建立XMLHTTP对象 Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send GetBody = .ResponseBody End With Set Retrieval = Nothing End Function \\\'重组文件名 Function GetFileName(RemotePath, FileName) Dim arrTmp Dim strFileExt arrTmp = Split(RemotePath, ".") strFileExt = arrTmp(UBound(arrTmp)) GetFileName = FileName & "." & strFileExt End Function \\\'将流内容保存为文件 Function SaveToFile(Stream, FilePath) Dim objStream On Error Resume Next \\\'建立ADODB.Stream对象，必须要ADO 2.5以上版本 Set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 \\\'以二进制模式打开 objStream.Open objstream.write Stream objstream.SaveToFile FilePath, 2 objstream.Close() \\\'关闭对象，释放资源 Set objstream = Nothing if err.Number <> 0 then SaveToFile = false else SaveToFile = true end if End Function %> 返回类别: 教程 上一教程: 正则表达式在网络编程中的运用(4) 下一教程: 网站ASP漏洞小总结 您可以阅读与"使用XMLHTTP和ADODB.STREAM取得远程文件并保存到本地"相关的教程: · XMLHTTP组件获取远程文件并筛选出目标数据 · 用ADODB.STREAM将以二进制方法保存在数据库中的文件保存到硬盘 · ASP自动解析图片地址并将其保存到本地服务器 · 大灰狼的ASP工具箱??XMLHTTP的应用，获得远程的文件，获得远程HTML文件源码 · 自动将远程页面的文件中的图片下载到本地服务器 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
