Select Case upload_ViewType Case 0 /'---------------------CreatePreviewImage--------------- set ogvbox = Server.CreateObject("CreatePreviewImage.cGvbox") ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename) /'预览图存放路径。 ogvbox.SetPreviewImageSize =SetPreviewImageSize /'预览图宽度。 ogvbox.SetImageFile = trim(Server.MapPath(imagename)) /'imagename原始文件的物理路径。 /'创建预览图的文件。 If ogvbox.DoImageProcess=false Then Response.write "生成预览图错误:"& ogvbox.GetErrString End If Case 1 /'---------------------AspJpegV1.2--------------- Set Logobox = Server.CreateObject("Persits.Jpeg") /'//建议不要图片和文字水印同时使用,本代码为使用图片水印。 Logobox.Open LogoPath /'//读取添加的图片。
/'//重新设置图片的大小。 Logobox.Width = 186 /'//用做水印的图片的宽度值(像素)。 Logobox.Height = 52 /'//用做水印的图片的高度值(像素)。 /'//添加水印。 Set ogvbox = Server.CreateObject("Persits.Jpeg") /'//读取要处理的原文件。 ogvbox.Open Trim(Server.MapPath(imagename)) If ogvbox.OriginalWidth<Cint(ImageWidth) or ogvbox.Originalheight<Cint(ImageHeight) Then F_Viewname="" Set ogvbox = Nothing Exit Sub Else IF ImageMode<>"" and FileExt<>"gif" Then /'//如果将这行改为IF ImageMode<>"" Then则可给上传的GIF图片也加上水印,但是那些动画的GIF在加了水印以后就只剩第一桢了,根据你的需求酌情处理吧。