asp给图片加水印

 For Each FormName In Upload.UploadFiles
   Set File = Upload.UploadFiles(FormName)
   SaveFilePath = sFilePath & File.FileName
   F_FileName = FilePath & File.FileName
   '创建预览及水印图片
   If Upload.PreviewType<>999 and File.FileType=1 then
    PreviewName = "p" & Replace(File.FileName,File.FileExt,"") & "jpg"
    F_Viewname = Previewpath & PreviewName
    '创建预览图片:Call CreateView(原始文件的路径,预览文件名及路径,原文件后缀)
    Upload.CreateView F_FileName,F_Viewname,File.FileExt
    If CBool(MakePreview) Then
     Call OutPreview(strPreviewPath & PreviewName)
    End If
   End If
   Set File = Nothing
  Next