问一个上传图片时自动加 文字 水印 效果的问题？

[tianyalove2008]

想在这个页面上传图片时自动加上公司的文字LOGO 该如何添加组件
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><form id="form1" name="form1" method="post" action="jc_add_save.asp" enctype="multipart/form-data">
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
<td height="24" colspan="4" bgcolor="#AABFEC">建材图片添加</td>
</tr>
<tr>
<td height="24" bgcolor="#F3F3F3">建材图片上传：</td>
<td colspan="3" bgcolor="#F3F3F3"><input name="pic" type="file" class="face"></td>
</tr>
<tr>
<td height="24" bgcolor="#F3F3F3">图片说明：</td>
<td colspan="3" bgcolor="#F3F3F3"><label>
<textarea name="jc_sm" id="jc_sm"></textarea>
</label></td>
</tr>
<tr>
<td height="24" bgcolor="#AABFEC"> </td>
<td colspan="3" bgcolor="#AABFEC"><label>
<input type="submit" name="Submit" value="提交" />
</label>
<label>
<input type="reset" name="Submit2" value="重置" />
</label></td>
</tr>
</table>
</form> </td>
</tr>
</table>

[Anlige]

http://blog.ii-home.cn/search.asp?keyword=jpeg&table=all
http://blog.ii-home.cn/search.asp?keyword=upload&table=all

[sy_binbin]

ASPJPEG组件有这功能

Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立对象
Jpeg.Open BlogPath & "/upload/" & FileName ' 图片所在位置
Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑
Jpeg.Canvas.Font.Family = "方正隶变简体" ' 设置字体
Jpeg.Canvas.Font.Bold = False '是否设置成粗体
Jpeg.Canvas.Font.Size = 26 '字体大小
Jpeg.Canvas.Font.Quality = 4 ' 文字清晰度
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, "WWW.WILLIAMLONG.INFO" '水印文字
Jpeg.Save BlogPath & "/upload/" & FileName ' 保存文件
Set Jpeg = Nothing

[jacklinchen]

用ASPJPEG组件，此组件要下载，并在本机注册

[jhwcd]

用ASPjpeg就可以了。

[jhwcd]

<%
' 添加文字水印
Set JpegBigWord = Server.CreateObject("Persits.Jpeg")
' 打开目标图片
JpegBigWord.Open Server.MapPath("/UploadFile/productpic/"&secendname&"")
JpegBigWord.Canvas.Font.Color = &HFF8409'F7F700 '红色
JpegBigWord.Canvas.Font.Family = "arial"'"time new roman"
JpegBigWord.Canvas.Font.Bold = false  
JpegBigWord.Canvas.Font.size =12
JpegBigWord.Canvas.Print 200, 200, "www.xxx.com"
Dim aa '
aa=JpegBigWord.Binary


JpegBigWord.Canvas.Font.Color = &Hffffff'&H797979'CCCCFF'8E8E8E'B2B2B2'灰色
JpegBigWord.Canvas.Font.ShadowColor = &H6D6D6D'&H000000  '//水印文字的阴影色彩。
JpegBigWord.Canvas.Font.ShadowXoffset = 1
JpegBigWord.Canvas.Font.ShadowYoffset = 1
JpegBigWord.Canvas.Font.Quality = 2 
JpegBigWord.Canvas.Font.Family = "宋体"
JpegBigWord.Canvas.Font.Bold = true  
JpegBigWord.Canvas.Font.size =companyfontsize
JpegBigWord.Canvas.Print JpegBigWord.OriginalWidth*0.5, JpegBigWord.OriginalHeight*0.5, "全球皮包公司"
dim bb
bb=JpegBigWord.Binary

'============调整文字透明度================ 
Set MyJpeg = Server.CreateObject("Persits.Jpeg")  
    MyJpeg.OpenBinary aa 
   
Set sypic = Server.CreateObject("Persits.Jpeg")  
         sypic.OpenBinary bb 
         MyJpeg.DrawImage 0,0, sypic, 0.2  '0.3是透明度 
cc=MyJpeg.Binary  '将最终结果赋值给cc,这时也可以生成目标图片了 
'response.BinaryWrite cc '将二进输出给浏览器 
MyJpeg.Save Server.MapPath("/UploadFile/productpic/"&secendname)
'MyJpeg.Save (TargetFile)
'end if 
'JpegBigWord.Save Server.MapPath("images/"&secendname)
'------------------图片在加文字结束------------------
'end if 
'注销实例

'图片上传成功
set aa=nothing 
set bb=nothing 
set cc=nothing 
%>

[tianyalove2008]

还是不懂啊，具体怎么应用啊，你们给的代码要写在单独的页面文件里吗？要是像我提问给的那段上传图片代码，该怎么调用？？

[jhwcd]

[Quote=引用 5 楼 tianyalove2008 的回复:]
还是不懂啊，具体怎么应用啊，你们给的代码要写在单独的页面文件里吗？要是像我提问给的那段上传图片代码，该怎么调用？？
[/Quote]
在上传的程序中，写入ASPjpeg组件的代码就可以了。

[tianyalove2008]

王东 大侠 能写一个完整的上传图片页面帖上来吗？像我的这个页面该加在什么地方
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <form id="form1" name="form1" method="post" action="jc_add_save.asp" enctype="multipart/form-data">
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
<td height="24" colspan="4" bgcolor="#AABFEC">建材图片添加 </td>
</tr>
<tr>
<td height="24" bgcolor="#F3F3F3">建材图片上传： </td>
<td colspan="3" bgcolor="#F3F3F3"> <input name="pic" type="file" class="face"> </td>
</tr>
<tr>
<td height="24" bgcolor="#F3F3F3">图片说明： </td>
<td colspan="3" bgcolor="#F3F3F3"> <label>
<textarea name="jc_sm" id="jc_sm"> </textarea>
</label> </td>
</tr>
<tr>
<td height="24" bgcolor="#AABFEC">  </td>
<td colspan="3" bgcolor="#AABFEC"> <label>
<input type="submit" name="Submit" value="提交" />
</label>
<label>
<input type="reset" name="Submit2" value="重置" />
</label> </td>
</tr>
</table>
</form> </td>
</tr>
</table>

不好意思，新手，是在是不懂了，多包涵！！

[sy_binbin]

放在jc_add_save.asp这个页面去处理

在网上找找无组件上传的代码

上传成功后把处理水印的代码加上就可以了

[ld2099]

使用组件
铁匠或者ASPjpeg都可以，上传也可以使用铁匠或者aspupload
只要你空间支持上面组件即可

下载组件，里面有例子