<% 'Response.Write GetBbsList(Application(Dvbbs.CacheName&"_boardlist")) Call LoadJsonBoardListCache Sub LoadJsonBoardListCache() Dvbbs.Name="jsonboardlist"&Dvbbs.GroupSetting(37) If Dvbbs.ObjIsEmpty() Then Dvbbs.value=GetBbsList(Application(Dvbbs.CacheName&"_boardlist")) Response.Write Dvbbs.value End Sub %>