https://www.myziyuan.com/
- 好牛通
- http://dl.dbank. com/c04lbetwnr 中间的空格请去掉给你些QQ头像、的PSD源文件楼主。请采纳、！!
- 2021-03-21 19:15:01
- H5支付系统
- <%ll=0.07TargetFile="d:mytest_Text.jpg" Dim Jpeg Set Jpeg = Server.CreateObject("Persits.Jpeg") If -2147221005=Err then Response.write "没有这个组件，请安装!" '检查是否安装AspJpeg组件 Response.End() End If Jpeg.Open Server.MapPath("admin/up/upfile/200759945079609.jpg") '打开图片 If err.number then Response.write"打开图片失败,请检查路径！" Response.End() End if Dim aa aa=Jpeg.Binary '将原始数据赋给aa '=========加文字水印================= Jpeg.Canvas.Font.Color = &Hfffffff '水印文字颜色 Jpeg.Canvas.Font.Family = Arial '字体 Jpeg.Canvas.Font.Bold = True '是否加粗 Jpeg.Canvas.Font.Size = 60 '字体大小 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-250,Jpeg.OriginalHeight/2+300,"www.golftour.com.cn" '水印位置及文字 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, ll'0.3是透明度 cc=MyJpeg.Binary '将最终结果赋值给cc,这时也可以生成目标图片了 response.BinaryWrite cc '将二进输出给浏览器 MyJpeg.Save (TargetFile) set aa=nothing set bb=nothing set cc=nothing Jpeg.close MyJpeg.Close Logo.Close %>
- 2021-02-12 09:16:31
- 万岳科技
- QQ头像水印怎么弄的,点击你的头像，进入设置，点击系统设置（左下角），再点击安全与隐私。再点击申请密码保护。进入一个网页。找到右上角，(欢迎您，xxx昵称(xxxxxxxxx）qq号码）后面的100分（也可能不是）点击。网页变成正在检查请稍等！ 下面第二项是 已开通QQ登录保护 您已设置了登录QQ时需要验证密保。 点击后面的《查看设置》 。找到 已开通： QQ登录保护 示意 修改 关闭 您已设置了在所有地点登录QQ、登录网页时验证密保。 点击关闭，输入验证码就取消了！
- 2021-02-12 09:16:31
开通会员