网页中的水印代码加到那个ASP文件里面？

答案:6 悬赏:10

解决时间 2021-04-09 16:13

提问者网友：喵星人荷西
2021-04-09 11:21

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg") '创建组件
Jpeg.Open Server.MapPath("images.jpg") '打开图片
'也可以用OpenBinary读取二进制数据
'以下是写入水印文字
Jpeg.Canvas.Font.Color = &H000000 '颜色,这里是设置成:黑
Jpeg.Canvas.Font.Family = "宋体" '设置字体
Jpeg.Canvas.Font.Bold = True '是否设置成粗体
Jpeg.Canvas.Font.Size = 12 '字体大小
Jpeg.Canvas.Print 100, 100, "http://www.s8mp.com" '在相应的位置打印文字，如果靠右可以用Jpeg.Canvas.Print Jpeg.width-160,Jpeg.height-30,"kwhweb.com"
Jpeg.Save Server.MapPath("images.jpg") '保存图片!
Set Jpeg = Nothing
%>
这个代码要加到那个ASP文件里面啊。

最佳答案

二级知识专家网友：抱不住太阳的深海
2021-04-09 12:05

首先要知道你是如何把图片搞上去的,如果是利用ASP文件进行上传的话,那么这个代码就放到那个上传处理的ASP文件里去

如果你是利用FTP方法上传的图片,那么随便放到一个你需要的ASP文件里即可,专门为其新建一个也没问题!

对ASPJPEG更多高级方法如果不会使用,可以联系我探讨一下!

全部回答

1楼网友：蜜罐小熊
2021-04-09 16:09

要放到上面哦！记得也把带有＊class后缀名也放上去哦！

2楼网友：深街酒徒
2021-04-09 15:48

把代码放到每个需要水印的asp网页的开头（“<html>”前面）

3楼网友：夢想黑洞
2021-04-09 14:14

放到你用来上传图片的程序里，上传时加水印。

4楼网友：狠傷凤凰
2021-04-09 13:36

用得着这个？

5楼网友：啵啵桃汀
2021-04-09 12:40

