if userlogin="" then
response.write"alert('请重新登陆！');window.close();"
Response.End
end if
end if
call pass()
set rstitle=conn.execute("select title from [YC_news] where id="&request.querystring("id"))
title=""&rstitle("title")
rstitle.close
set rstitle=nothing
call checkshowcontent()
call top()%>
sql="select * from YC_news where pass=true and id="&request.querystring("id")
rs.open sql,conn,1,3
rs("click")=rs("click")+1
rs.update%>
当前位置：本站首页→新闻频道→ sql="select * from YC_newsclass where id="&rs("class")&" order by id desc"
rs3.open sql,conn,1,1
if not rs3.bof and not rs3.eof then
response.Write rs3("classname")
end if
rs3.close
set rs3=nothing%>→
发布会员： 发表日期： 阅读：次
call main()
elseif rs("read")=1 then
if useradmin>=1 then
call main()
else
response.write "只有普通会员以上级别才可以查看！"
end if
elseif rs("read")=2 then
if useradmin>=2 then
call main()
else
response.write "只有VIP会员以上级别才可以查看！"
end if
end if%>
【字体：大 中 小】【复制】【打印】
点击排行
set rstop=server.createobject("adodb.recordset")
if request.querystring("class")"" then
sql="select * from [YC_news] where pass=true and class="&request.querystring("class")&" order by click DESC"
else
sql="select * from [YC_news] where pass=true order by click DESC"
end if
rstop.open sql,conn,1,1
n=0
response.write""
do while not rstop.eof%>
·
if n=10 then exit do end if
rstop.movenext
loop
if rstop.eof and rstop.bof then
response.write "没有相关新闻！"
end if
response.write ""
rstop.close
set rstop=nothing
call br()%>
本站推荐
set rsbest=server.createobject("adodb.recordset")
sql="select * from [YC_news] where pass=true and best=true order by id DESC"
rsbest.open sql,conn,1,1
n=0
response.write""
do while not rsbest.eof%>
·
if n=10 then exit do end if
rsbest.movenext
loop
if rsbest.eof and rsbest.bof then
response.write "没有推荐新闻！"
end if
response.write ""
rsbest.close
set rsbest=nothing
call br()%>
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_news where id="&request.querystring("id")
rs.open sql,conn,1,3
if plnews=0 then
call pl("YC_news",rs("id"))
else
%>
网友评论
您好！管理员暂时屏蔽了新闻评论！
end if
rs.close
set rs=nothing
call br%>
