<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005-2009 佛山市动易网络科技有限公司 版权所有 '************************************************************** 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 %> cctv5高尔夫网球频道
天津快乐十分出租 彩票35选7中奖结果 中超控股 山东11选5荐胆如何购买 河南11选5历史开奖号码是多少 鸿博国际娱乐鸿博博彩 牌九游戏爱拼策略论坛 网球直播 时时彩最大投注平台 篮球胜分差每日推荐 千禧3d试机号关注号 新疆18选7开奖结果查询 河南省福利彩票走势图 多乐彩怎么玩 平码王国