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

3994 查看	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)

顶端

底部

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)

顶端

底部