并将内容存在本地电脑上包括任何文件<%
'------------------------------------------------------------------------
'-------------------无垠网域:http://www.5inet.net/ ---------------------
'-------------------作者:嘻哈呵嘿 ,[email protected] -----------------
'----------远程获取内容
并将内容存在本地电脑上包括任何文件！----------'---------------利用xmlhttp和adodb.stream,酷！绝对原创！-----------------
'On Error Resume Next
'Set the content type to the spec
ic type that you are sending.'Response.ContentType = "IMAGE/JPEG"
'-------------------------------定义输出格式-----------------------------
Path=request.query
("p")sPath = Path
left(l
(path),7) <> "http://" then '-------------如果前面没有http就是本地文件
交给LocalFile处理------------LocalFile(path)
'--------------------否则为远程文件
交给RemoteFile处理------------------RemoteFile(Path)
end
'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.File
Object")'Response.Write fileName
objFso.FileExists(FileName) Then'--------------检查文件是否是已经访问过,如是
则简单跳转------------Response.Redirect "/uploadfile/cache/" & GetFileName(path)
Else
'----------------否则
话就先用GetBody读取----------------------'Response.Write Path
t = GetBody(Path)
'-----------------用 2进制思路方法写到浏览器上--------------------------
Response.BinaryWrite t
Response.Flush
'-----------------输出缓冲------------------------------------------
SaveFile t,GetFileName(path)
'------------------将文件内容缓存Cache到本地路径
以待下次访问-----------End
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(l
(str),"http://","")str = Replace(l
(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
'-------------以 2进制模式打开-------------------------------------
objStream.Open
objstream.write str
'--------------------将
串内容写入缓冲--------------------------'response.Write fname
objstream.SaveToFile "c:\inetpub\myweb\uploadfile\cache\" & fName,adSaveCreateOverWrite
'--------------------将缓冲
内容写入文件--------------------------'response.BinaryWrite objstream.Read
objstream.Close
objstream = nothing'-----------------------关闭对象
释放资源-------------------------'response.Write err.Description
End sub
%>
篇文章: 优化SQL server性能关键篇文章: NBSI 1.50版本部分代码
最新评论