ASP远程保存图片

<% 
'先下载远程图片 
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 
%>

赞 (0)

相关推荐

  • ASP远程保存图片

    <%  '先下载远程图片  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  '为

  • XMLHttp ASP远程获取网页内容代码

    复制代码 代码如下: url="http://www.csdn.net/" wstr=getHTTPPage(url) start=Newstring(wstr,"资源精选<!-- 下载 -->") over=Newstring(wstr,"<div class=""friendlink"">") body=mid(wstr,200,500) response.write body

  • 利用wsc制作的一个asp后门

    <?xml version="1.0" encoding="gb2312" standalone="yes"?> <?component error="true" debug="true"?> <package> <component id="haiyangtop"> <public> <method name="

  • ASP数据库连接方式大全

    <%  '#######以下是一个类文件,下面的注解是调用类的方法################################################  '# 注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用  '# Access 数据库类  '# CreateDbFile 建立一个Access 数据库文件  '# CompactDatabase 压缩一个Access 数据库文件  '# 建立对象方法:  '# Set a

  • 超精华的asp代码大全第1/2页

    显示页面加载时间 重复域中的斑马线  显示字符串前20个字符并在结尾处添加"--"  如果动态图片为空,使用默认图片代替  如果数据为空,使用默认提示信息代替  ●显示页面加载时间 页面顶部添加下面的代码: <% Dim strStartTime Dim strEndTime strStartTime = Timer '开始时间 %> 页面(同一页)的末尾添加: <% ' 加载完毕的时间 strEndTime = Timer Response.Write ("

  • 一个带采集远程文章内容,保存图片,生成文件等完整的采集功能

    复制代码 代码如下: '================================================== '函数名:GetHttpPage '作 用:获取网页源码 '参 数:HttpUrl ------网页地址 '================================================== Function GetHttpPage(HttpUrl) If IsNull(HttpUrl)=True Or Len(HttpUrl)<18 Or HttpUr

  • ASP替换、保存远程图片实现代码

    ASP通过函数来实现替换.保存远程图片,完成自动采集图片.提取图片的功能,函数中自动判断重复图片,智能分析链接路径,并转成成相对的图片地址保存在你指定的网站目录中,我们可将此函数用在后台的编辑器中,当你复制了含有图片的内容后,本代码会自动帮你上传图片.同时本代码也是采集程序中的重要处理函数,函数代码如下: Function ReplaceSaveRemoteFile(ConStr,strInstallDir,strChannelDir,SaveTf,TistUrl) If ConStr="$Fa

  • asp.net基于Web Service实现远程上传图片的方法

    本文实例讲述了asp.net基于Web Service实现远程上传图片的方法.分享给大家供大家参考,具体如下: 页面调用代码: 前提添加Web 引用 HttpFileCollection files = HttpContext.Current.Request.Files; string filePath = files[0].FileName; string fileName = filePath.Substring(filePath.LastIndexOf("//") + 1); b

  • asp获取远程网页的指定内容的实现代码

    代码如下: 复制代码 代码如下: <% '用ASP获取远程目标网页指定内容,代码由广州网站建设http://www.jb51.net提供 On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312") End function Function Newstring(wstr,strng

  • asp下实现替换远程文件为本地文件并保存远程文件的代码

    1.将下面的文本文件下载,并将.TXT改为remote.asp,里面有具体设置方法 复制代码 代码如下: <%  '添加资源时是否保存远程图片 Const sSaveFileSelect=True '远程图片保存目录,结尾请不要加"/" Const sSaveFilePath="/images/News" '远程图片保存类型 Const sFileExt="jpg|gif|bmp|png" '////////////////////////

随机推荐