先说一下,我之前发的这个贴怎么没有人懂呢.

账号通(修正版集QQ登录、新浪微博登录及支付宝快捷登录的安装包)

http://bbs.kesion.com/forumthread-321070.html

比官方的好多了.

费话不说了.我们继续

先看效果:http://www.hxgzs.net/html/News/News_1221.html

首先打开KS_Cls目录下的 Kesion.CommonCls.asp文件

找到,LoadFsoContentRule函数 大概在900行左右吧.我这个文件二次开发的太多了,我也不知道没改动过的是多少行

修改LoadFsoContentRule函数为:

'替换内容页生成规则

  Function LoadFsoContentRule(ChannelID,ClassID)

     on error resume next

  Dim FsoContentRule:FsoContentRule=C_S(ChannelID,43)

        FsoContentRule=Replace(FsoContentRule,"{$ChannelEname}",Split(C_C(ClassID,2),"/")(0))

        FsoContentRule=Replace(FsoContentRule,"{$ClassDir}",C_C(ClassID,2))

        FsoContentRule=Replace(FsoContentRule,"{$ClassID}",C_C(ClassID,9))

        FsoContentRule=Replace(FsoContentRule,"{$ClassEname}",Split(C_C(ClassID,2), "/")(C_C(ClassID,10)- 1))

  FsoContentRule=Replace(FsoContentRule,"{$AddDate}",GetContAddTime(ChannelID,ClassID))

  FsoContentRule=Replace(Setting(3) & C_S(ChannelID,8),"//","/") & FsoContentRule

  LoadFsoContentRule=FsoContentRule

  End Function

在后面添加新函数

'获取文章添加时间

Function GetContAddTime(ChannelID,ClassID)

  Dim RS,Sql

  Set RS=Server.CreateObject("ADODB.RECORDSET")

  Sql="Select top 1 ChannelTable from [KS_Channel] where 1=1 and ChannelID="&ChannelID

  Rs.open Sql,Conn,1,1

  Dim ChannelTable:ChannelTable=Rs("ChannelTable")

  Rs.close

  Sql="Select top 1 AddDate from ["&ChannelTable&"] where 1=1 and tid='"&ClassID&"'"

  Rs.open Sql,Conn,1,1

  dim times:times=Rs("AddDate")

  times=year(times)&month(times)&day(times)

  If RS.RecordCount>0 Then GetContAddTime=replace(replace(times,"/",""),"-","")&"/"

  Rs.close

  Set Rs=Nothing

End Function

使用方法:

1.打开后台,进入模型管理

2.找到你要设置的模型

3.点击修改模型

4.打开生成选项卡

5.修改"生成的内容页目录规则" 修改为:{$AddDate}  注意大小写

如图:

到此,设置完毕!更新一下缓存.然后再生成.OK,到此结束!

如果有人还不懂的.需要我的文件的,可以加群,在群里找我吧,我叫重头再来 群号:60513209

没多多大问题吧.我不知道怎么获取当前的添加时间,所以只有这个方法了.

要不你们改改?

不过只有在启用这个标签的时间才会查询吧.

大牛 我想问一下怎么才能让这个列表页也支持这个标签? 这样就可以做成每日更新文章做成一个列表网页了.

GetFolderPath(FolderID)

看这个函数吧

呵呵 对这个函数不太了解 是照他这样写吗？