紧急求助! 如果实现上传图片自动加水印功能?
以下引用:
ASP给图片加水印是需要组件的...常用的有aspjpeg软件和中国人自己开发的wsImage软件测绘资质怎么上传出水印，可以上网搜索下载这两个软件，推荐使用咱们中国人自己开发的wsImage，毕竟是中文版，容易操作．
注册组件的方法:
命令提示符下输入"regsvr32 [Dll路径]" 就可以测绘资质怎么上传出水印了．
图片添加水印无非就是获得图片大小,然后把水印写上去..ASP代码只是起个控制组件的作用.用代码来说明一切吧.
一:获得图片大小(这里是用象素值表示的.学PhotoShop的朋友都应该明白)
%
set obj=server.CreateObject("wsImage.Resize") ''调用组件
obj.LoadSoucePic server.mappath("25.jpg") ''打开图片,图片名字是25.jpg
obj.GetSourceInfo iWidth,iHeight
response.write "图片宽度:" iWidth "br" ''获得图片宽度
response.write "图片高度:" iHeight "br" ''获得图片高度
strError=obj.errorinfo
if strError"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%
''----------------------------------------------------------------''
二:添加文字水印
%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''装载图片
obj.Quality=75
obj.TxtMarkFont = "华文彩云" ''设置水印文字字体
obj.TxtMarkBond = false ''设置水印文字的粗细
obj.MarkRotate = 0 ''水印文字的旋转角度
obj.TxtMarkHeight = 25 ''水印文字的高度
obj.AddTxtMark server.mappath("txtMark.jpg"), "带你离境", H00FF00, 10, 70
strError=obj.errorinfo ''生成图片名字,文字颜色即水印在图片的位置
if strError"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%
''----------------------------------------------------------------''
三:添加图片水印
%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''装载图片
obj.LoadImgMarkPic server.mappath("blend.bmp") ''装载水印图片
obj.Quality=75
obj.AddImgMark server.mappath("imgMark.jpg"), 315, 220,hFFFFFF, 70
strError=obj.errorinfo ''生成图片名字,文字颜色即水印在图片的位置
if strError"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%
''----------------------------------------------------------------''
其实给图片添加水印就这么简单.然后测绘资质怎么上传出水印我在说下WsImage.dll组件的另外两个主要用法.包括:
剪裁图片,生成图片的缩略图.
还是以我得习惯,用代码加注释说明:
剪裁图片:
%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg")
obj.Quality=75
obj.cropImage server.mappath("25_crop.jpg"),100,10,200,200 ''定义裁减大小和生成图片名字
strError=obj.errorinfo
if strError"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%
详细注释:裁减图片用到测绘资质怎么上传出水印了WsImage的CropImage方法.其中定义生成图片时候,100,10是左上角的裁减点,即离图片左边是100象素,顶端10象素.后两个200代表的是裁减的宽带和高和高度.
''----------------------------------------------------------------''
生成图片缩略图:
%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''加载图片
obj.Quality=75
obj.OutputSpic server.mappath("25_s.jpg"),0.5,0.5,3 ''定义缩略图的名字即大小
strError=obj.errorinfo
if strError"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%
详细说明:
产生缩略图共有四种导出方式测绘资质怎么上传出水印：
(1) obj.OutputSpic server.mappath("25_s.jpg"),200,150,0
200为输出宽，150为输出高，这种输出形式为强制输出宽高，可能引起图片变形。
(2) obj.OutputSpic server.mappath("25_s.jpg"),200,0,1
以200为输出宽，输出高将随比列缩放。
(3) obj.OutputSpic server.mappath("25_s.jpg"),0,200,2
以200为输出高，输出宽将随比列缩放。
(4) obj.OutputSpic server.mappath("25_s.jpg"),0.5,0.5,3
第一个0.5表示生成的缩略图是原图宽的一半，即表示宽缩小比例。
第二个0.5表示生成的缩略图是原图高的一半，即表示高缩小比例。
宽高的缩小比例一致意味着将对原图进行比例缩小。宽高的缩放比例如果大于1，则对原图进行放大。
希望这点技术性文章对你有帮助．
对了，前几天我写了一个小程序，可以通过WEB来批量给自己的图片增加印章，目前此程序已经被站长站和MBSKY收录了，详细内容和下载地址：
欢迎你下载试用，也可以与我多交流．
google大神:以上都是引用
全国测绘资质管理信息系统(试运行)上传照片咋失败
首先，全国测绘资质管理信息系统上写着照片要求仔细看看，如果照片有问题 最终不能提交，必须照片合格才行。
如果还是不行，建议换个浏览器登录上去进行上传，可能图片切割之类的会不同，从而避免问题照片的产生。
再不行的话去联系能够正常上传图片的人帮忙传以下。
如果以上方法都不行那就是系统出错了，就得联系管理员对系统进行检查、优化。
另外，需要注意的是：上传到测绘资质系统的材料均应为原件彩色扫描件，关键信息清晰易辨。审批机关对于真实性存疑的材料，应当查验原件并到有关网站查询信息或向证件出具部门核实。
上传到平台的图片怎么添加水印
在平台上上传图片，怎么给图片添加水印。自媒体的平台越来越多，现在也是网络时代，很多事情很容易就可以在网上流传开来，上网就可以知道很多东西。
平台可以分享很多东西，分享日常，分享一些有趣的事情。一般喜欢拍照的人会分享一些照片，视频。喜欢拍照的人士，分享照片都会给图片加上水印。加水印，可以保护图片的使用权利，防止被盗图，恶意使用。怎么给图片添加水印呢？我们可以了解这个方法，需要的时候可以用上。
操作步骤：
第一步，左边的选项可以选择功能
第二步，添加需要编辑的图片
第三步，添加水印，可以选择水印类型
第四步，设置水印的位置
第五步，自定义图片的输出位置
第六步，设置完成后就可以点击开始添加
怎样把水印去掉啊？我上传的资质不想加水印可是就是去不掉啊
在图片空间上传图片的时候，下面有个小框，加水印，这里不要打钩，就是不要加水印，就可以了，这样上传的图片就没有水印
在哪设置上传带水印
如果你升级到了急速上传的话是找不到这个设置的，需要点击普通上传-找到设置-添加空间地址-或者自定义水印-上传即可-看下图所示：
丙级测绘资质申请过程是怎样的，准备材料是全部填写在测绘资质申请表上还是在每页表格后附上附件？
申请表是肯定要填的，但附件不是在每页后附上。
按现行多数省的做法（也是国家局的要求），是要在网上申报的，除了填表，还要将所有用得上的材料扫描上传。再打印出来，要带水印的，整理后上报。也就是又有网上报的，又有纸质材料上报。很麻烦的。
获取资料
顾问电话