|
|
网站建设 下载中心 社区论坛 信息公告 MY小屋 | |
 |
联系我们 设为首页 加入收藏 |
 |
|
 |
首页 | 新闻资讯 | 编程开发 | 网页设计 | 图形图象 | 网络媒体 | 网站模板 | 数 据 库 | 投稿 论坛 | 操作系统 | 系统优化 | 网络安全 | 黑客技术 | 硬件学堂 | 硬件报价 | 服 务 器 | 地图 专题 | 应用软件 | 聊天通讯 | Q Q 专栏 | 建站经验 | 在线工具 | 站长Club | 注 册 表 | 旧版 社会 | 游戏娱乐 | 设计欣赏 | 疑难解答 | 社区论坛 | 韩国素材 | 素材图库 | 广告服务 | 服务 |
 |
 |
 |
 当前位置：首页>>编程开发>>asp专区>>正文 |
新版上线！[旧版] |  |
|||
注:打开慢时请稍等
图片自动保存到本地并利用aspjpeg为图片加水印http://www.iyit.net 日期：2006-11-7 15:17:04 来源：iyit.net录入 点击： |
'函数功能：远程图片自动保存到本地服务器，并利用aspjpeg为图片加上水印 '（注意：请先在目录下创建images目录，用来保存临时图片） '本程序需要在服务器上安装"aspjpeg组件"否则无法正常使用 '也可以只取'''''22222222'''''''以上的部分,这部分可以保存图片,第二部分是进行水印增加 '使用方法,请保存为saveimg.asp 'saveimg.asp?url=/Files/BeyondPic/2006-11/7/2006102417917734.gif 即可以取下图片啦,HOHO. 其他需要加的功能,大家自己扩展好啦 '如何获取其他后缀名的文件呢? 当然也可以啦 '(jpg|gif|png|bmp)改成(mp3)明白吧? 就是取mp3后缀的文件名.以此类推. 嘻嘻 Server.ScriptTimeOut=99999 const savepath="images" '图片保存路径 url=request("url") function myreplace(str) newstr=str set objregEx = new RegExp objregEx.IgnoreCase = true objregEx.Global = true objregEx.Pattern = "http://(.+?)\.(jpg|gif|png|bmp)" '定义文件后缀 set matches = objregEx.execute(str) for each match in matches newstr=replace(newstr,match.value,saveimg(match.value)) next myreplace=newstr end function function saveimg(url) temp=split(url,".") '以下是用时间与随机数重命名文件名 randomize ranNum=int(90000*rnd)+10000 filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&temp(ubound(temp)) '文件名重命名结束 set xmlhttp=server.createobject("Microsoft.XMLHTTP") xmlhttp.open "get",url,false xmlhttp.send img=xmlhttp.ResponseBody set xmlhttp=nothing set objAdostream=server.createobject("ADODB.Stream") objAdostream.Open() objAdostream.type=1 objAdostream.Write(img) objAdostream.SaveToFile(server.mappath(savepath&filename)) objAdostream.SetEOS set objAdostream=nothing '''''''222222222''''''''''' saveimg=savepath&filename '获取保存路径 Dim Jpeg Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.MapPath(saveimg) '打开保存图片的路径 ' 添加文字水印 Jpeg.Canvas.Font.Color = &HFF0000' 红色 Jpeg.Canvas.Font.Family = "宋体" Jpeg.Canvas.Font.Bold = True Jpeg.Canvas.Print Jpeg.OriginalWidth-200,Jpeg.OriginalHeight-50, "siyizhu.com" '水印离左边的距离,离顶端的距离,这个是放在右下脚了 '保存文件 Jpeg.Save Server.MapPath(saveimg) '保存添加水印后的图片 ' 注销对象 Set Jpeg = Nothing end function %> 注意你的服务器组件支持哦. 编辑：iyit.net [发送给好友] [打印本页] [关闭窗口] [返回顶部] 上一篇：什么是XmlHttp？ 下一篇：没有了 转载请注明来源：www.iyit.net 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
| 相关文章 | |||||||||
|
 |
设置首 页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接 |  |
| |||||||
易特网络技术