<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<%
if showart="no" then
if userlogin="" then
YCMS("<script>alert('请重新登陆！');window.close();</script>")
Response.End
end if
end if
call pass()
title="文章作品→查看文章"
call checkshowcontent()
call top()
YCMS("<table border='0'  cellspacing='0'  cellpadding='0' align='center' class='bgcolor'><tr><td class='left'></td><td class='width'>")
YCMS("<table width='100%' border='0'  cellspacing='0'  cellpadding='0'><tr><td valign='top'>")
call br()
if trim(request("id"))="" then
response.Redirect("art.asp")
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from [YC_art] where pass=true and id="&trim(request("id"))
rs.open sql,conn,1,3
rs("click")=rs("click")+1
rs.update
YC("<table border='0' cellspacing='0'  cellpadding='0' width='100%'><tr><td class=showtop>&emsp;当前位置：<a href=index.asp>本站首页</a>→<a href=art.asp>文章频道</a>→")
set rsclass=server.CreateObject("adodb.recordset")
sql="select * from YC_artclass where id="&rs("class")&" and class<>0 order by id desc"
rsclass.open sql,conn,1,3
if not rsclass.bof and not rsclass.eof then
response.Write rsclass("classname")
else
response.Write"没有分类"
end if
rsclass.close
set rsclass=nothing
YC("→<b><font color='"&rs("color")&"'>"&rs("title")&"</font></b></td></tr></table>")
YCMS("<table border='0' cellspacing='0'  cellpadding='0' width='100%'><tr><td class=showcenter valign='top' height=60>")
call br()
YCMS("<center><div id='size' style='word-break:break-all;table-layout:fixed;text-align:left;line-height:150%;width:85%;' align='center'>")
YC("<p align='center'><b><font color='"&rs("color")&"'>"&rs("title")&"</font></b>")
call br()
YC("作者："&rs("writer")&"&nbsp;发布会员："&rs("user")&"&nbsp;版权："&rs("copyright")&"&nbsp;发表日期："&rs("date")&"&nbsp;阅读：<font color='#FF0000'>"&rs("click")&"</font>次</font></p><blockquote>")
if rs("read")=0 then
if rs("showContent")=0 then
response.write rs("content")
elseif rs("showContent")=1 then
call AutoShow()
elseif rs("showContent")=2 then
call FingerShow()
else
response.write bbimg(rs("content"))
end if
elseif rs("read")=1 then
if useradmin>=1 then
if rs("showContent")=0 then
response.write bbimg(rs("content"))
elseif rs("showContent")=1 then
call AutoShow()
elseif rs("showContent")=2 then
call FingerShow()
else
response.write bbimg(rs("content"))
end if
else
response.write "<center><b><font color=red>只有普通会员以上级别才可以查看！</font></b></center>"
end if
elseif rs("read")=2 then
if useradmin>=2 then
if rs("showContent")=0 then
response.write bbimg(rs("content"))
elseif rs("showContent")=1 then
call AutoShow()
elseif rs("showContent")=2 then
call FingerShow()
else
response.write bbimg(rs("content"))
end if
else
response.write "<center><b><font color=red>只有VIP会员以上级别才可以查看！</font></b></center>"
end if
end if
YCMS("</blockquote></div></center><br><br>")
YCMS("<p align='right'>【字体：<a href='javascript:ContentSize(16)'>大</a> <a href='javascript:ContentSize(14)'>中</a> <a href='javascript:ContentSize(12)'>小</a>】【<a href='javascript:copyText(document.all.size)'>复制</a>】【<a href='javascript:window.print()' >打印</a>】&nbsp;</p>")
call br()
call nextdata("YC_art","showart","篇")
YCMS("</TD></TR></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0' width='100%'><tr><td class=showfoot></td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center' width='100%'><tr align=middle><td width=5></td><td width=370 height=150 align=right>")
call br()
YCMS("<table border='0'   cellspacing='0'  cellpadding='0'><tr><td class=showtopleft></td><td class=showtopcenter>&emsp;※&nbsp;点击排行</td><td class=showtopright></td></tr></table>")
YCMS("<table border='0' cellspacing='0'  cellpadding='0'><tr><td  class=showcenterleft></td><td valign='top' class=showcentercenter  height=180>")
call br()
set rstop=server.createobject("adodb.recordset")
if request.querystring("class")<>"" then
sql="select * from [YC_art] where pass=true and class="&request.querystring("class")&" order by click DESC"
else
sql="select * from [YC_art] where pass=true order by click DESC"
end if
rstop.open sql,conn,1,1
n=0
response.write"<table border='0' cellspacing='0' cellpadding='0' width='100%'>"
do while not rstop.eof
YCMS("<tr height=17><td>·<a href='showart.asp?id="&rstop("id")&"' TITLE='文章标题："&rstop("title")&"<br>文章作者："&rstop("writer")&"<br>发表会员："&rstop("user")&"<br>文章版权："&rstop("copyright")&"<br>发表日期："&rstop("date")&"<br>点击次数："&rstop("click")&"次'>"&YC_Kill_Word(rstop("title"),30)&"</a></td><td width=65>"&rstop("date")&"</td></tr>")
n=n+1
if n=10 then exit do end if
rstop.movenext
loop
if rstop.eof and rstop.bof then
response.write "<center><font color=red><b>没有相关文章！<b></font></center>"
end if
response.write "</table>"
rstop.close
set rstop=nothing
call br()
YCMS("</td><td class=showcenterright></td></tr></table>")

