利用ASP下载远程文件到服务器
来源:互联网 发布:上海虐童事件 知乎 编辑:程序博客网 时间:2024/05/17 22:06
<%
'函数名:WritFile
'作用:把指定二进制数据写入文件
'参数:byt--二进制数据,file--要写入的文件名
public Function WritFile(ByVal byt, ByVal fileName) '写入文件函数
on error resume next
Dim objAso:set objAso=server.createobject("adodb.Stream")
objAso.Type = 1
objAso.Mode = 3
objAso.Open
objAso.Position = 0
objAso.Write byt
objAso.SaveToFile fileName, 2
objAso.Close
Set objAso = Nothing
WritFile = True
End Function
'函数名:Download
'作用:下载文件
'参数:URL-要获取的URL,savePath为文件保存地址
Public Function Download(ByVal URL, ByVal savePath)
On Error Resume Next
Dim ResBody, sStr, vPath, fileName, vErr
vErr = True
vPath = Replace(savePath, "/", "/")
If Right(vPath, 1) <> "/" Then vPath = vPath & "/"
sPos = InStrRev(URL, "/") + 1
sStr = Mid(URL, sPos)
Set Http = Server.CreateObject("MICROSOFT.XMLHTTP")
Http.Open "GET", URL, False
Http.Send
If Http.Readystate = 4 Then
If Http.Status = 200 Then
ResBody = Http.responseBody
head = Http.getResponseHeader("content-disposition")
If head <> "" Then
startpos = InStr(head, "=") + 1
fileName = Mid(head, startpos)
ElseIf InStr(sStr, ".") > 0 And InStr(sStr, "?") <= 0 Then
fileName = sStr
Else
fileName = Getname() & ".dat"
End If
If WritFile(ResBody, vPath & fileName) Then vErr = False
End If
End If
Download = Not vErr
End Function
'函数名:getname
'作用:按日期获取随机数字
public Function Getname()
on error resume next
Dim y,m,d,h,mm,S, r
Randomize
y = Year(Now)
m = Month(Now): If m < 10 Then m = "0" & m
d = Day(Now): If d < 10 Then d = "0" & d
h = Hour(Now): If h < 10 Then h = "0" & h
mm = Minute(Now): If mm < 10 Then mm = "0" & mm
S = Second(Now): If S < 10 Then S = "0" & S
r = 0
r = CInt(Rnd() * 1000)
If r < 10 Then r = "00" & r
If r < 100 And r >= 10 Then r = "0" & r
Getname = y & m & d & h & mm & S & r
End Function
call download("http://chat.ii-home.cn/down/objupload.rar",server.mappath("."))
%>
'函数名:WritFile
'作用:把指定二进制数据写入文件
'参数:byt--二进制数据,file--要写入的文件名
public Function WritFile(ByVal byt, ByVal fileName) '写入文件函数
on error resume next
Dim objAso:set objAso=server.createobject("adodb.Stream")
objAso.Type = 1
objAso.Mode = 3
objAso.Open
objAso.Position = 0
objAso.Write byt
objAso.SaveToFile fileName, 2
objAso.Close
Set objAso = Nothing
WritFile = True
End Function
'函数名:Download
'作用:下载文件
'参数:URL-要获取的URL,savePath为文件保存地址
Public Function Download(ByVal URL, ByVal savePath)
On Error Resume Next
Dim ResBody, sStr, vPath, fileName, vErr
vErr = True
vPath = Replace(savePath, "/", "/")
If Right(vPath, 1) <> "/" Then vPath = vPath & "/"
sPos = InStrRev(URL, "/") + 1
sStr = Mid(URL, sPos)
Set Http = Server.CreateObject("MICROSOFT.XMLHTTP")
Http.Open "GET", URL, False
Http.Send
If Http.Readystate = 4 Then
If Http.Status = 200 Then
ResBody = Http.responseBody
head = Http.getResponseHeader("content-disposition")
If head <> "" Then
startpos = InStr(head, "=") + 1
fileName = Mid(head, startpos)
ElseIf InStr(sStr, ".") > 0 And InStr(sStr, "?") <= 0 Then
fileName = sStr
Else
fileName = Getname() & ".dat"
End If
If WritFile(ResBody, vPath & fileName) Then vErr = False
End If
End If
Download = Not vErr
End Function
'函数名:getname
'作用:按日期获取随机数字
public Function Getname()
on error resume next
Dim y,m,d,h,mm,S, r
Randomize
y = Year(Now)
m = Month(Now): If m < 10 Then m = "0" & m
d = Day(Now): If d < 10 Then d = "0" & d
h = Hour(Now): If h < 10 Then h = "0" & h
mm = Minute(Now): If mm < 10 Then mm = "0" & mm
S = Second(Now): If S < 10 Then S = "0" & S
r = 0
r = CInt(Rnd() * 1000)
If r < 10 Then r = "00" & r
If r < 100 And r >= 10 Then r = "0" & r
Getname = y & m & d & h & mm & S & r
End Function
call download("http://chat.ii-home.cn/down/objupload.rar",server.mappath("."))
%>
- 利用ASP下载远程文件到服务器
- 利用ASP远程下载文件到服务器
- 利用ASP下载远程文件到服务器
- asp.net如何上传或下载文件到远程服务器
- 从远程服务器下载文件到本地服务器
- 利用WebService实现远程服务器文件的上传和下载
- 利用WebService实现远程服务器文件的上传和下载
- 将本地文件上传到远程FTP服务器和从远程FTP服务器下载文件到本地
- python urllib从远程服务器下载文件到本地
- python urllib从远程服务器下载文件到本地
- 用php实现远程网络文件下载到服务器
- 从远程Linux服务器下载文件到windows
- java 远程从FTP服务器下载文件到本地
- C#访问远程服务器共享目录下载文件到本地
- 针对从远程服务器下载大文件到本地
- 连接到远程linux服务器时上传和下载文件
- ASP VB.NET 下载服务器文件到客户端
- 从远程服务器下载文件
- PELCO-D/PELCO-P协议
- firebug 调试
- yaffs2 图表详解
- Makefile 中的 $@, $^, $< 符号
- 关于由ClickOnce部署的应用程序的两种模式和卸载问题
- 利用ASP下载远程文件到服务器
- delphi 根据句柄隐藏和显示窗体(GetWindowLong或者GetWindowInfo)
- VC6.0快捷键大全
- mpq
- web service跨域访问问题解决办法
- 暑假计划
- 利用ASP显示Excel电子表格
- KVO(NSKeyValueObserving)、KVC(NSKeyValueCoding)作用浅谈
- 用jQuery合并表格中相同文本的相邻单元格