采用的版本: ewebeditor version 2.8  aspjpeg V1.3
以下代码支持可选择添加水印，支持添加不同的水印

Aspjpeg组件安装文件下载地址 >>

相关代码如下:

要修改的页面

eWebeditor目录下 \\Dialog\\img.htm
注:蓝色的部分为修改和添加的代码.
第256行开始:
<legend>显示效果</legend>
 <table border=0 cellpadding=0 cellspacing=0>
 <tr><td colspan=9 height=5></td></tr>
 <tr>
  <td width=7></td>
  <td>图片水印:</td>
  <td width=5></td>
  <td colspan=5><select id="d_syy" size=1 onchange="d_file.myform.sy.value=this.value">
  <option selected>无水印</option>
  <option value="1">新浪LOGO</option>
  <option value="2">搜狐LOGO</option>
  <option value="3">网易LOGO</option>
  </select></td>
  <td width=7></td>
 </tr>
 <tr>
  <td width=7></td>
  <td>说明文字:</td>
  <td width=5></td>
  <td colspan=5><input type=text id=d_alt size=38 value="" style="width:243px"></td>
  <td width=7></td>
 </tr>

eWebeditor 目录下的  upload.asp
在上传表单添加隐含字段,用于接收选择添加的水印图片
<form action="?action=save&type=<%=sType%>&style=<%=sStyleName%>&sy=1" method=post name=myform enctype="multipart/form-data">
<input type=file name=uploadfile size=1 style="width:100%">
<input type="hidden" name="sy">
</form>

在处理图片上传的SUB中修改如下:
Sub DoSave()
 Dim oUpload, oFile, sFileExt, sFileName,sy
 \' 建立上传对象
 Set oUpload = New upfile_class
 \' 取得上传数据,限制最大上传
 oUpload.GetData(nAllowSize*1024)
 If oUpload.Err > 0 Then
  Select Case oUpload.Err
  Case 1
   Call OutScript("parent.UploadError(\'请选择有效的上传文件！\')")
  Case 2
   Call OutScript("parent.UploadError(\'你上传的文件总大小超出了最大限制（" & nAllowSize & "KB）！\')")
  End Select
  Response.End
 End If

 Set oFile = oUpload.File("uploadfile")
 sy = oUpload.Form("sy")
 sFileExt = UCase(oFile.FileExt)
 Call CheckValidExt(sFileExt)

 Dim sRnd
 Randomize
 sRnd = Int(900 * Rnd) + 100
 sFileName = year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & sRnd & "." & sFileExt
 oFile.SaveToFile Server.Mappath("uploadfile/"& sFileName)

 Set oFile = Nothing
 Set oUpload = Nothing
 \'图片打水印
 If sy <> "" And Not IsNull(sy) And Not IsEmpty(sy) Then
  call CreateView("uploadfile/"& sFileName,sy)
 End If

 Call OutScript("parent.UploadSaved(\'" & sFileName & "\')")

End Sub

[1] [2] 下一页