锘?!--#include file="lib/base.asp"--> <% ''' SDCMS 鏍忕洰欏? ''' ================================================================== ''' 鐗堟潈鎵鏈?http://www.sdcms.cn ''' ------------------------------------------------------------------ ''' 榪欎笉鏄竴涓嚜鐢辮蔣浠訛紒鎮ㄥ彧鑳藉湪涓嶇敤浜庡晢涓氱洰鐨勭殑鍓嶆彁涓嬪紼嬪簭浠g爜榪涜淇敼鍜屼嬌鐢紱 ''' 鏈粡鎺堟潈涓嶅厑璁稿紼嬪簭浠g爜浠ヤ換浣曞艦寮忎換浣曠洰鐨勭殑鍐嶅彂甯冦? ''' ================================================================== ''' 緙栧啓: IT騫蟲皯 ''' 淇敼錛欼T騫蟲皯 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 temproot=theme_page 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 temproot=data(23) 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 %> 肉动漫无修版在线观看屋影院|成年片黄色大片网站视频|亚洲高清无码迅雷下载|亚洲在线成人电影网站导航