youngfish 2008-4-18 10:44
Z-BLOG水印功能[补丁下载]
Z-BLOG水印插件使用说明 2008-4-6
=========================================
效果图：
[img]http://www.xesee.com/upload/200804061736228041.jpg[/img]
1、将文件c_system_event.asp覆盖到FUNCTION文件夹下同名文件
2、上传你的水印至文件夹IMAGE/LOGO/下，并取名为：watermark.jpg
watermark.psd为水印源文件。如果您需要不同的规格，请直接到c_system_event.asp文件里面修改配置。
详情：[url]http://www.xesee.com/post/z-blog_shuiyin.html[/url]
horsefly1998 2008-4-18 12:10
能否做成插件
不想修改c_system_event.asp
或者把修改方法告知
谢谢
FlyBee 2008-4-18 13:52
我试了，怎么出不来。。。。
是不是要重新上传才出的来
watermark.psd 用了干什么的 放哪
[[i] 本帖最后由 FlyBee 于 2008-4-18 14:40 编辑 [/i]]
梦幻天堂 2008-4-20 22:43
''CopyRight XeSee.Com 2008-4-6 17:35 添加z-blog水印功能
Dim luFilePath
luFilePath = "/" & strUPLOADDIR2 & strFileType
Dim Jpegs
Set Jpegs = Server.CreateObject("Persits.Jpeg")
'On Error Resume Next
Jpegs.Open Server.MapPath(luFilePath)
Dim Logo
Set Logo = Server.createObject("Persits.Jpeg")
Logo.Open Server.MapPath("/IMAGE/LOGO/watermark.jpg")
Randomize
Jpegs.DrawImage (Jpegs.Width/2)-500, Jpegs.Height-Int(RND*Jpegs.Height+25), Logo, 0.5, &HFFFFF0
If Jpegs.Width>=240 And Jpegs.Height>=150 Then
Jpegs.Save Server.MapPath(luFilePath)
End If
Jpegs.Close
LOGO.Close
Set Jpegs = Nothing
Set LOGO = Nothing
我用你的文件覆盖上传了出错啊
错误原因:未知错误
ID:2
摘要:
系统找不到指定的路径。
Persits.Jpeg.1
返回源地址
[img]http://www.lizhenglin.com/blog/IMAGE/LOGO/watermark.jpg[/img]
[[i] 本帖最后由 梦幻天堂 于 2008-4-20 22:51 编辑 [/i]]
apeil 2008-5-1 19:44
回复 1# 的帖子
最好说下怎么改的，因为我的文件本来就改过别的，覆盖你的，肯定出问题。。。