<% ''''''''''''''''''''''''''''''''''''''''' ' ' ' 袜子无组件上传程序 ' ' ' ' E-mail:[email protected] ' ' ' ' QQ:42115553 ' ' ' ' 2006-8-18 ' ' ' ' 欢迎大家与我交流编程经验 ' ' ' ' 请尊重作者劳动成果,转载请保留以上信息 ' ' ' ''''''''''''''''''''''''''''''''''''''''' Dim stream1,stream2,istart,iend,filename istart=1 vbEnter=Chr(13)&Chr(10) function getvalue(fstr,foro,paths)'fstr为接收的名称，foro布尔false为文件上传,true 为普通字段，path为上传文件存放路径 if foro then getvalue="" istart=instring(istart,fstr) istart=istart+len(fstr)+5 iend=instring(istart,vbenter+"-----------------------------") if istart>5+len(fstr) then getvalue=substring(istart,iend-istart) else getvalue="" end if else istart=instring(istart,fstr) istart=istart+len(fstr)+13 iend=instring(istart,vbenter)-1 filename=substring(istart,iend-istart) filename9=right(getfilename(filename),4)'取原文件后缀 filename8=year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())&int(9*10^3*rnd)+10^3'取随机文件名, '如果你要加长文件名,请修改(100*rnd)中100的值 filename=replace(getfilename(filename),getfilename(filename),filename8) '替换原文件名,活用replace函数 filename=filename&filename9 '加上文件后缀,规则为生成的随机文件名加上原文件后缀 istart=instring(iend,vbenter+vbenter)+3 iend=instring(istart,vbenter+"-----------------------------") filestart=istart filesize=iend-istart-1 objstream.position=filestart Set sf = Server.CreateObject("ADODB.Stream") sf.Mode=3 sf.Type=1 sf.Open objstream.copyto sf,FileSize if filename<>"" then Set rf = Server.CreateObject("Scripting.FileSystemObject") i=0 fn=filename while rf.FileExists(server.mappath(paths+fn)) fn=cstr(i)+filename i=i+1 wend filename=fn sf.SaveToFile server.mappath(paths+filename),2 ''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Jpeg Set Jpeg = Server.CreateObject("Persits.Jpeg") If -2147221005=Err then Response.write "没有这个组件，请安装!" '检查是否安装AspJpeg组件 Response.End() End If Jpeg.Open (server.mappath(paths+filename)) '打开图片 If err.number then Response.write"打开图片失败,请检查路径！" Response.End() End if Dim aa aa=Jpeg.Binary '将原始数据赋给aa '=========加文字水印================= Jpeg.Canvas.Font.Color = &Hff0000 '水印文字颜色 Jpeg.Canvas.Font.Family = Arial'字体 Jpeg.Canvas.Font.Bold = True '是否加粗 Jpeg.Canvas.Font.Size = 30'字体大小 Jpeg.Canvas.Font.ShadowColor = &H000000 '阴影色彩 Jpeg.Canvas.Font.ShadowYOffset = 1 Jpeg.Canvas.Font.ShadowXOffset = 1 Jpeg.Canvas.Brush.Solid = True Jpeg.Canvas.Font.Quality = 4 '输出质量 Jpeg.Canvas.PrintText Jpeg.OriginalWidth/2-100,Jpeg.OriginalHeight/2+20,"www.my9933.com" '水印位置及文字 bb=Jpeg.Binary '将文字水印处理后的值赋给bb，这时，文字水印没有不透明度 '============调整文字透明度================ Set MyJpeg = Server.CreateObject("Persits.Jpeg") MyJpeg.OpenBinary aa Set Logo = Server.CreateObject("Persits.Jpeg") Logo.OpenBinary bb MyJpeg.DrawImage 0,0, Logo, 0.2 '0.3是透明度 cc=MyJpeg.Binary '将最终结果赋值给cc,这时也可以生成目标图片了 response.BinaryWrite cc '将二进输出给浏览器 MyJpeg.Save (server.mappath(paths+filename)) set aa=nothing set bb=nothing set cc=nothing Jpeg.close MyJpeg.Close Logo.Close ''''''''''''''''''''''''''''''''''''''''''''''''''''' end if getvalue=filename end if end function Function subString(theStart,theLen) dim i,c,stemp objStream.Position=theStart-1 stemp="" for i=1 to theLen if objStream.EOS then Exit for c=ascB(objStream.Read(1)) If c > 127 Then if objStream.EOS then Exit for stemp=stemp&Chr(AscW(ChrB(AscB(objStream.Read(1)))&ChrB(c))) i=i+1 else stemp=stemp&Chr(c) End If Next subString=stemp End function Function inString(theStart,varStr) dim i,j,bt,theLen,str InString=0 Str=toByte(varStr) theLen=LenB(Str) for i=theStart to objStream.Size-theLen if i>objstream.size then exit Function objstream.Position=i-1 if AscB(objstream.Read(1))=AscB(midB(Str,1)) then InString=i for j=2 to theLen if objstream.EOS then inString=0 Exit for end if if AscB(objstream.Read(1))<>AscB(MidB(Str,j,1)) then InString=0 Exit For end if next if InString<>0 then Exit Function end if next End Function Private function GetFileName(FullPath) If FullPath <> "" Then GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1) Else GetFileName = "" End If End function function toByte(Str) dim i,iCode,c,iLow,iHigh toByte="" For i=1 To Len(Str) c=mid(Str,i,1) iCode =Asc(c) If iCode<0 Then iCode = iCode + 65535 If iCode>255 Then iLow = Left(Hex(Asc(c)),2) iHigh =Right(Hex(Asc(c)),2) toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh) Else toByte = toByte & chrB(AscB(c)) End If Next End function %>

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！