PHP很容易啊, 只要把一张小的图片 COPY 到 大的上就可以了, 设置一下透明度 就OK了
解决方案 »
- ebay or paypal 技术应用与支持
- PHP中过滤器的问题
- 求个php处理xml的程序,在线等.
- 在PHP中使用OOP有什么好处?
- 请教php数据后台静态自动提交的问题
- mysql数据库操作问题
- 菜鸟求救!!
- 怎样判断论坛新贴的问题!!!
- 怎么使用cookie?
- 在SQL语句中使用BETWEEN是否会提高数据提取速度? 有没有比较节约资源的翻页代码?
- Notice: mysql_connect(): SQL safe mode in effect - ignoring host/user/password information in E:\php\chinaTaiWaiSeerver\dgtsfron
- 大家看看做一个完整的这样的网站:http://www.qxzw.com
<%
UpFilePath="IMGWSF/"
fileweb="UPLOAD/"
nameset =1
pathset =0
dim i
i=1
%>
<%
function makefilename(fname)
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
makefilename=fname
end function
%>
<!--#include FILE="upload_5xsoft.inc"-->
<%
dim upload,file,formName,iCount
dim url,url1
set upload=new upload_5xSoft ''建立上传对象iCount=0
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
fname = makefilename(now()) & iCount & "." & GetExtendName(file.FileName)
file.SaveAs Server.mappath(UpFilePath&fname) ''保存文件
iCount=iCount+1
response.write"<font size=""2"">图片"&i&"</font> <input type=""text"" name="""&i&""" size=""55"" style=""border-style: solid; border-width: 1"" value="""&fileweb&UpFilePath&fname&"""><br>"
i=i+1
set file=nothing
end if
next
set upload=nothing ''删除此对象sub HtmEnd(Msg)
set upload=nothing
end sub
function GetExtendName(FileName)
dim ExtName
ExtName = LCase(FileName)
ExtName = right(ExtName,3)
ExtName = right(ExtName,3-Instr(ExtName,"."))
GetExtendName = ExtName
end function
%>
'*添加水印图片 添加时请关闭水印字体*
'//读取添加的图片
'Logobox.Open LogoPath
'//重新设置图片的大小
'Logobox.Width = 180 '// 加入图片的原宽度
'Logobox.Height = 60 '// 加入图片的原高度
'*添加水印图片*Set ogvbox = Server.CreateObject("Persits.Jpeg")
' 读取要处理的原文件
ogvbox.Open Trim(Server.MapPath(imagename))
' Open a logo file
Set Logobox = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("images") & "\inlogo.gif"
Logobox.Open LogoPath
' resize logo image, preserve aspect ratio
Logobox.Width = 180
Logobox.Height = Logobox.Width * Logobox.OriginalHeight / Logobox.OriginalWidthIf ogvbox.OriginalWidth<Cint(ImageWidth) or ogvbox.Originalheight<Cint(ImageHeight) Then
F_Viewname=""
Set ogvbox = Nothing
Exit Sub
Else
IF ImageMode<>"" and FileExt<>"gif" Then
'//关于修改字体及文字颜色的
ogvbox.Canvas.Font.Color = &H000000 '// 文字的颜色
ogvbox.Canvas.Font.Family = "Arial Black" '// 文字的字体
ogvbox.Canvas.Font.Size = 20 '//(文字的大小)
'ogvbox.Canvas.Font.Bold = True
' Draw frame: black, 2-pixel width
ogvbox.Canvas.Print 10, 10, ImageMode '// 加入文字的位置坐标
ogvbox.Canvas.Pen.Color = &H000000 '// 边框的颜色
ogvbox.Canvas.Pen.Width = 1 '// 边框的粗细
ogvbox.Canvas.Brush.Solid = False '// 图片边框内是否填充颜色
'ogvbox.DrawImage 10, 10, Logobox '// 加入图片的位置价坐标(添加水印图片)可以删除去掉此效果
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height '// 图片边框线的位置坐标
ogvbox.Save Server.MapPath(imagename) '// 生成文件
End If
ogvbox.Width = ImageWidth
ogvbox.height = ImageHeight
'ogvbox.height = ogvbox.Originalheight*ImageWidth\ogvbox.OriginalWidth
ogvbox.Sharpen 1, 120
ogvbox.Save Server.MapPath(tempFilename) '// 生成预览文件
End If
Set Logobox=Nothing
STXINWEI.TTF是字体文件的路径名+文件名
这就是一个简单的测试。如果要调整更复杂的显示效果,只要修改一下类中的属性就可以了,例如把字体放大就可以
$img->wm_text_size = 20;
增加水印图片就可以
$img->wm_image_name="文件名";
http://www.discuz.net/viewthread.php?tid=33823&fpage=10&sid=5LhYAN