WEB开发网
开发学院WEB开发ASP 提供利用AspJpeg组件实现远程图片保存的实例完整代... 阅读

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

 2008-08-31 12:54:01 来源:WEB开发网   
核心提示:感谢netdust提供核心代码,谁能继续改良,提供利用AspJpeg组件实现远程图片保存的实例完整代码,请继续开源,<%'**Csdn技术区-coolbird88提供完整代码

感谢netdust提供核心代码,谁能继续改良,请继续开源。
<%
'**********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(savepath&filename&".jpg"))
Set Jpeg1 = Nothing
end if
Response.write " 文件上传成功,请提交!"
response.end
imgurl=savepath&filename&".jpg" '此句赋值之后可以写入数据库
%>

Tags:提供 利用 AspJpeg

编辑录入:coldstar [复制链接] [打 印]
赞助商链接