[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", "<li>对不起，您没有浏览此频道内容的权限！</li>")
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
%>