| 网站首页 | QQ个性库 | 微信 | 软件下载 | 免费素材 | 桌面美化 | 源码中心 | 教程中心 | 另类图片 | 
 第一站 >> 教程中心 >> 网站类 >> 动易CMS >> 
动易系统软件频道增加远程存图和自动水印功能
作者:佚名 文章来源:Onegreen.Net 浏览次数:(载入中...) 更新时间:2014-10-27

使用动易系统建站的人都知道,现在推出的最新版本是6.6版,其中的软件下载频道,编辑器功能很简单,而且软件频道里,复制了其他站点的内容后,不能自动下载软件内容里的图片,而且还不能添加水印。只能够把外站的图片一个一个地下载到本地,然后一个一个地上传到下载频道里的编辑器里。
这样很浪费我们编辑人员的时间,大大地加大了编辑人员的工作量,浪费人力,财力不说,更会让编辑觉得工作更枯燥,影响编辑人员的心情,工作效率大大地降低了。本程序由361du.net原创修改动易程序,为大家解决麻烦,使动易程序更人性化,更加完善,若有转载的朋友,请务必注明原文出处,尊重别人的劳动果实。
具体的修改步骤如下:
1、修改包含文件:
打开动易程序admin/admin_soft.asp,把上面的包含代码修改成和admin_article.asp一样:
<!--#include file="Admin_Common.asp"-->
<!--#include file="Admin_CommonCode_Content.asp"-->
<!--#include file="../Include/PowerEasy.CreateThumb.asp"-->
<!--#include file="../Include/PowerEasy.SendMail.asp"-->
<!--#include file="../Include/PowerEasy.Common.Content.asp"-->
<!--#include file="../Include/PowerEasy.FSO.asp"-->
<!--#include file="../Include/PowerEasy.XmlHttp.asp"-->
2、添加软件时设置远程存图和添加水印
找到sub add()过程里的代码(大概1129行):
找到代码:
    Response.Write "            <td width=120 align=right class=tdbg5>" & ChannelShortName & "简介:</td>"
    Response.Write "            <td><textarea name=SoftIntro cols=80 rows=10 id=SoftIntro style=display:none></textarea>"
    Response.Write "                <iframe ID=editor src=../editor.asp?ChannelID=" & ChannelID & "&ShowType=3&tContentid=SoftIntro frameborder=1 scrolling=no width=700 height=200 ></iframe>"
修改成:
    Response.Write "            <td width=120 align=right class=tdbg5>" & ChannelShortName & "简介:"
  If EnableSaveRemote = True And IsObjInstalled("Microsoft.XMLHTTP") = True Then
        Response.Write "<table><tr><td><input type=checkbox name=SaveRemotePic value=Yes checked></td><td>自动下载" & ChannelShortName & "内容里的图片</td>"
        If PhotoObject = 1 Then
            Response.Write "<tr><td><input type=checkbox name=AddWatermark value=Yes checked></td><td>是否给" & ChannelShortName & "内容里远程获得的图片加水印</td></tr>"
            Response.Write "<tr><td><input type=checkbox name=AddThumb value=Yes checked></td><td>是否给" & ChannelShortName & "内容里远程获得的第一张图片加缩略图</td></tr>"
        End If
        Response.Write "</tr></table>"
        Response.Write "<div align=left><font color=#006600>&nbsp;&nbsp;&nbsp;&nbsp;启用此功能后,如果从其它网站上复制内容到右边的编辑器中,并且内容中包含有图片,本系统会在保存" & ChannelShortName & "时自动把相关图片复制到本站服务器上。"
        Response.Write "<br>&nbsp;&nbsp;&nbsp;&nbsp;系统会因所下载图片的大小而影响速度,建议图片较多时不要使用此功能。</font>"
    End If
 response.write "</td>"
    Response.Write "            <td><textarea name=SoftIntro cols=80 rows=10 id=SoftIntro style=display:none></textarea>"
    Response.Write "                <iframe ID=editor src=../editor.asp?ChannelID=" & ChannelID & "&ShowType=0&tContentid=SoftIntro frameborder=1 scrolling=no width=700 height=600 ></iframe>"
3、修改软件时设置远程存图和添加水印
找到sub Modify()过程里的代码(大概1375行):
找到代码:
    Response.Write "            <td width=120 align=right class=tdbg5>" & ChannelShortName & "简介:</td>"
    Response.Write "            <td><textarea name=SoftIntro cols=80 rows=10 id=SoftIntro style=display:none>" & Server.HTMLEncode(FilterBadTag(rsSoft("SoftIntro"), rsSoft("Inputer"))) & "</textarea>"
    Response.Write "                <iframe ID=editor src=../editor.asp?ChannelID=" & ChannelID & "&ShowType=0&tContentid=SoftIntro frameborder=1 scrolling=no width=700 height=200 ></iframe>"
