<% '************************************************************** ' 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 %> 海王捕鱼 精准时时彩计划网页版 ds足球官网 牌九至尊超级版 北京时时02468漏洞 3d万能6码走势图 玩一分快三有什么技巧 香港综合资料第一粉 2019七星彩最新图规 凯撒娱乐手机app下载 包胆什么意思