2013-09-25
展开全部
'************加文字水印**********************
Public Function AddPersitsText(Path,Font,Location)
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath(Path) '打开图片,Path为路片路径及名称
Jpeg.Canvas.Font.Color = &HFF0000 '后6位为文字颜色
Jpeg.Canvas.Font.Family = "黑体" '文字字体
Jpeg.Canvas.Font.Bold = True '是否加粗
Jpeg.Canvas.Font.Size = 18 '字体大小
Jpeg.Canvas.Font.Quality = 10
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Font.ShadowYOffset = 3 '阴影效果
Jpeg.Canvas.Pen.Color = &HFFFFFF '水印背景颜色
Jpeg.Canvas.Pen.Width = 3
Jpeg.Canvas.Brush.Solid = False
IF Location =0 Then
Jpeg.Canvas.Print (Jpeg.width-60)/2, (Jpeg.height-10)/2, Font '水印显示在图片上的居中位置
ElseIf Location=1 Then
Jpeg.Canvas.Print Jpeg.width-120, 20, Font '水印显示在图片上的右上位置
ElseIF Location=2 Then
Jpeg.Canvas.Print Jpeg.width-120, Jpeg.height-20, Font '水印显示在图片上的右下位置
ElseIF Location=3 Then
Jpeg.Canvas.Print 20, 20, Font '水印显示在图片上的左上位置
Else
Jpeg.Canvas.Print 20, Jpeg.height-20, Font '水印显示在图片上的左下位置
End IF
Jpeg.Save Server.MapPath(Path) '保存水印图片
Set Jpeg = Nothing
End Function
Public Function AddPersitsText(Path,Font,Location)
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath(Path) '打开图片,Path为路片路径及名称
Jpeg.Canvas.Font.Color = &HFF0000 '后6位为文字颜色
Jpeg.Canvas.Font.Family = "黑体" '文字字体
Jpeg.Canvas.Font.Bold = True '是否加粗
Jpeg.Canvas.Font.Size = 18 '字体大小
Jpeg.Canvas.Font.Quality = 10
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Font.ShadowYOffset = 3 '阴影效果
Jpeg.Canvas.Pen.Color = &HFFFFFF '水印背景颜色
Jpeg.Canvas.Pen.Width = 3
Jpeg.Canvas.Brush.Solid = False
IF Location =0 Then
Jpeg.Canvas.Print (Jpeg.width-60)/2, (Jpeg.height-10)/2, Font '水印显示在图片上的居中位置
ElseIf Location=1 Then
Jpeg.Canvas.Print Jpeg.width-120, 20, Font '水印显示在图片上的右上位置
ElseIF Location=2 Then
Jpeg.Canvas.Print Jpeg.width-120, Jpeg.height-20, Font '水印显示在图片上的右下位置
ElseIF Location=3 Then
Jpeg.Canvas.Print 20, 20, Font '水印显示在图片上的左上位置
Else
Jpeg.Canvas.Print 20, Jpeg.height-20, Font '水印显示在图片上的左下位置
End IF
Jpeg.Save Server.MapPath(Path) '保存水印图片
Set Jpeg = Nothing
End Function
2013-09-25
展开全部
给你思路:1.建立一个新类,实现IHttpHandler接口
注意:改为context.Request.PhysicalPath来获得要访问的图片
2.在web.config中添加如下配置
<httpHandlers>
<add verb="动作,如GET,POST"
path="要捕获的路径"
type="处理的类"/>
</httpHandlers>
如果发布了网站,做如下设置:
1.虚拟目录名称->右键属性->配置
2.添加映射->.后缀
注意:改为context.Request.PhysicalPath来获得要访问的图片
2.在web.config中添加如下配置
<httpHandlers>
<add verb="动作,如GET,POST"
path="要捕获的路径"
type="处理的类"/>
</httpHandlers>
如果发布了网站,做如下设置:
1.虚拟目录名称->右键属性->配置
2.添加映射->.后缀
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-25
展开全部
遇到过问题,注册表aspjpeg项的权限问题;
把ASPJPEG的安装目录指派everyone权限,试一下,
如果不行,开始->运行 输入regedit 找到 aspjpeg项,具体的我忘了,我用的电脑也没装,你试着找下,找到后改下权限肯定就行了,呵呵,
把ASPJPEG的安装目录指派everyone权限,试一下,
如果不行,开始->运行 输入regedit 找到 aspjpeg项,具体的我忘了,我用的电脑也没装,你试着找下,找到后改下权限肯定就行了,呵呵,
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询