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,asp图片处理组件

  • 2009-02-27 10:01
  • 1.61MB
  • 下载

AspJpeg2.0组件教程完整版 aspjpeg教程

AspJpeg最新版本下载、更多例子及详细的在线对象参考手册: http://www.aspjpeg.com/ 1、什么是AspJpeg? AspJpeg是一款功能强大的基于Microsoft ...

图片切割asp+组件aspjpeg

  • 2013-01-24 15:47
  • 34KB
  • 下载

TCP三次握手报文 实例详解&&syn flood C/C++ 完整代码实现

先大概说一下 TCP三次握手

struts2 实现图片验证码(完整代码)

在struts2下实现了图片验证码的实例,基本思想如下: 1.编写用于生成验证码的JAVA类。 1.实现产生图片验证码的action。 2.配置action,将上述action返回的...

struts2 实现图片验证码(完整代码)

在struts2下实现了图片验证码的实例,基本思想如下: 1.实现产生图片验证码的action 2.配置action,将上述action返回的逻辑结果设置为文件流类型 3.写一个测试的html页...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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