<% '先下载远程图片 url="http://www.im286.com/image... '远程图片地址 savepath="D:photo\" '保存路径 '为文件重命名 randomize ranNum=int(999*rnd) filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum '为文件重命名结束 set xmlhttp=server.createobject("Microsoft.XMLHTTP") xmlhttp.open "get",url,false xmlhttp.send img = xmlhttp.ResponseBody set xmlhttp=nothing set objAdostream=server.createobject("ADODB.Stream") objAdostream.Open() objAdostream.type=1 objAdostream.Write(img) objAdostream.SaveToFile(savepath&filename&".jpg") objAdostream.SetEOS set objAdostream=nothing '文件下载结束 Set Upload = Server.CreateObject("Persits.Upload") '打开对象 Set File = Upload.OpenFile(savepath&filename&".jpg") '打开已经保存的文件 If File.ImageType <> "JPG" and File.ImageType <> "GIF" and File.ImageType <> "BMP" and File.ImageType <> "PNG" Then Upload.DeleteFile savepath&filename&".jpg" '如果格式不正确就删除这张已下载的图片 response.write "错误的图片格式" end if '注销实例 Set Upload = nothing Set File = nothing %>

　　推荐阅读

　　如何限制同一用户名同时登陆

这个问题我的办法是，用户有个活跃时间间隔问题。超过这个活跃时间间隔的则可以认为是离线，后者可以登陆 ，如果无后者登陆，但并不是说前者就需要重新登陆了。因为他的session还在的。只能是这个时间设置的越小越>>>详细阅读

本文标题：ASP远程保存图片

地址：http://www.17bianji.com/kaifa2/ASP/33257.html

 1/2    1