利用AspJpeg组件实现远程图片保存
2018-09-06 10:53
ASPJPEG组件相信大家都听说过吧，可是用ASPJPEG远程保存图片你会么？下面就让我们来看一下网友提供的这段代码吧：
<%
**********Csdn技术区-coolbird88提供完整代码，感谢netdust提供核心代码*********
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 mxml(标准化越来越近了)Http = Server.CreateObject(Msxml(标准化越来越近了)2.xml(标准化越来越近了)HTTP)
mxml(标准化越来越近了)Http.open GET,imgpath,false
mxml(标准化越来越近了)Http.send strPostData
Set jpeg1 = Server.CreateObject(Persits.Jpeg)
jpeg1.OpenBinary(mxml(标准化越来越近了)Http.responseBody)
jpeg1.Width = 130
jpeg1.Height = 100
jpeg1.Save(server.mappath(savepathfilename.jpg))
Set Jpeg1 = Nothing
end if
Response.write nbsp;文件上传成功,请提交！
response.end
imgurl=savepathfilename.jpg 此句赋值之后可以写入数据库
%>
技术交流永无止境
上一篇：ASP的天空小偷
下一篇：ASP 3.0高级编程（六）