''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
返回源地址
[
本帖最后由 梦幻天堂 于 2008-4-20 22:51 编辑 ]