Public Sub GetForum_Setting()
Name="setup"
If ObjIsEmpty() Then ReloadSetup()
CacheData=value
'每日更新数据
Name="Date"
'DelCahe "Date"
'第一次起用论坛或者重启IIS的时候加载缓存
If ObjIsEmpty() Then
value=Date()
ReloadAllForumInfo
ReloadAllBoardInfo
End If
Name="Date"
If Cstr(value) <> Cstr(Date()) Then
ReloadAllForumInfo
ReloadAllBoardInfo
Name="setup"
ReloadSetup()
CacheData=value
End If
Dim Setting
Setting=CacheData(1,0)
Setting = Split(Setting,"|||")
Forum_Info = Setting(0) '138行
Forum_Info = Split (Forum_Info,",")
Forum_Setting = Setting(1)
Forum_Setting = Split (Forum_Setting,",")
Forum_user = Setting(2)