首  页
站长信箱
868搜索
网站登录
免费计数器
免费留言本
IP来源查询
网站技术教程
网站流量统计
文章探索:   分类:    关键字:  
    什么?你还在找兼职?上兼客吧,现在兼客吧平台太火了,知名度和诚信度也很高,注册就送0.5元现金,满3元就能提现,马上到账了!最低3元就能提现,大家可以注册下试试!注册地址:http://www.jiankeba.com/computeryc1688
  + 栏目导航
  + 相关文章
用ASP生成XML数据文档(RSS订阅..
asp添加xml节点问题
Asp.net+Xml实现无数据库论坛(..
Asp.net+Xml实现无数据库论坛(..
Asp.net+Xml实现无数据库论坛(..
js添加、修改、删除xml节点例子
ASP.NET查找XML节点的几个方法
使用ASP添加xml节点功能
使用asp修改xml中的节点
ASP历遍XML节点与字节点之简单..
ASP向xml文件中的添加节点
ASP遍历XML节点
asp修改xml节点属性
小白ajax定时更新xml数据练习
Ajax核心:XMLHTTP组件相关技术..
远程获取内容,并将内容存在本..
xmlhttp组件获取远程文件并筛选..
XMLHTTP对象及其方法
把HTML表单提交的数据转化成XML..
利用XMLHTTP无刷新添加数据之Po..
Js+Xml:不刷新页面获取对应网址..
xml(元标记语言)学习基础一
Java语言编程中更新XML文档的常..
简析JAVA中的XML编程
XML及其技术指南
XML教程(2)--XML元素与XML属性..
XML教程(1)--严格的语法
从XML到Java代码的数据绑定之一
神奇的XML--突破CGI权限的约束
基于XML的数据库总体分析

技术教程 -> XML教程 ->  
远程获取内容,并将内容存在本地电脑上,包括任何文件
来源:开发者俱乐部   人气:3226   录入时间:2006/7/2


    
   <%
   '------------------------------------------------------------------------
   '-------------------无垠网域:http://www.5inet.net/ ---------------------
   '-------------------作者:嘻哈呵嘿 ,webmaster@5inet.net -----------------
   '----------远程获取内容,并将内容存在本地电脑上,包括任何文件!----------
   '---------------利用xmlhttp和adodb.stream,酷!绝对原创!-----------------
   'On Error Resume Next
   'Set the content type to the specific type that you are sending.
   'Response.ContentType = "IMAGE/JPEG"
   '-------------------------------定义输出格式-----------------------------
   
   Path=request.querystring("p")
   sPath = Path
   if left(lcase(path),7) <> "http://" then
   '-------------如果前面没有http就是本地文件,交给LocalFile处理------------
   LocalFile(path)
   else
   '--------------------否则为远程文件,交给RemoteFile处理------------------
   RemoteFile(Path)
   end if
   'Response.Write err.Description
   
   sub LocalFile(Path)
   '-------------------如果为本地文件则简单的跳转到该页面-------------------
   Response.Redirect Path
   End Sub
   
   Sub RemoteFile(sPath)
   '-------------------------处理远程文件函数------------------------------
   FileName = GetFileName(sPath)
   '-------------GetFileName为把地址转换为合格的文件名过程-------------
   FileName = Server.MapPath("/UploadFile/Cache/" & FileName)
   Set objFso = Server.CreateObject("Scripting.FileSystemObject")
   'Response.Write fileName
   if objFso.FileExists(FileName) Then
   '--------------检查文件是否是已经访问过,如是,则简单跳转------------
   Response.Redirect "/uploadfile/cache/" & GetFileName(path)
   Else
   '----------------否则的话就先用GetBody函数读取----------------------
   'Response.Write Path
   t = GetBody(Path)
   '-----------------用二进制方法写到浏览器上--------------------------
   Response.BinaryWrite t
   Response.Flush
   '-----------------输出缓冲------------------------------------------
   SaveFile t,GetFileName(path)
   '------------------将文件内容缓存到本地路径,以待下次访问-----------
   End if
   Set objFso = Nothing
   End Sub
   
   Function GetBody(url)
   '-----------------------本函数为远程获取内容的函数---------------------
   'on error resume next
   'Response.Write url
   Set Retrieval = CreateObject("Microsoft.XMLHTTP")
   '----------------------建立XMLHTTP对象-----------------------------
   With Retrieval
   .Open "Get", url, False, "", ""
   '------------------用Get,异步的方法发送-----------------------
   .Send
   'GetBody = .ResponseText
   GetBody = .ResponseBody
   '------------------函数返回获取的内容--------------------------
   End With
   Set Retrieval = Nothing
   'response.Write err.Description
   End Function
   
   Function GetFileName(str)
   '-------------------------本函数为合格化的文件名函数-------------------
   str = Replace(lcase(str),"http://","")
   str = Replace(lcase(str),"//","/")
   str = Replace(str,"/","")
   str = replace(str,vbcrlf,"")
   GetFileName = str
   End Function
   
   sub SaveFile(str,fName)
   '-------------------------本函数为将流内容存盘的函数-------------------
   'on error resume next
   Set objStream = Server.CreateObject("ADODB.Stream")
   '--------------建立ADODB.Stream对象,必须要ADO 2.5以上版本---------
   objStream.Type = adTypeBinary
   '-------------以二进制模式打开-------------------------------------
   objStream.Open
   objstream.write str
   '--------------------将字符串内容写入缓冲--------------------------
   'response.Write fname
   objstream.SaveToFile "c:\inetpub\myweb\uploadfile\cache\" & fName,adSaveCreateOverWrite
   '--------------------将缓冲的内容写入文件--------------------------
   'response.BinaryWrite objstream.Read
   objstream.Close()
   set objstream = nothing
   '-----------------------关闭对象,释放资源-------------------------
   'response.Write err.Description
   End sub
   %>



| 网站转让 | 站长信箱 | 网站登录 | 技术教程 | 免费计数器 | 免费留言本 | 868流量统计 | 好帮手网站营销 |
地址:广东省阳江市  联系电话:13725641179 杨先生
Copyright 2004-2019 868资源网- 版权所有    粤ICP备05007330号