<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005-2009 佛山市動易網絡科技有限公司 版權所有 '************************************************************** 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 %> 北京pk10开奖结果