[an error occurred while processing this directive] <% ChannelID=2 %> [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] <% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005-2008 佛山市动易网络科技有限公司 版权所有 '************************************************************** UserLogined = CheckUserLogined() Dim PE_Content Set PE_Content = New Soft PE_Content.Init If CheckPurview_Channel(ChannelPurview, ChannelArrGroupID, UserLogined, GroupID) = False Then FoundErr = True ErrMsg = ErrMsg & XmlText("BaseText", "ChannelPurviewErr", "
  • 对不起,您没有浏览此频道内容的权限!
  • ") End If If FoundErr = True Then Call WriteErrMsg(ErrMsg, ComeUrl) Response.End End If %> <% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005-2008 佛山市动易网络科技有限公司 版权所有 '************************************************************** If CurrentPage > 1 Or PE_Cache.CacheIsEmpty(ChannelID & "_HTML_Elite") Then MaxPerPage = MaxPerPage_Elite SkinID = DefaultSkinID PageTitle = "推荐" & ChannelShortName strFileName = "ShowElite.asp" strHtml = GetTemplate(ChannelID, 7, 0) Call PE_Content.GetHtml_List If CurrentPage = 1 Then PE_Cache.SetValue ChannelID & "_HTML_Elite", strHtml Else strHtml = PE_Cache.GetValue(ChannelID & "_HTML_Elite") End If Response.Write strHtml Set PE_Content = Nothing Call CloseConn %>