ASP中用ASPJPEG如何给FCKEditor上传的图片加水印

打开FCKEditor/Editor/Filemanager/Connectors/Asp/Commands.asp文件，修改FileUpload函数，如下所示：

Sub FileUpload( resourceType, currentFolder, sCommand )
    Dim oUploader
    Set oUploader = New NetRube_Upload
    oUploader.MaxSize    = 0
    oUploader.Allowed    = ConfigAllowedExtensions.Item( resourceType )
    oUploader.Denied    = ConfigDeniedExtensions.Item( resourceType )
    oUploader.HtmlExtensions = ConfigHtmlExtensions
    oUploader.GetData

    Dim sErrorNumber
    sErrorNumber = "0"

    Dim sFileName, sOriginalFileName, sExtension
    sFileName = ""

    If oUploader.ErrNum > 0 Then
        sErrorNumber = "202"
    Else
        ' Map the virtual path to the local server path.
        Dim sServerDir
        sServerDir = ServerMapFolder( resourceType, currentFolder, sCommand )

        Dim oFSO
        Set oFSO = Server.CreateObject( "Scripting.FileSystemObject" )
        if not (oFSO.FolderExists( sServerDir ) ) then
            sErrorNumber = "102"
        else
            ' Get the uploaded file name.
            sFileName    = oUploader.File( "NewFile" ).Name
            sExtension    = oUploader.File( "NewFile" ).Ext
            sFileName = SanitizeFileName( sFileName )
            sOriginalFileName = sFileName

            Dim iCounter
            iCounter = 0

            Do While ( True )
                Dim sFilePath
                sFilePath = sServerDir & sFileName

                If ( oFSO.FileExists( sFilePath ) ) Then
                    iCounter = iCounter + 1
                    sFileName = RemoveExtension( sOriginalFileName ) & "(" & iCounter & ")." & sExtension
                    sErrorNumber = "201"                    
                Else
                    oUploader.SaveAs "NewFile", sFilePath
'****************************************************************    
                    Dim Jpeg
                    Set Jpeg = Server.CreateObject("Persits.Jpeg")  ' 建立对象
                    Jpeg.Open sFilePath  ' 图片所在位置
                    Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑 
                    Jpeg.Canvas.Font.Family = "方正隶变简体"  ' 设置字体 
                    Jpeg.Canvas.Font.Bold = False '是否设置成粗体 
                    Jpeg.Canvas.Font.Size = 26 '字体大小 
                    Jpeg.Canvas.Font.Quality = 4 ' 文字清晰度
                    Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, "三楼的狼"   '水印文字
                    Jpeg.Save sFilePath  ' 保存文件
                    Set Jpeg = Nothing            
'******************************************************************
                    If oUploader.ErrNum > 0 Then sErrorNumber = "202"
                    Exit Do
                End If
            Loop                    
        end if
    End If

    Set oUploader    = Nothing

    dim sFileUrl
    sFileUrl = CombinePaths( GetResourceTypePath( resourceType, sCommand ) , currentFolder )
    sFileUrl = CombinePaths( sFileUrl, sFileName )

    SendUploadResults sErrorNumber, sFileUrl, sFileName, ""
End Sub

注意'**************部分就是用ASPJPEG加文字水印代码，不过上面代码没有对上传文件的类型作判断，实际使用过程中还需要加上。