<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005-2008 佛山市動易網絡科技有限公司 版權所有 '************************************************************** Dim Today Today = Date '每日更新數據 If PE_Cache.CacheIsEmpty(ChannelID & "_Photo_ShowHot_date") Then PE_Cache.SetValue ChannelID & "_Photo_ShowHot_date", Today End If If CurrentPage > 1 Or PE_Cache.CacheIsEmpty(ChannelID & "_HTML_Hot") Or PE_Cache.GetValue(ChannelID & "_Photo_ShowHot_date") <> CStr(Today) Then MaxPerPage = MaxPerPage_Hot SkinID = DefaultSkinID PageTitle = "熱點" & ChannelShortName strFileName = "ShowHot.asp" strHtml = GetTemplate(ChannelID, 8, 0) Call PE_Content.GetHtml_List If CurrentPage = 1 Then PE_Cache.SetValue ChannelID & "_HTML_Hot", strHtml If CurrentPage = 1 Then PE_Cache.SetValue ChannelID & "_Photo_ShowHot_date", Today Else strHtml = PE_Cache.GetValue(ChannelID & "_HTML_Hot") End If Response.Write strHtml Set PE_Content = Nothing Call CloseConn %> nba比分直播预测 每日股票推荐博客 北京11选五开奖结果走势图 二分时时彩是统一开奖 私募基金配资是什么意思 甘肃快三专家推荐号码 体彩北京快中彩 燕赵风采河北20选五 内蒙古11选五前三组选遗漏 快播急速赛车手 海南 博彩