修改成:
    Response.Write "            <td width=120 align=right class=tdbg5>" & ChannelShortName & "简介:"
 If EnableSaveRemote = True And IsObjInstalled("Microsoft.XMLHTTP") = True Then
        Response.Write "<table><tr><td><input type=checkbox name=SaveRemotePic value=Yes checked></td><td>自动下载" & ChannelShortName & "内容里的图片</td>"
        If PhotoObject = 1 Then
            Response.Write "<tr><td><input type=checkbox name=AddWatermark value=Yes checked></td><td>是否给" & ChannelShortName & "内容里远程获得的图片加水印</td></tr>"
            Response.Write "<tr><td><input type=checkbox name=AddThumb value=Yes checked></td><td>是否给" & ChannelShortName & "内容里远程获得的第一张图片加缩略图</td></tr>"
        End If
        Response.Write "</tr></table>"
        Response.Write "<div align=left><font color=#006600>&nbsp;&nbsp;&nbsp;&nbsp;启用此功能后,如果从其它网站上复制内容到右边的编辑器中,并且内容中包含有图片,本系统会在保存" & ChannelShortName & "时自动把相关图片复制到本站服务器上。"
        Response.Write "<br>&nbsp;&nbsp;&nbsp;&nbsp;系统会因所下载图片的大小而影响速度,建议图片较多时不要使用此功能。</font>"
    End If
 response.write "</td>"
 
    Response.Write "            <td><textarea name=SoftIntro cols=80 rows=10 id=SoftIntro style=display:none>" & Server.HTMLEncode(FilterBadTag(rsSoft("SoftIntro"), rsSoft("Inputer"))) & "</textarea>"
    Response.Write "                <iframe ID=editor src=../editor.asp?ChannelID=" & ChannelID & "&ShowType=0&tContentid=SoftIntro frameborder=1 scrolling=no width=700 height=600 ></iframe>"
4、保存远程图片及添加水印:
找到sub SaveSoft()过程里的代码(大概1541行):
找到代码:(大概1748行)
rsSoft("oflink_soft") = Trim(Request.Form("SoftIntro"))
修改成:
 dim oflink_soft
oflink_soft=Trim(Request.Form("SoftIntro"))

 处理图片JS标签代码
    Dim strTemp, strTemp2
    regEx.Pattern = "\<IMG(.[^\<]*)\$\>"
    Set Matches = regEx.Execute(oflink_soft)
    For Each Match In Matches
        regEx.Pattern = "\#(.*)\#"
        Set strTemp = regEx.Execute(Match.value)
        For Each Match2 In strTemp
            strTemp2 = Replace(Match2.value, "&amp;", "&")
            strTemp2 = Replace(strTemp2, "#", "")
            strTemp2 = Replace(strTemp2, "&13;&10;", vbCrLf)
            strTemp2 = Replace(strTemp2, "&9;", "vbTab")
            strTemp2 = Replace(strTemp2, "[!", "<")
            strTemp2 = Replace(strTemp2, "!]", ">")
            oflink_soft = Replace(oflink_soft, Match.value, strTemp2)
        Next
    Next
 将绝对地址转化为相对地址
    Dim strSiteUrl
    strSiteUrl = Request.ServerVariables("HTTP_REFERER")
    strSiteUrl = LCase(Left(strSiteUrl, InStrRev(strSiteUrl, "/") - 1))
    strSiteUrl = Left(strSiteUrl, InStrRev(strSiteUrl, "/")) & ChannelDir & "/"
 If Trim(Request.Form("SaveRemotePic")) = "Yes" And EnableSaveRemote = True Then
        oflink_soft = ReplaceRemoteUrl(oflink_soft)
    End If
 strSiteUrl = InstallDir & ChannelDir & "/"
 oflink_soft=replace(oflink_soft,"/Article/UploadFiles/",strSiteUrl&UploadDir&"/")
    rsSoft("SoftIntro") = oflink_soft
好了,简单的四步就解决这个问题了,如果修改过程中有任何问题或者需要动易这个修改后的程序源文件的朋友,请联系我们吧,我们提供免费技术支持!


关 键 字:动易CMS
相关文章:
动易网站后台解决IE8下无法使用编辑器问题
动易中实现点击图片进入下一张的代码
动易Cms:自定义动态函数标签调用专题名称
动易SiteWeaver利用自定义标签实现随机文章列表
让动易CMS随机排序文章标题列表
  • 上一篇文章:
  • 下一篇文章: 没有了
  • 子栏目导航
     网站架设   SEO 技术
     织网备忘   动易CMS
     帝国CMS   织梦CMS
     PHPWind   WordPress
    最 新 教 程
    最 新 推 荐
    最 新 热 门