MaxCMS影视系统自动下载替换视频内容中的图片

MaxCMS(马克斯)电影源码程序是一款专业服务于电影网站建设的开源程序，以开源、免费、功能强大、安全健壮、性能卓越、超级易用、模板众多、插件齐全等优势，受到众多企业和站长的喜爱。本文通过修改后台程序，实现maxcms影视程序自动下载保存所有影片内容中的远程图片并替换为本地地址。

首先您需要有安装运行好的maxcms影视系统，熟悉系统后台设置，搞清楚是自己网站用的是默认Access数据库，还是sql server数据库，检查maxcms影视系统是否为4.0版本，因为本教程针对4.0版，其他版本没有测试。

首先要更改数据库结构，添加是否已经下载过内容中的图片标识。

如果是access数据库，就打开/inc目录，修改数据文件datas.asp为datas.mdb，然后用access打开，找到m_data表，然后右键设计视图修改数据结构，添加一个字段m_okcpic，数字类型，不允许轿匠为空，默认0，然后保存，再把文件我改回来。

如果是Ms sql server数据库服务，就用客户端连接到数据库，打开相应网站的数据库，找到m_data表，然后修改数据结构，添加一个字段m_okcpic，int类型，不允许为空，默认0，然后保存。或者在数据库中使用SQl语句，快捷操作，命令如下：

ALTER TABLE m_data ADD m_okcpic Int NOT NULL DEFAULT '0';

以后操作完成后，设置以前所有的影片m_okcpic为0，SQl语句为：

update m_data set m_okcpic=0;

修改添加图片下载功能：

打开admin目录下的睡蚂篇admin_datarelate.asp文件，这个文件主要是用于网站数据操作的，如下载远程图片，影沫言片相同名称检测，数据批量替换，数据修复等，我用就需要在这个文件内添加一个子程序就可以，具体代码为：

Sub downcontentpic

dim i,rsObj,sql,page,fileName,FileExt,filePath,picUrl,downType,isDownOk,vid:isDownOk=falsedim regEx,Match,Matches,content,x,iiddownType=getForm("downtype","get")if table="news" then sql="select top 30 m_id,m_title AS m_name,m_des from {pre}news where m_des like '%正在开始下载数据中的图片
"for i=1 to 30 content=rsObj("m_des"):vid=rsObj("m_id") Set regEx = New RegExp regEx.Pattern =")" regEx.IgnoreCase = true regEx.Global = True Set Matches = regEx.Execute(content) x=0 For Each Match in Matches IF Left(Match.SubMatches(1),7)="http://" Then picUrl=Match.SubMatches(1) filename=mid(picUrl,instrrev(picUrl,"/")+1):fileext=getFileFormat(filename) if fileext="" then:fileext=".jpg":end if filePath = "../pic/"&sitePic&"/"&vid&"_"&x&"_"&getNumTime()&fileext if not isExistFile(filePath) then isDownOk=downSinglePic(picUrl,vid,rsObj("m_name"),filePath,"down") else echo "数据"&rsObj("m_name")&"的图片已经存在 预览图片
" isDownOk=true end if if isDownOk then updatecontentPicUrl vid,content,picUrl,replaceStr(filePath,"../","/") content = replaceStr(content,picUrl,replaceStr(filePath,"../","/")) if waterMark=1 and isInstallObj(JPEG_OBJ_NAME) then writeFontWaterPrint filePath,waterMarkLocation end if else isDownOk=true end if x = x + 1 Next if isDownOk then conn.db "update {pre}"&ifthen(table="news","news","data")&" set m_okcpic=1 where m_id="&vid,"execute" end if '不能下载时，第二次自动略过，定义已经下载 conn.db "update {pre}"&ifthen(table="news","news","data")&" set m_okcpic=1 where m_id="&vid,"execute" rsObj.movenext if rsObj.eof then exit fornext

rsObj.close : set rsObj=nothingecho "
暂停5秒后继续下载"End Sub

添加这个子程序后，保存上传文件。

然后添加后台操作入口（程序链接）：

打开网站admin目录下的admin_video.asp文件，

找到 下载所有网络图片到本地)，再后面添加如下代码：

(下载所有内容中网络图片到本地)

保存上传到网站。

以上操作完成后，打开网站，进入网站后台，点击视频的数据管理，会看到右侧出现了 下载所有内容中网络图片到本地 的链接，点击后会进入下载内容中图片的程序，本程序每次下载30条内容中包含图片的记录，然后自动跳转到下30条，直到所有包含图片内容下载完毕。