PJBlog3上传图片水印功能的修改方法

2008-09-27 2 条评论 6,799 次阅读 被赞了 0 次

pj论坛看来的。没有修改过文件的可以下载了直接覆盖，修过过的自己对照添加。只添加了2段代码。

打开attachment.asp

查找

Dim F_File, F_Type
Set F_File = FileUP.File("File")

改成

Dim F_File,F_Type,sy
Set F_File=FileUP.File("File")
sy = FileUp.Form("sy")

查找：

F_File.SaveAs Server.MapPath("attachments/"&D_Name&"/"&F_Name)

在下面添加：

If UCase(F_Type) = "JPG" or UCase(F_Type) = "JPEG" or UCase(F_Type) = "PNG" or UCase(F_Type) = "BMP" or UCase(F_Type) = "GIF" Then
If sy <> "" And IsNumeric(sy) Then
Call CreateView("attachments/"&D_Name&"/"&F_Name,sy)
End If
End If

找到：



在后面添加


在最后一个%>之前添加

Sub CreateView(imgName,mode)
'默认为文字水印
If mode = "" or Not IsNumeric(mode) Then mode = 1
On Error Resume Next
Dim Jpeg,Logobox,LogoPath,x,y
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005=Err then
Response.write "没有这个组件，请安装!"
Response.End()
End If
If mode = 2 Then '图片水印
LogoPath = Server.MapPath("logo.png")
Set Logobox = Server.CreateObject("Persits.Jpeg")
Logobox.Open LogoPath
Logobox.Width = 150 '加入图片的原宽度
Logobox.Height = 66 '加入图片的原高度
Jpeg.Open Trim(Server.MapPath(imgName))
If Jpeg.OriginalWidth

[mDown=attachments/month_0809/y2008926224242.rar]点击下载此文件[/mDown]

相关文章:

Default Thumbnail修改让pjblog自动填写验证码的方法 Default Thumbnail为PJBlog添加相关日志功能！（自动安装版） Default Thumbnailpjblog的ADODB.Stream ?? '800a0bbc' 错误 Default Thumbnailpjblog教育网等中因IP不断变化无法正常登陆及进入后台解决方法 Default ThumbnailPJBlog插件制作详细说明 Default Thumbnailpjblog修改--返回顶部、置顶标志及提交内容时自动保存到粘贴板 Default ThumbnailPJblog实现批量删除友情链接功能 Default Thumbnailpjblog修改ping功能--Just Ping it Default ThumbnailpjBlog升级附件基本设置出错Invalid use of Null: 'split'原因及解决 Default Thumbnailpjblog修改访客必须输入邮箱地址并邮箱只对博主可见 Default Thumbnailpjblog3首页日志模块间指定位置添加一个或多个广告位代码的方法 Default Thumbnailpjblog修改评论留言楼层设置与评论审核状态关闭时评论审核状态通过
点赞 (0)
知识共享许可协议
本作品采用 知识共享署名-相同方式共享 4.0 国际许可协议 进行许可
  1. huangwancheng说道：
    2009年08月19日 5:42 下午

    怎么下载不到的？没资源么？！
    [reply=任侠,2009-08-19 12:33 AM]可以下载，只是限制了需要注册为会员
    这个是在pjblog3的157版本上修改的，目前新版本的pjblog已经加入了水印的设置了，直接去官方下载升级即可
    [/reply]

    回复
  2. 任侠说道：
    2008年10月14日 5:38 上午

    Jpeg.Canvas.PrintText Jpeg.OriginalWidth-195,Jpeg.OriginalHeight-30,"www.94qing.cn" '水印位置

    就是这个位置，把 http://www.94qing.cn 换为你要加的水印文字就行了

    另外注意，如果你设置的文字比较长，需要修改一下显示宽度，就是上面的 195这个数~多设几下调试一下~~~

    LogoPath = Server.MapPath("logo.png")
    图片水印就是这个地方，把 logo.png 换为你要加的图片的地址

    回复
  3. eryi说道：
    2008年10月14日 4:51 上午

    大哥,在哪个地方改文字和水印地址啊?我对ASP一点不懂啊.

    回复

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

Captcha Code