最好的图片水印实现思路

'每次上传文件个数上限

Upload.InceptFileType = "gif,jpg,png,rar,zip,psd" '设置上传文件限制

Upload.RName = ""

Upload.ChkSessionName = "UploadCode"

Upload.PreviewType = 1 '设置预览图片组件类型

Upload.PreviewImageWidth        = 130                                                                                '设置预览图片宽度

Upload.PreviewImageHeight        = 100                                                                                '设置预览图片高度

Upload.DrawImageWidth                = 114                                                                                '设置水印图片或文字区域宽度

Upload.DrawImageHeight                = 36                                                                                '设置水印图片或文字区域高度

Upload.DrawGraph                        = 0.7                                                                                '设置水印透明度

Upload.DrawFontColor                = "#FF0000"                                                                        '设置水印文字颜色

Upload.DrawFontFamily                = "Andale Mono"                                                                '设置水印文字字体格式

Upload.DrawFontSize                        = 10                                                                                '设置水印文字字体大小

Upload.DrawFontBold                        = 1                                                                                        '设置水印文字是否粗体

Upload.DrawInfo                                = "a.jpg"                                                                        '设置水印文字信息或图片信息

Upload.DrawType                                = 2                                                                                        '0=不加载水印 ，1=加载水印文字，2=加载水印图片

Upload.DrawXYType                        = 4                                                                                        '"0" =左上，"1"=左下,"2"=居中,"3"=右上,"4"=右下

Upload.DrawSizeType                        = 1                                                                                        '"0"=固定缩小，"1"=等比例缩小

Upload.TransitionColor                = "#FFFFFF"                                                                        '透明度颜色设置

'执行上传

Upload.SaveUpFile

If Upload.ErrCodes<>0 Then

Response.write "错误："& Upload.Description & "[ <a href='upload.asp'>重新上传</a> ]"

Exit Sub

End If

If Upload.Count > 0 Then

For Each FormName In Upload.UploadFiles

Set File = Upload.UploadFiles(FormName)

F_FileName = FilePath & File.FileName

'创建预览及水印图片

If Upload.PreviewType<>999 and File.FileType=1 then

F_Viewname =  FilePath&"pre" & Replace(File.FileName,File.FileExt,"") & "jpg"

'创建预览图片:Call CreateView(原始文件的路径,预览文件名及路径,原文件后缀)

Upload.CreateView F_FileName,F_Viewname,File.FileExt

End If

%><!-- <script>parent.myForm.Img.value+='<%=F_FileName%>'</script> --><%

Response.Write "文件地址：<a href="& F_FileName &">上传成功</a>![ <a href=upload.asp>再次上传</a> ]<font color=red>注意：请将此地址粘贴到下面图片地址框即可</font>"

Set File = Nothing

Next

Else

Response.write "请正确选择要上传的文件。[ <a href='upload.asp'>重新上传</a> ]"

Exit Sub

End If

Set Upload = Nothing

End Sub

%>