ï»?!--#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 2012.07
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"'0-5
filed=filed&",pic,ispic,tags,url,isurl,keyword,description,"'6-12
filed=filed&"islock,isnice,ontop,iscomment,likeid,comments,point,c.catedir,"'13-20
filed=filed&"author,comefrom,intro,userid,id"'21-25
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
sdcms.echo "您要查看的内容不存在，或已被删除"
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 point,author,comefrom,intro,userid
id=data(25,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)
point=data(19,0)
catedir=data(20,0)
author=data(21,0)
comefrom=data(22,0)
intro=data(23,0)
userid=data(24,0)
htmlname=webroot&htmldir&data(20,0)&"/"&url&".html"
htmlrule="?id="&id&""
if webmode=2 then htmlrule="show_"&id&"_[page].html"
end if
data=sdcms.categorydata
dim gcate:gcate=sdcms.getcate(data,classid)
if gcate=-1 then
sdcms.echo "栏目不存在或已被删除"
sdcms.db.dbclose
sdcms.die
end if
dim classname:classname=data(1,gcate)
dim followid:followid=data(3,gcate)
dim sonid:sonid=data(5,gcate)
dim parentid:parentid=data(6,gcate)
dim cateurl:cateurl=data(9,gcate)
dim modeid:modeid=data(10,gcate)
dim model_tablename:model_tablename=data(12,gcate)
dim catepic:catepic=data(15,gcate)
temproot=sdcms.iif(len(data(21,gcate))=0,(data(24,gcate)),(data(21,gcate)))
dim contenturl:contenturl=thisurl
if followid=0 then
parentname=classname
else
parentname=sdcms.getcatename(followid)
end if
if webmode=2 then
contenturl=weburl&webroot&"show_"&id
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
sdcms.echo "获取内容失败"
rsshow.close
set rsshow=nothing
sdcms.db.dbclose
sdcms.die
else
if webmode=3 then
sdcms.go htmlname
sdcms.db.dbclose
sdcms.die
else
if model_tablename="sd_model_down" or point=0 then
content=sdcms.get_content_split(rsshow("content"),htmlrule)
else
dim isbuy:isbuy=0
dim isvip:isvip=sdcms.is_vip
if sdcms.is_login then
if isvip then
content=sdcms.get_content_split(rsshow("content"),htmlrule)
else
isbuy=sdcms.is_buy(id)
if isbuy=0 then
content=""
else
content=sdcms.get_content_split(rsshow("content"),htmlrule)
end if
end if
else
content=""
end if
end if
sdcms.show temproot,""
end if
rsshow.close
set rsshow=nothing
end if
sdcms.db.dbclose
%> 最近2019年中文字幕视频,国产网红无码精品视频,baoyu.116永久免费视频,japanbabes日本护士高潮