?!--#include file="lib/base.asp"--> <% ''' SDCMS 栏目? ''' ================================================================== ''' 版权所?//www.sdcms.cn ''' ------------------------------------------------------------------ ''' q不是一个自pYӞ您只能在不用于商业目的的前提下对E序代码q行修改和用; ''' 未经授权不允许对E序代码以Q何Ş式Q何目的的再发布? ''' ================================================================== ''' ~写: ITqx ''' 修改QITqx in 2014.08 dim temproot:temproot="" dim classid:classid=sdcms.getint(sdcms.fget("classid",0),0) dim root:root=sdcms.enhtml(sdcms.fget("root",0)) if classid=0 and root<>"" and not isnull(root) then if sdcms.checkstr(root,"file") then classid=sdcms.getcateid(root) else classid=0 end if end if dim data:data=sdcms.getclassdb(classid) if not isarray(data) then dim errormsg:errormsg="栏目不存在或已被删除" sdcms.show theme_404,"" sdcms.die end if dim sonid,parentid,followid,catedir,modeid,cateurl dim classname,catepic,seotitle,seokey,seodesc,pagenum dim htmlrule,parentname classname=data(1) catedir=data(2)&"/" followid=data(3) sonid=data(5) parentid=data(6) cateurl=data(9) modeid=data(10) catepic=data(15) seotitle=data(16) seokey=data(17) seodesc=data(18) pagenum=data(19) htmlrule="?classid="&classid&"" if followid=0 then parentname=classname else parentname=sdcms.getcatename(followid) end if select case modeid case "-1" temproot=sdcms.iif(len(data(21))=0,(theme_page),(data(21))) if ismobile and len(data(21))>0 then if not(sdcms.isfile(webroot&"theme/"&theme_root&"/"&data(21)&"")) then temproot=data(21) end if end if case "-2" sdcms.go data(9) case else temproot=sdcms.iif(len(data(20))=0,(data(23)),(data(20))) if ismobile and len(data(20))>0 then if not(sdcms.isfile(webroot&"theme/"&theme_root&"/"&data(20)&"")) then temproot=data(23) end if end if end select if webmode=2 then htmlrule=webroot&catedir&"[page]/" if webmode=3 then sdcms.go webroot&htmldir&catedir sdcms.db.dbclose sdcms.die else sdcms.show temproot,classid end if sdcms.db.dbclose %>