YCMS("<table border='0'  cellspacing='0'  cellpadding='0'><tr><td class=showfootleft></td><td class=showfootcenter></td><td class=showfootright></td></tr></table>")
call br()
YCMS("</TD><td width=5></td><td  width=370 height=150 align=left>")
call br()
YCMS("<table border='0'   cellspacing='0'  cellpadding='0'><tr><td class=showtopleft></td><td class=showtopcenter>&emsp;※&nbsp;本站推荐</td><td class=showtopright></td></tr></table>")
YCMS("<table border='0' cellspacing='0'  cellpadding='0'><tr><td  class=showcenterleft></td><td valign='top' class=showcentercenter  height=180>")
call br()
set rsbest=server.createobject("adodb.recordset")
sql="select  * from [YC_art] where pass=true and best=true order by id DESC"
rsbest.open sql,conn,1,1
n=0
response.write"<table border='0' cellspacing='0' cellpadding='0' width='100%'>"
do while not rsbest.eof
YCMS("<tr height=17><td>·<a href='showart.asp?id="&rsbest("id")&"'  TITLE='文章标题："&rsbest("title")&"<br>文章作者："&rsbest("writer")&"<br>发表会员："&rsbest("user")&"<br>文章版权："&rsbest("copyright")&"<br>发表日期："&rsbest("date")&"<br>点击次数："&rsbest("click")&"次'>"&YC_Kill_Word(rsbest("title"),30)&"</a>")
YCMS("</td><td width=65>"&rsbest("date")&"</td></tr>")
n=n+1
if n=10 then exit do end if
rsbest.movenext
loop
if rsbest.eof and rsbest.bof then
response.write "<center><font color=red><b>没有推荐文章！<b></font></center>"
end if
response.write "</table>"
rsbest.close
set rsbest=nothing
call br()
YCMS("</td><td class=showcenterright></td></tr></table>")

YCMS("<table border='0'  cellspacing='0'  cellpadding='0'><tr><td class=showfootleft></td><td class=showfootcenter></td><td class=showfootright></td></tr></table>")
call br()
YCMS("</TD><td width=5></td></TR></table>")
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_art where id="&request.querystring("id")
rs.open sql,conn,1,3
call pl("art",rs("id"))
rs.close
set rs=nothing
call br
YCMS("</td></tr></table></td><td class=right></td></tr></table>")
rs.close
set rs=nothing
call foot()%>