AspJpeg组件实现远程图片保存的实例完整代码

原创 2007年09月13日 11:42:00

<%
Server.ScriptTimeOut=99999
savepath="upfiles/" '图片保存路径,可以根据自己的需要,进行修改,如没有创建此文件夹,系统将自动创建
imgpath=request("imgpath")

if imgpath="" then
response.write "<form name=mofeiform method=post action=''><input type=text name=imgpath size=35> <input type=submit name=Submit001 value=上传></form><br/>在输入框中输入远程图片地址,如图片不存在,程序自动放弃本次操作."
else

str = right(imgpath,3)
if str<>"jpg" and str<>"gif" then
 response.write "文件格式不正确 [ <a href=# onclick=history.go(-1)>重新上传</a> ]"
response.end
end if

'为文件重命名
randomize
ranNum=int(999*rnd)
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum
'为文件重命名结束

set mXmlHttp = Server.CreateObject("Msxml2.XMLHTTP")
mXmlHttp.open "GET",imgpath,false
mXmlHttp.send strPostData

Set jpeg1 = Server.CreateObject("Persits.Jpeg")
jpeg1.OpenBinary(mXmlHttp.responseBody)
jpeg1.Width = 130
jpeg1.Height = 100
jpeg1.Save(server.mappath(savepath&filename&".jpg"))
Set Jpeg1 = Nothing
end if
Response.write "&nbsp;文件上传成功,请提交!"
response.end
imgurl=savepath&filename&".jpg" '此句赋值之后可以写入数据库
%>

 

 

调用aspjpeg组件实例

修改的文件:Post_Upfile.asp 查找①:Sub CreateView(imagename,tempFilename) 查找②:Set Logobox=Nothing   ...
  • SJian123
  • SJian123
  • 2014年07月31日 14:36
  • 612

自己整理出来的ASPJpeg和ASPUpload组件的一些属性和方法

aspUploadSet Upload = Server.CreateObject("Persits.Upload")创建对象方法:save "path"保存到指定路径如果不指定路径则保存在内存中sa...
  • dianfeng21sj
  • dianfeng21sj
  • 2007年09月12日 13:03
  • 2949

用于iis服务器图片处理aspjpeg

  • 2013年01月10日 10:52
  • 1.35MB
  • 下载

ASPJPEG组件,ASPJPEG

  • 2008年10月15日 14:55
  • 1.81MB
  • 下载

aspjpeg+aspjpeg组件高级使用方法

  • 2009年05月25日 16:51
  • 1.34MB
  • 下载

AspJpeg组件实现远程图片保存的实例完整代码

Server.ScriptTimeOut=99999savepath="upfiles/" 图片保存路径,可以根据自己的需要,进行修改,如没有创建此文件夹,系统将自动创建imgpath=request...
  • dianfeng21sj
  • dianfeng21sj
  • 2007年09月13日 11:42
  • 808

AspJpeg组件过期解决方法

奇了怪了,平常用的好好的上传程序,今天再用就说什么也传不上去了,开始以为是文件夹没设权限,检查了一下,设好了,没问题,再仔细看看报错的代码,好像和平时上传不了的报错不太一样,是这个: Persi...
  • skfzc
  • skfzc
  • 2015年09月10日 11:31
  • 947

ASPJPEG安装及注册码

Aspjpeg是ASP所支持的强大的图片处理组件,在IIS服务器上被广泛使用,如果ASP需要对图片进行处理,那这个程序不可缺少。 先删除旧版本:开始-运行-输入”regsvr32aspjpeg.dl...
  • QDseashore
  • QDseashore
  • 2014年12月02日 20:36
  • 2617

aspjpeg 服务器组件

  • 2017年10月12日 10:20
  • 3.15MB
  • 下载

动态服务器组件AspJpeg

  • 2016年03月17日 18:24
  • 3.15MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:AspJpeg组件实现远程图片保存的实例完整代码
举报原因:
原因补充:

(最多只允许输入30个字)