供应链管理的本质是:上传图片自动加水印,进来看下

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/05 01:36:20
<%
set upload=new upload_Cnese
set file=upload.file("file1")
formPath="/UploadFiles/Product/"
if file.filesize>100 then
fileExt=lcase(right(file.filename,3))
if fileExt="asp" then
Response.Write"文件类型非法"
end if
end if
randomize
ranNum=int(90000*rnd)+10000
filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
if file.FileSize>0 then
file.SaveAs Server.mappath(FileName)
end if
%>

这是一个上传的代码FileName是上传的名字,

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("获取图片名字")
Jpeg.Canvas.Font.Color = &Hff0000' red
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, "JxGx.Net"
Jpeg.Canvas.Pen.Color = &H000000
Jpeg.Canvas.Pen.Width = 2
Jpeg.Canvas.Brush.Solid = False
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
Jpeg.Save Server.MapPath("保存图片名字")
%>这是加水印的代码

请问,我这里的获取的名字这样取的FileName是上传的名字,
这的加水印的代码怎么用???

<%
set upload=new upload_Cnese
set file=upload.file(\"file1\")
formPath=\"/UploadFiles/Product/\"
if file.filesize>100 then
fileExt=lcase(right(file.filename,3))
if fileExt=\"asp\" then
Response.Write\"文件类型非法\"
end if
end if
randomize
ranNum=int(90000*rnd)+10000
filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&\".\"&fileExt
if file.FileSize>0 then
file.SaveAs Server.mappath(FileName)
Set Jpeg = Server.CreateObject(\"Persits.Jpeg\")
Jpeg.Open Server.MapPath(filename)
Jpeg.Canvas.Font.Color = &Hff0000\' red
Jpeg.Canvas.Font.Family = \"宋体\"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, \"JxGx.Net\"
Jpeg.Canvas.Pen.Color = &H000000
Jpeg.Canvas.Pen.Width = 2
Jpeg.Canvas.Brush.Solid = False
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
Jpeg.Save Server.MapPath(filename)

end if
%>