首页 | 心情日记 | 建站心得 | 编程技术 | 大盘分析 | 股市信息 | 学习园地 | 电脑技巧 | 物流外贸 | 另类其它 | 站长推荐 | 给我留言 | 相册

用户登陆
用户:
密码:
 
不保存保存一天
保存一月保存一年

站点日历
73 2024 - 11 48
     12
3456789
10111213141516
17181920212223
24252627282930


站点统计

最新评论

日志搜索

 标题   内容


让L-BLOG在提交的同时拷贝提交的内容到剪贴板 给L-BLOG的上传功能添加木马扫描功能!
未知 让L-BLOG上传的图片打上水印   [ 日期:2010-03-16 19:41:05 ]   [ 来自:本站原创 ]

海外邮件中继,海外退信中继,美国高速VPS,不限流量VPN,邮局维护和管理,邮件网关,EMOS邮件中继,POSTFIX邮件中继,Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店:http://shantan.taobao.com 云邮科技官网:www.yunrelay.com

【字体设置:
前提是你的服务器支持: ASPJPEG组件,支持与否你可向虚拟主机提供商咨询.本站的各款虚拟主机均支持该组件.

打开 attachment.asp找到以下内容:
F_File.SaveAs Server.MapPath("attachments/"&D_Name&"/"&F_Name)
在后面加上:
CreateView("attachments/"&D_Name&"/"&F_Name)
在文件的最底部找到如下代码:
Else
Response.Write("<div style=""padding:6px;color:#f00"">对不起,你没有权限上传附件!</div>")
End If
在后面天下以下代码:
Sub CreateView(imgName)
    On Error Resume Next
    'response.write "<script>alert('"&imgName&"');</script>"
    'response.End
    Dim Jpeg 
    Set Jpeg = Server.CreateObject("Persits.Jpeg") 
    If -2147221005=Err then 
        Response.write "没有这个组件,请安装!" '检查是否安装AspJpeg组件 
        Response.End() 
    End If 
    Jpeg.Open Server.MapPath(imgName) '打开图片 
    If err.number then 
        Response.write"打开图片失败,请检查路径!" 
        Response.End() 
    End if 
    Dim aa,MyJpeg,Logo,bb 
    aa=Jpeg.Binary '将原始数据赋给aa 
    '=========加文字水印================= 
    Jpeg.Canvas.Font.Color = &Hfffffff '水印文字颜色 
    Jpeg.Canvas.Font.Family = Arial '字体 
    Jpeg.Canvas.Font.Bold = True '是否加粗 
    Jpeg.Canvas.Font.Size = 28 '字体大小 
    Jpeg.Canvas.Font.ShadowColor = &H000000 '阴影色彩 
    Jpeg.Canvas.Font.ShadowYOffset = 1 
    Jpeg.Canvas.Font.ShadowXOffset = 1 
    Jpeg.Canvas.Brush.Solid = True 
    Jpeg.Canvas.Font.Quality = 4 ' '输出质量 
    Jpeg.Canvas.PrintText Jpeg.OriginalWidth-190,Jpeg.OriginalHeight-30,"www.XXXX.com" '水印位置及文字
    bb=Jpeg.Binary '将文字水印处理后的值赋给bb,这时,文字水印没有不透明度 
    '============调整文字透明度================ 
    Set MyJpeg = Server.CreateObject("Persits.Jpeg") 
    MyJpeg.OpenBinary aa 
    Set Logo = Server.CreateObject("Persits.Jpeg") 
    Logo.OpenBinary bb 
    MyJpeg.DrawImage 0,0, Logo, 0.6 '0.6是透明度 
    MyJpeg.Save Server.MapPath(imgName) 
    set aa=nothing 
    set bb=nothing 
    Jpeg.close 
    MyJpeg.Close 
    Logo.Close 
End Sub
%>
好了,修改完文件以后保存即可!

暂时没有评论
   发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:  我要注册 验证码: 
为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
确定发布?
最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!
 
   

CopyRight © 2008-2010 广东金融学院030904班 All Rights Reserved
Powered by www.030904.com