shownews.asp

网站整站

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/code_news.asp"-->
<%
'//版权所有：野草设计

'//程序作者：野草

'//当前版本：V2.0

'//联系QQ：94440079

'//官方网站：http://www.yecaoweb.com
%>
<%
dim newsid
newsid=YC_post("新闻ID",request.querystring("id"),1,0,0) 
title="新闻频道→查看新闻→"&showtitle("YC_news",newsid)
execute(loadskin(skinmode))
call NowWhere("查看新闻","shownews.asp?id="&newsid)
call head()
YC_sql("update [YC_news] set click=click+1 where id="&newsid)
sql="select title,color,pass,user,writer,copyright,date,content,commend,class,bigclass,click,reads,exper,showpage from [YC_news] where pass=1 and id="&newsid
set rs=conn.execute(sql)
if rs.eof and rs.bof then
YCGO("error.asp?action=error&text="&server.urlencode("该数据不存在……")&"")
else
dim news(16)
news(0)=rs("title")
news(1)=rs("color")
news(2)=rs("user")
news(3)=rs("writer")
news(4)=rs("copyright")
news(5)=rs("date")
news(6)=rs("content")
news(7)=rs("bigclass")
news(8)=rs("class")
news(9)=cint(rs("click"))
news(10)=cint(rs("reads"))
news(11)=cint(rs("exper"))
news(12)=rs("commend")
news(13)=cint(rs("showpage"))
news(14)=rs("pass")
if news(14)="0" then 
YCGO("error.asp?action=error&text="&server.urlencode("该新闻正在审核中……")&"")
end if
end if
rs.close
set rs=nothing
sqluser="select user_exper from [YC_user] where pass=1 and id="&userid
set rsuser=conn.execute(sqluser)
dim newsuser(0)
newsuser(0)=rsuser("user_exper")
rsuser.close
set rsuser=nothing
'开始框架
YC("<table border='0' id='content' cellspacing='0' cellpadding='0'><tr>")
YC("<td  valign='top' id='show' nowrap>")
YC("<table border='0' cellspacing='0' cellpadding='0' width='100%'><tr>")
YC("<td class=""111"" nowrap></td><td  class=""222""  nowrap>")
YC("&nbsp;当前位置：<a href=""index.asp"">本站首页</a>→<a href=""news.asp"">新闻频道</a>→")
call mybigclass("YC_newsclass","news",news(7))
YC("→")
call myclass("YC_newsclass","news",news(8))
YC("<td class='333' nowrap></td></td></tr></table>")
'中间框架
YC("<table border='0' cellspacing='0' cellpadding='0' width='100%'>")
YC("<tr><td class='444' nowrap></td>")
YC("<td class='555' valign='top' nowrap>")
YC("<div class='show_content'><br />")
'新闻信息
YC("<center><b><font color='"&news(1)&"'>"&news(0)&"</font></b></center>")
YC("<p class='show_title' align='center'>[&nbsp;推荐："&news(12)&"┋作者："&news(3)&"┋来源："&news(4)&"┋发布："&news(2)&"┋发布："&replacetime(news(5),"1")&"┋阅读："&news(9)&"次&nbsp;]</p>")


YC("<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left""><tr><td valign=""top"">")
YC("<blockquote id='size' style=""word-break:break-all;table-layout:fixed;text-align:left;line-height:150%;"">")
if news(10)=0 then
call formatnews()
elseif news(10)=1 then
if useradmin>=1 then
if newsuser(0)>news(11) then
call formatnews()
else
YC("<center><b><font color=""blue"">对不起！您的积分不足！查看此文必须高于["&news(11)&"]分！</font></b></center>")
end if
else
YC("<center>只有普通用户以上级别才可以查看！</center>")
end if
elseif news(10)=2 then
if useradmin>=2 then
if newsuser(1)>news(12) then
call formatnews()
else
YC("<center><b><font color=""red"">对不起！您的金钱不足！请及时充值!查看此文必须消费["&news(12)&"]金币！</font></b></center>")
end if
else
YC("<center>只有VIP用户以上级别才可以查看！</center>")
end if
end if
YC("</td></tr></table></blockquote>")
%>
<p class="show_title" align="center">【<a href='javascript:copyText(document.all.size)'>复制此文</a>】【<a href='javascript:window.print()' >打印此文</a>】【<a href='javascript:window.close()' >关闭窗口</a>】【字体：<a href='javascript:ContentSize(16)'>大</a> <a href='javascript:ContentSize(14)'>中</a> <a href='javascript:ContentSize(12)'>小</a>】
</p>
<%call nextdata("YC_news","shownews","篇")%>
</div>
<td class='666' nowrap></td></tr></table>
<table border='0' cellspacing='0' cellpadding='0' width='100%'>
<tr>
<td  class='777' nowrap></td>
<td class='888' nowrap></td>
<td class='999' nowrap></td>
</tr></table>
<%
if newspl="yes" then
call pl("news",newsid)
end if
YC("</td></tr></table>")
call foot()
%>