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加文字水印代碼，不過上面代碼沒有對上傳文件的類型作判斷，實際使用過程中還需要加上。