<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005－2009 佛山市动易网络科技有限公司 版权所有 '************************************************************** UserLogined = CheckUserLogined() Dim PE_Content Set PE_Content = New Article 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 %>