shownews.asp

学校网站源码fdfdffdfdfdfdfdfdfdf

<%
'程序名称：淮海高科管理系统[Huaihi] 
'程序作者：淮海高科
'作者邮箱：[e-mail]
'作者 Q Q：101101111
'作者电话：[phone]
'官方主页：http://Huaihi.com

%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<%if shownews="no" then
if userlogin="" then
response.write"<script>alert('请重新登陆！');window.close();</script>"
Response.End
end if
end if
call pass()
title="新闻动态→查看新闻"
call checkshowcontent()
call top()%>
<table border="0"  cellspacing="0" cellpadding="0" align=center class=bgcolor>
<tr><td class=left></td><td class=width>
<table width=100% border=0  cellspacing="0" cellpadding="0">
<tr>
<td valign=top align=center>
<%call br%>
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from Huaihi_news where pass=true and id="&request.querystring("id")
rs.open sql,conn,1,3
rs("click")=rs("click")+1
rs.update%>
<table border="0" cellspacing="0" cellpadding="0" width=100%>
<tr><td class=showtop>&emsp;当前位置：<a href=index.asp>本站首页</a>→<a href=news.asp>新闻频道</a>→<%set rs3=server.CreateObject("adodb.recordset")
sql="select * from Huaihi_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%>→<b><font color="<%=rs("color")%>"><%=rs("title")%></font></b></td></tr></table>
<table border="0"   cellspacing="0" cellpadding="0" width=100%><tr>
<td  class=showcenter valign=top height=60>
<div id="size" style="word-break:break-all;table-layout:fixed;text-align:left;line-height:120%;width:98%" align=center>
<%call br()%><p align=center> <b><font color="<%=rs("color")%>"><%=rs("title")%></font></b><%call br()%>发布会员：<%=rs("user")%>&nbsp;发表日期：<%=rs("date")%>&nbsp;&nbsp;阅读：<font color="#FF0000"><%=rs("click")%></font>次</font></p>
<blockquote>
<%=bbimg(rs("content"))%>
</blockquote>
</div></center><br><br>
<p align=right>【字体：<a href="javascript:ContentSize(16)" class=menufont>大</a> <a href="javascript:ContentSize(14)" class=menufont>中</a> <a href="javascript:ContentSize(12)" class=menufont>小</a>】【<a href='javascript:copyText(document.all.size)'>复制</a>】【<a href="javascript:window.print()" >打印</a>】&nbsp;</p><%call br()%>
<%call nextdata("Huaihi_news","shownews","篇")%>
</TD></TR></table>
<table border="0" cellspacing="0" cellpadding="0" width=100%><tr>
<td class=showfoot></td></tr></table>
<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()%>
<table border="0"   cellspacing="0" cellpadding="0">
<tr>
<td class=showtopleft></td>
<td class=showtopcenter>&emsp;※&nbsp;点击排行</td>
<td class=showtopright></td>
</tr>
</table>
<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 [Huaihi_news] where pass=true and class="&request.querystring("class")&" order by click DESC"
else
sql="select * from [Huaihi_news] 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%>
<tr height=17><td>·<a href="shownews.asp?id=<%=rstop("id")%>" target="news" TITLE="新闻名称：<%=rstop("title")%><br>发布会员：<%=rstop("user")%><br>发布日期：<%=rstop("date")%><br>点击次数：<%=rstop("click")%>"><%=Huaihi_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()%>
</td>
<td class=showcenterright></td></tr></table>

<table border="0"  cellspacing="0" cellpadding="0">
<tr>
<td class=showfootleft></td>
<td class=showfootcenter></td>
<td class=showfootright></td>
</tr></table>
<%call br()%>
</TD>
<td width=5></td>
<td  width=370 height=170 align=left>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<tr>
<td class=showtopleft></td>
<td class=showtopcenter>&emsp;※&nbsp;本站推荐</td>
<td class=showtopright></td>
</tr>
</table>
<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 [Huaihi_news] 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%> <tr height=17><td>
·<a href="shownews.asp?id=<%=rsbest("id")%>" target="art" TITLE="新闻名称：<%=rsbest("title")%><br>发布会员：<%=rsbest("user")%><br>发布日期：<%=rsbest("date")%><br>点击次数：<%=rsbest("click")%>"><%=Huaihi_Kill_Word(rsbest("title"),30)%></a></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()%>
</td>
<td class=showcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0">
<tr>
<td class=showfootleft></td>
<td class=showfootcenter></td>
<td class=showfootright></td>
</tr></table>
<%call br()%>
</TD><td width=5></td>
</TR></table>


<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Huaihi_news where id="&request.querystring("id")
rs.open sql,conn,1,3
call pl("news",rs("id"))
rs.close
set rs=nothing
call br%>
</td></tr></table></td><td class=right></td></tr></table>
<%rs.close
set rs=nothing
call foot()%>