打开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
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加文字水印代码,不过上面代码没有对上传文件的类型作判断,实际使用过程中还需要加上。