<% '************************************************************** ' 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 %> 二十二世纪古墓奇兵百度云盘 上海时时网 赛车pk10精准计划 三公棋牌app下载 pk10官网开奖直播现场 山东麻将规则 ag平台漏洞怎么赚钱 幸运飞艇8码一期 娱乐之最强天王 乐透型c515单式怎么查 170彩票最新 求新时时高手一起玩 百人龙虎官网