%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005-2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
ClassID = PE_CLng(Trim(Request("ClassID")))
If ClassID = 0 Then
FoundErr = True
ErrMsg = ErrMsg & "
请指定栏目ID!"
Else
Call GetClass
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
Response.End
End If
ItemID = 0
If ClassPurview > 1 Then
Dim PurviewChecked
If UserLogined = False Then
PurviewChecked = False
Else
Call GetUser(UserName)
If ParentID > 0 Then
PurviewChecked = CheckPurview_Class(arrClass_Browse, ChannelDir & "all," & ParentPath & "," & ClassID)
Else
PurviewChecked = CheckPurview_Class(arrClass_Browse, ChannelDir & "all," & ClassID)
End If
End If
If PurviewChecked = False Then
FoundErr = True
ErrMsg = ErrMsg & XmlText("BaseText", "PurviewCheckedErr", "对不起,您没有浏览此栏目内容的权限!")
Call WriteErrMsg(ErrMsg, ComeUrl)
Response.End
End If
End If
ClassShowType = Trim(Request("ShowType"))
If ClassShowType = "" Then
ClassShowType = 1
Else
ClassShowType = PE_CLng(ClassShowType)
End If
PageTitle = ""
If ClassShowType = 2 Then
strFileName = ChannelUrl_ASPFile & "/ShowClass.asp?ShowType=2&ClassID=" & ClassID
Else
strFileName = ChannelUrl_ASPFile & "/ShowClass.asp?ClassID=" & ClassID
End If
strTemplate = GetTemplate(ChannelID, 2, TemplateID)
arrTemplate = Split(strTemplate, "{$$$}")
If UBound(arrTemplate) < 1 Then
Response.Write "当前栏目使用的页面模板有误,缺少小类模板!"
Response.End
End If
Call PE_Content.GetHtml_Class
Response.Write strHtml
Set PE_Content = Nothing
Call CloseConn
%>