[下载]AddPhotoPro V1.1 批量图片添加插件 For KesionCMS-图片管理

>>>>非官方程序！请自行考虑是否使用！<<<

批量发图程序全面升级为PRO版！功能更全！使用更方便！

如果你是以下情况，请使用本程序！
 ·当你有100、1000、或10000再或更多张图片......
 ·当你想让这些图片1张对应一个图片集（即1张图片就为一篇文章生成一个HTML文件）......
 ·当你想让10000张图片以每10张一个图片集......
 ·当你想让一个图片集中一次性包含10000张图片......

请下载：AddPhotoPro V1.1批量图片添加程序

下载信息  [文件大小：60.73 KB 下载次数： 次]

点击下载文件:

－－－－－－－－－－－－－－－－－－－－－
 部分效果如下：

－－－－－－－－－－－－－－－－－－－－－
声明：个人开发，水平有限，非官方程序，仅供参考。
制作：archer100=mag796fd=www.bayqu.com
补充使用说明：当批发完毕按照提示,再自己刷新一下最新添加的N个图片即可.
－－－－－－－－－－－－－－－－－－－－－

界面样式：（此界面为1.0界面，1.1增加输入路径格式选择，其他无大改变。）

此主题相关图片如下：

－－－－－－－－－－－－－－－－－－－－－

使用后上组图：{$GetPrevPicture} 下组图： {$GetNextPicture}标签使用后顺序混乱补丁：

SysCls目录下的，KS_RefreshCls.asp文件中的1660行和1662行中的AddDate换成ID，即可。改完重新发布页面。

   If Trim(TypeStr) = "Prev" Then
       SqlStr = " SELECT Top 1 ID,Tid,Title,InfoPurview,ReadPoint,Fname From KS_Photo Where Tid='" & Trim(Tid) & "' And ID<" & NowID & " And Verific=1 and  DelTF=0 Order By ID Desc"
   ElseIf Trim(TypeStr) = "Next" Then
       SqlStr = " SELECT Top 1 ID,Tid,Title,InfoPurview,ReadPoint,Fname From KS_Photo Where Tid='" & Trim(Tid) & "' And ID>" & NowID & " And Verific=1 and  DelTF=0 Order By ID"

－－－－－－－－－－－－－－－－－－－－

[下载]AddPhotoPro V1.1 批量图片添加插件 For KesionCMS-图片管理

>>>>非官方程序！请自行考虑是否使用！<<<

批量发图程序全面升级为PRO版！功能更全！使用更方便！

如果你是以下情况，请使用本程序！
 ·当你有100、1000、或10000再或更多张图片......
 ·当你想让这些图片1张对应一个图片集（即1张图片就为一篇文章生成一个HTML文件）......
 ·当你想让10000张图片以每10张一个图片集......
 ·当你想让一个图片集中一次性包含10000张图片......

请下载：AddPhotoPro V1.1批量图片添加程序

下载信息  [文件大小：60.73 KB 下载次数： 次]

点击下载文件:

－－－－－－－－－－－－－－－－－－－－－
 部分效果如下：

－－－－－－－－－－－－－－－－－－－－－
声明：个人开发，水平有限，非官方程序，仅供参考。
制作：archer100=mag796fd=www.bayqu.com
补充使用说明：当批发完毕按照提示,再自己刷新一下最新添加的N个图片即可.
－－－－－－－－－－－－－－－－－－－－－

界面样式：（此界面为1.0界面，1.1增加输入路径格式选择，其他无大改变。）

此主题相关图片如下：

－－－－－－－－－－－－－－－－－－－－－

使用后上组图：{$GetPrevPicture} 下组图： {$GetNextPicture}标签使用后顺序混乱补丁：

SysCls目录下的，KS_RefreshCls.asp文件中的1660行和1662行中的AddDate换成ID，即可。改完重新发布页面。

   If Trim(TypeStr) = "Prev" Then
       SqlStr = " SELECT Top 1 ID,Tid,Title,InfoPurview,ReadPoint,Fname From KS_Photo Where Tid='" & Trim(Tid) & "' And ID<" & NowID & " And Verific=1 and  DelTF=0 Order By ID Desc"
   ElseIf Trim(TypeStr) = "Next" Then
       SqlStr = " SELECT Top 1 ID,Tid,Title,InfoPurview,ReadPoint,Fname From KS_Photo Where Tid='" & Trim(Tid) & "' And ID>" & NowID & " And Verific=1 and  DelTF=0 Order By ID"

－－－－－－－－－－－－－－－－－－－－

配合 百趣随机字符串批量改名器 V3.0 更加的心应手!

－－－－－－－－－－－－－－－－－－－－

[此贴子已经被作者于2006-9-3 17:50:53编辑过]

－－－－－－－－－－－－－－－－－－－－－

使用后上组图：{$GetPrevPicture} 下组图： {$GetNextPicture}标签使用后顺序混乱补丁：

SysCls目录下的，KS_RefreshCls.asp文件中的1660行和1662行中的AddDate换成ID，即可。改完重新发布页面。

   If Trim(TypeStr) = "Prev" Then
       SqlStr = " SELECT Top 1 ID,Tid,Title,InfoPurview,ReadPoint,Fname From KS_Photo Where Tid='" & Trim(Tid) & "' And ID<" & NowID & " And Verific=1 and  DelTF=0 Order By ID Desc"
   ElseIf Trim(TypeStr) = "Next" Then
       SqlStr = " SELECT Top 1 ID,Tid,Title,InfoPurview,ReadPoint,Fname From KS_Photo Where Tid='" & Trim(Tid) & "' And ID>" & NowID & " And Verific=1 and  DelTF=0 Order By ID"

－－－－－－－－－－－－－－－－－－－－

for 科汛CMS

就是他的插件的说。