ï»?!--#include file="lib/base.asp"-->
<%
''' SDCMS 内容™å?
''' ==================================================================
''' ç‰ˆæƒæ‰€æœ?http://www.sdcms.cn
''' ------------------------------------------------------------------
''' ˜q™ä¸æ˜¯ä¸€ä¸ªè‡ªç”ÞpÊYä»Óž¼æ‚¨åªèƒ½åœ¨ä¸ç”¨äºŽå•†ä¸šç›®çš„çš„å‰æä¸‹å¯¹½E‹åºä»£ç ˜q›è¡Œä¿®æ”¹å’Œä‹É用;
''' æœªç»æŽˆæƒä¸å…许对½E‹åºä»£ç 以ä“Q何åÅžå¼ä“Q何目的的å†å‘布ã€?
''' ==================================================================
''' ¾~–写: ITòqÏx°‘
''' 修改åQšITòqÏx°‘ 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久,日本不卡一区二区免费网站,午夜黃色精品久草不卡,日韩人妻免费无码精品