提供利用AspJpeg组件实现远程图片保存的实例完整代码，非常实用。
感谢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 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" '此句赋值之后可以写入数据库
%>
问题点数：0、回复次数：10Top
1 楼coolbird88（小鸟来一只）回复于 2006-06-02 21:28:46 得分 0
没有支持呀。。。严重打击我的积极性。Top
2 楼spook768（Prowriter）回复于 2006-06-03 08:33:28 得分 0
偶支持你Top
3 楼wubin264（学,然后发困）回复于 2006-06-03 12:35:45 得分 0
我也支持你！Top
4 楼gogocoming（上网钓鱼）回复于 2006-07-09 11:42:00 得分 0
还有俺，俺来地太迟了米？Top
5 楼lizh0103（天天向上）回复于 2006-08-17 17:13:12 得分 0
支持Top
6 楼xzr2004（只有偏执狂才能生存）回复于 2006-08-17 18:17:34 得分 0
up upTop
7 楼gazhangting（河谷的小石）回复于 2006-10-12 13:57:04 得分 0
你自己试过没有啊,我用了一下,有BUG不能通过Top
8 楼gazhangting（河谷的小石）回复于 2006-10-12 14:13:34 得分 0
对不起,用了一下,发现不能自己创建文件夹Top
9 楼Rockjok（小明）回复于 2006-10-25 14:40:53 得分 0
不错啊~支持一下！！！！Top
10 楼ASP0000（代码狂热者）回复于 2006-10-25 17:26:58 得分 0
好象代码有些错误吧！调试了一下有点问题！Top
