AspJpeg组件实现远程图片保存的实例完整代码
2007-09-13 11:42
956 查看
<%
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 " 文件上传成功,请提交!"
response.end
imgurl=savepath&filename&".jpg" '此句赋值之后可以写入数据库
%>
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 " 文件上传成功,请提交!"
response.end
imgurl=savepath&filename&".jpg" '此句赋值之后可以写入数据库
%>
相关文章推荐
- php将远程图片保存到本地服务器的实现代码
- 基于Node的React图片上传组件实现实例代码
- Python实现简单网页图片抓取完整代码实例
- ASP替换、保存远程图片实现代码
- Delphi实现图片滚动切换的完整实例代码
- 源码实例:ASP实现远程保存图片
- 以二进制形式将图片保存到数据库,用存诸过程实现(完整代码+sql语句)
- Asp.Net完整实现网页保存为图片代码
- php将远程图片保存到本地服务器的实现代码
- Asp.Net完整实现网页保存为图片代码
- [微信小程序]实现列表点赞并让当前节点的图片改变,值加1完整实例代码加GIF图
- Andriod arcgis保存Mapview为图片的实例代码
- Python使用Scrapy爬虫框架全站爬取图片并保存本地的实现代码
- PHP实现下载远程图片保存到本地的方法
- Javascript实现滚动图片新闻的实例代码
- 基于JavaScript实现图片连播和联级菜单实例代码
- ASP保存远程图片到本地 同时取得第一张图片并创建缩略图的代码
- javascript实现上传图片并预览的效果代码实例
- 服务器基于PHP CodeIgniter,Android基于Volley实现多文件/图片上传(含服务器,web版和android客户端完整代码)
- Delphi实现图像文本旋转特效完整实例代码