<%
Call CreateView("UploadFile/f.jpg","1")
'CreateView(原图路径,文字/图象水印)
'----------------------------------
'创建预览图片及打水印:call CreateView(文件的路径,要添加的水印图片文件)
'Design by Seven (See7di@Gmail.com)（www.7di.net）
Sub CreateView(imagename,inttype)
Dim Object,objFont,img,Obj,LogoPath,sWidth,sHeight
img = "/a.jpg"'//LOGO文件
sWidth = "147"'//LOGO的宽
sHeight = "52"'//LOGO的高
LogoPath = Server.MapPath(img)'//LOGO路径
Set Obj = Server.CreateObject("Persits.Jpeg")'//建立LOGO对象
Set Object = Server.CreateObject("Persits.Jpeg")'//建立原图对象
On Error resume Next
Obj.Open LogoPath'//读取LOGO
If err>0 Then
Response.Write ("对不起,获取LOGO图片文件失败!")
Response.End()
End if
Object.Open Trim(Server.MapPath(imagename))'//读取原图
If err>0 Then
Response.Write ("对不起,获取需要处理的图片文件失败!")
Response.End()
End if
Obj.Width = sWidth'//加入图片的原宽度
Obj.Height = sHeight'//加入图片的原高度
'\\如果原图比LOGO大
If Object.width>Cint(Obj.Width) and Object.Height>Cint(Obj.Height) Then
strDo="yes"
End if
If inttype=1 Then
Object.Canvas.Font.Color = &HFF0000'//文字的颜色
Object.Canvas.Font.Family = "Verdana"'//文字的字体
Object.Canvas.Font.Bold = True'//是否加粗
Object.Canvas.Print 10, 10, "www.Sditi.com"'//打印坐标x 打印坐标y 需要打印的字符
Object.Canvas.Pen.Color = &H000000'//背景颜色
Object.Canvas.Pen.Width = 1'//画笔宽度
Object.Canvas.Brush.Solid = False'//是否加粗处理
Object.Canvas.Bar 0, 0, Object.Width, Object.Height'//起始X坐标 起始Y坐标 输入长度 输入高度
Else
If strDo="yes" Then
Object.Canvas.Pen.Color = &HFFFFFF'// 边框的颜色
Object.Canvas.Pen.Width = 0'// 边框的粗细
Object.Canvas.Brush.Solid = false'// 图片边框内是否填充颜色
Object.DrawImage Object.Width/2, Object.Height/2, Obj, 0.7, &HFFFFFF,90 '// 加入图片的位置以及坐标，透明度（添加水印图片）
Object.Canvas.Bar 0, 0, Object.Width, Object.Height'// 图片边框线的位置坐标
Object.Width = Object.Width
Object.height = Object.height
Object.Sharpen 1, 120
End if
End If
Object.Save Server.MapPath(imagename)'// 生成文件
Set Obj=Nothing
End Sub
%>
