?!--#include file="lib/base.asp"--> <% ''' SDCMS 内容? ''' ================================================================== ''' 版权所?http://www.sdcms.cn ''' ------------------------------------------------------------------ ''' q不是一个自pYӞ您只能在不用于商业目的的前提下对E序代码q行修改和用; ''' 未经授权不允许对E序代码以Q何Ş式Q何目的的再发布? ''' ================================================================== ''' ~写: ITqx ''' 修改QITqx in 2015.01 dim temproot:temproot="" dim id:id=sdcms.getint(sdcms.fget("id",0),0) dim root:root=sdcms.enhtml(sdcms.fget("root",0)) dim self_where:self_where="id="&id&"" if id=0 and root<>"" then if sdcms.checkstr(root,"filename") then self_where="url='"&root&"'" end if end if dim filed filed="classid,title,createdate,lastupdate,hits,style" filed=filed&",pic,ispic,tags,url,isurl,keyword,description," filed=filed&"islock,isnice,ontop,iscomment,likeid,comments,c.catedir," filed=filed&"author,comefrom,intro,id" dim data:data=sdcms.db.dbload(1,filed,"sd_content n left join sd_category c on n.classid=c.cateid",""&self_where&" and islock=1","") if ubound(data)<0 then dim errormsg:errormsg="您要查看的内容不存在,或已被删除" sdcms.show theme_404,"" sdcms.db.dbclose sdcms.die else dim classid,title,createdate,lastupdate,hits,style,catedir dim pic,ispic,tags,url,isurl,seokey,seodesc dim islock,isnice,ontop,iscomment,likeid,comments dim htmlname,htmlrule,content,parentname dim author,comefrom,intro id=data(23,0) classid=data(0,0) title=data(1,0) createdate=data(2,0) lastupdate=data(3,0) hits=data(4,0) style=data(5,0) pic=data(6,0) ispic=data(7,0) tags=sdcms.get_tags_arr(data(8,0)) url=data(9,0) isurl=data(10,0) seokey=data(11,0) seodesc=data(12,0) islock=data(13,0) isnice=data(14,0) ontop=data(15,0) iscomment=data(16,0) likeid=data(17,0) comments=data(18,0) catedir=data(19,0) author=data(20,0) comefrom=data(21,0) intro=data(22,0) htmlname=webroot&htmldir&data(19,0)&"/"&url&".html" htmlrule="?id="&id&"" if webmode=2 then htmlrule=webroot&catedir&"/"&url&"_[page].html" end if data=sdcms.getclassdb(classid) if not isarray(data) then sdcms.echo "栏目不存在或已被删除" sdcms.db.dbclose sdcms.die end if dim classname:classname=data(1) dim followid:followid=data(3) dim sonid:sonid=data(5) dim parentid:parentid=data(6) dim cateurl:cateurl=data(9) dim modeid:modeid=data(10) dim model_tablename:model_tablename=data(12) dim catepic:catepic=data(15) temproot=sdcms.iif(len(data(21))=0,(data(24)),(data(21))) if ismobile and len(data(21))>0 then if not(sdcms.isfile(webroot&"theme/"&theme_root&"/"&data(21)&"")) then temproot=data(24) end if end if dim contenturl:contenturl=thisurl if followid=0 then parentname=classname else parentname=sdcms.getcatename(followid) end if if webmode=2 then contenturl=weburl&webroot&catedir&"/"&url contenturl=replace(contenturl,"%26","&") if page>1 then contenturl=contenturl&"_"&page end if contenturl=contenturl&".html" end if dim rsshow set rsshow=sdcms.db.exedb("select top 1 * from "&model_tablename&" where cid="&id&"") if rsshow.eof then errormsg="获取内容失败" sdcms.show theme_404,"" rsshow.close set rsshow=nothing sdcms.db.dbclose sdcms.die else if webmode=3 then sdcms.go htmlname sdcms.db.dbclose sdcms.die else content=sdcms.get_content_split(rsshow("content"),htmlrule) sdcms.show temproot,"" end if rsshow.close set rsshow=nothing end if sdcms.db.dbclose %> ,色av久,日本不卡一区二区免费网站,午夜黃色精品久草不卡,日韩人妻免费无码精品