实现远程存图目录细化到模型里面去-领先建站CMS提供服务商我们专注于CMS建站产品的研发

4174 查看	9 回复

主题：[分享]实现远程存图目录细化到模型里面去 [收藏主题]

转到：

mt56 当前离线

4985 主题	53 广播	17 粉丝

级别:版主

用户积分:23430 分
登录次数:1621 次
注册时间:2007/2/10
最后登录:2022/9/28

mt56 发表于：2009/1/8 13:05:00 | 只看该作者查看该作者主题楼主

做线上考试培训就选#科汛网校

在官方的指导下实现远程存图目录细化到模型里面去：

打开admin/KS.Article.asp找到：
If KS.Setting(96) = "1" Then
SaveFilePath = KS.Setting(3) & KS.Setting(92) & Year(Now()) & "-" & Right("0" & Month

(Now()), 2) & "/"
Else
SaveFilePath = KS.Setting(3) & KS.Setting(92)
End If

改成：

If KS.Setting(96) = "1" Then
SaveFilePath = KS.Setting(3) & KS.Setting(92) & KS.C_S(ChannelID,10) & "/" & Year(Now()) & "-" & Right("0" & Month

(Now()), 2) & "/"
Else
SaveFilePath = KS.Setting(3) & KS.Setting(92) & "/" & KS.C_S(ChannelID,10)
End If

完成了！

好东西大家一起分享！

做新职业技能培训平台就选#科汛网校

支持(0) |

反对(0)

顶端

底部

goon2005 当前离线

740 主题	1 广播	0 粉丝

级别:六年级

用户积分:3504 分
登录次数:229 次
注册时间:2006/10/31
最后登录:2018/2/26

goon2005 发表于：2009/1/8 15:00:00 | 只看该作者查看该作者主题沙发

做官网就用科汛智能建站系统!

感觉不错，希望官方发布新版的时候加进去

做考试题库就用#科汛在线考试系统!

支持(0) |

反对(0)

顶端

底部

iamcay 当前离线

879 主题	11 广播	1 粉丝

级别:七年级

用户积分:5479 分
登录次数:207 次
注册时间:2006/8/30
最后登录:2016/11/20

iamcay 发表于：2009/1/8 14:58:00 | 只看该作者查看该作者主题藤椅

一分钟快速开通线上知识店铺

收藏了

科汛商学院助您快速入门

支持(0) |

反对(0)

顶端

底部

kemi 当前离线

190 主题	0 广播	0 粉丝

级别:一年级

用户积分:1511 分
登录次数:56 次
注册时间:2008/6/6
最后登录:2010/11/17

kemi 发表于：2009/1/8 14:29:00 | 只看该作者查看该作者主题板凳

有生源找课程就上科汛课堂街!

————BY：科汛官方

添加这个显示LZ很诚信！

收藏了

做考试题库就用#科汛在线考试系统!

支持(0) |

反对(0)

顶端

底部

mt56 当前离线

4985 主题	53 广播	17 粉丝

级别:版主

用户积分:23430 分
登录次数:1621 次
注册时间:2007/2/10
最后登录:2022/9/28

mt56 发表于：2009/1/8 14:12:00 | 只看该作者查看该作者主题报纸

一分钟快速开通线上知识店铺

以下是引用MSAD在2009-1-8 13:56:00的发言：

正是正是，已经修改好了，并且测试了下。很不错的说，感谢。

要是在各个模块下面在细分到各个用户下就好了。

admin/ks.article.asp

找到

      If KS.ChkClng(KS.G("BeyondSavePic")) = 1 And CInt(Changes) <> 1 Then
       If KS.Setting(96) = "1" Then
         SaveFilePath = KS.ReturnChannelUpFilesDir(ChannelID) & KS.Setting(3) & KS.Setting(92) & Year(Now()) & "-" & Right("0" & Month(Now()), 2) & "/"
       Else
         SaveFilePath = KS.ReturnChannelUpFilesDir(ChannelID) & KS.Setting(3) & KS.Setting(92)
       End If
         KS.CreateListFolder (SaveFilePath)
         ArticleContent = KS.ReplaceBeyondUrl(ArticleContent, SaveFilePath)
      End If

增加红色代码

————BY：科汛官方

做考试题库就用#科汛在线考试系统!

支持(0) |

反对(0)

顶端

底部