ï»?!--#include file="lib/base.asp"-->
<%
''' XZEC.NET 内容™å?
''' ==================================================================
''' 版æƒæ‰€æœ?http://www.xzec.net QQåQ?14512911 TELåQ?50 5083 0151
''' ------------------------------------------------------------------
''' ˜q™ä¸æ˜¯ä¸€ä¸ªè‡ªç”ÞpÊYä»Óž¼æ‚¨åªèƒ½åœ¨ä¸ç”¨äºŽå•†ä¸šç›®çš„çš„å‰æ下对½E‹åºä»£ç ˜q›è¡Œä¿®æ”¹å’Œä‹É用；
''' 未ç»æŽˆæƒä¸å…许对½E‹åºä»£ç 以ä“Q何åÅžå¼ä“Q何目的的å†å‘布ã€?
''' ==================================================================
''' ¾~–写: åƒæ ‘¾|‘络-å¼ å·¥
''' 修改åQšå¼ å·?in 2014.08
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,point,c.catedir,"
filed=filed&"author,comefrom,intro,userid,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,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=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)
dim topid:topid=sdcms.get_topid(parentid)
dim pfid:pfid=sdcms.get_fid(followid)
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
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
%> 性爱 视频 欧美_午夜性爱无码在线观看_天堂日本美女在线播放_18禁止爆乳美女免费网站