📄 shownews.asp
字号:
<!--#include file="include/ms_setting.asp"-->
<!--#include file="include/ms_page.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1 Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com www.maosin.net
' QQ：57861417
'电子邮箱：maosin@163.com maosin@maosin.com
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
catTitle="新闻动态→阅读新闻"
id=request.queryString("id")
dim iserror,iderror
If not isNumeric(id) or id="" Then
iserror=true
Else
iserror=false
conn.execute("UPDATE ms_news SET news_clicks=news_clicks+1 WHERE id="&id)
sql="select * from ms_news where id="&id
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,1
If not rs.eof and not rs.bof Then
keywords=rs("news_keyword")
iderror=true
Else
iderror=false
End If
End If
%>
<!--#include file="ms_start.asp"-->
<!--页面主体开始-->
<script language="JavaScript" src="include/wisdom.js"></script>
<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0" class="mainMiddle_tdble"><tr>
<!--左栏开始-->
<td valign="top" class="mainMiddle_td_left">
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">会员登录</span></td><td class="ltr"></td></tr></table>
<div class="lmc"><%Call publiclogonModule()%></div>
</div>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">站内搜索</span></td><td class="ltr"></td></tr></table>
<div class="lmc"><%Call searchInput("news")%></div>
</div>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">全部排行</span></td><td class="ltr"></td></tr></table>
<div class="lmc"><%Call hotNews()%></div>
</div>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">本类推荐</span></td><td class="ltr"></td></tr></table>
<div class="lmc">
<%
If isNumeric(id) and id<>"" Then
If iderror Then
sql="select top "&newsOrderNum&" * from ms_news where classID="&rs("classID")&" and news_good=true order by news_date desc"
newsIsGood
Else
response.Write("本类暂时没有推荐文章！")
End If
Else
response.Write("本类暂时没有推荐文章！")
End If
%>
</div>
</div>
</td>
<td class="mainMiddle_td_middle" onClick="switchCol(this)" title="关闭左栏"><img src="images/closeL.gif"></td>
<td width="*" valign="top" class="mainMiddle_td_right">
<% If iserror Then
Call showmsg("参数出错了","参数出错")
Else
If iderror Then
pltype="news"
Call showNewsBody()
Else
showmsg "<li>您要查找的 ID 编号新闻不存在或者已经被删除了！</li>","系统返回信息"
End If
End If%>
<!--中间部分结束-->
</td></tr></table>
<!--#include file="ms_End.asp"-->
<%
Sub hotNews()
sql="select top "&newsOrderNum&" * from ms_news where news_clicks>0 order by news_clicks desc"
Set hrs=conn.execute(sql)
If Not hrs.Eof and not hrs.Bof Then
Do While Not hrs.Eof%>
<div class="rlineX">☉<a href="shownews.asp?id=<%=hrs("id")%>" target="_blank" title="新闻标题：<%=hrs("news_title")%> 发布时间：<%=hrs("news_date")%> 浏览次数：<%=hrs("news_clicks")%>"><%=cutStr(hrs("news_title"),12)%></a></div>
<%
hrs.MoveNext
Loop
Else
Response.Write("暂无热点新闻！")
End If
hrs.Close
Set hrs=Nothing
End Sub
Sub newsIsGood()
Set grs=conn.execute(sql)
If Not grs.Eof and not grs.Bof Then
Do While Not grs.Eof%>
<div class="rlineX">☉<a href="shownews.asp?id=<%=grs("id")%>" target="_blank" title="新闻标题：<%=grs("news_title")%> 发布时间：<%=grs("news_date")%> 浏览次数：<%=grs("news_clicks")%>"><%=cutStr(grs("news_title"),12)%></a></div>
<%
grs.MoveNext
Loop
Else
Response.Write("暂无推荐新闻！")
End If
grs.Close
Set grs=Nothing
End Sub
Sub showNewsBody()%>
<script language="javascript" src="include/scrollwindow.js"></script>
<table cellspacing="0" class="naviTable"><tr><td class="naviL"></td><td class="naviM"><span class="rtt">当前位置：<a class="classNavig" href="index.asp">本站首页</a>→<a class="classNavig" href="news.asp">新闻动态</a>→阅读新闻</span></td><td class="naviR"></td></tr></table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="bodyTable">
<tbody id="bg">
<tr>
<td width="100%" height="60" valign="middle" align="center" style="font-size:20px;font-weight:bold;"><font color="<%=rs("titlecolor")%>"><%=rs("news_title")%></font></td>
</tr>
<tr><td height="24" valign="middle" align="center" class="cA1">作者：<%=rs("news_authors")%> | 来源：<%=rs("news_from")%> | 时间：<%=rs("news_date")%> | 浏览： <%=rs("news_clicks")%> </td></tr>
<tr><td height="24" valign="middle" align="center" class="cA2">查看 【字号：<a href="javascript:ContentSize(16)">大</a> <a href="javascript:ContentSize(14)">中</a> <a href="javascript:ContentSize(12)">小</a>】【背景色 <a href="javascript:setColor('FaFBE6')"><img height=10 border=0 alt=杏仁黄 src="images/color1.gIf" width=10></a>
<a href="javascript:setColor('FFF2E2')"><img height=10 alt=秋叶褐 src="images/color2.gIf" width=10 border=0></a>
<a href="javascript:setColor('FDE6E0')"><img height=10 alt=胭脂红 src="images/color3.gIf" width=10 border=0></a>
<a href="javascript:setColor('F3FFE1')"><img height=10 alt=芥末绿 src="images/color4.gIf" width=10 border=0></a>
<a href="javascript:setColor('DaFaFE')"><img height=10 alt=天蓝 src="images/color5.gIf" width=10 border=0></a>
<a href="javascript:setColor('E9EBFE')"><img height=10 alt=雪青 src="images/color6.gIf" width=10 border=0></a>
<a href="javascript:setColor('EaEaEF')"><img height=10 alt=灰 src="images/color7.gIf" width=10 border=0></a>
<a href="javascript:setColor('FFFFFF')"><img height=10 alt=银河白(默认色) src="images/color8.gIf" width=10 border=0></a>】【双击滚屏/单击停止】【<a href="javascript:copyText(document.all.size)">复制</a>】</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="table-layout:fixed;">
<tr>
<td width="*"><div id="size" class="content">
<%
If rs("showpage")=0 Then
Response.Write(bbimg(rs("news_content"),550))
ElseIf rs("showpage")=1 Then
Response.Write(AutoShowContentPage("id",rs("id"),bbimg(rs("news_content"),550),"shownews.asp"))
ElseIf rs("showpage")=2 Then
Response.Write(FingerShowContentPage("id",rs("id"),bbimg(rs("news_content"),550),"shownews.asp"))
Else
Response.Write(bbimg(rs("news_content"),550))
End If
%>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="23" class="cA3">[关键词：<%=rs("news_keyword")%>] [新闻录入：<%=rs("post_member")%>] </td>
</tr>
<tr>
<td height="40" valign="middle">
<div style="padding-left:2px;"><%Call UpAndNext("ms_news",id,"shownews.asp","id","news_title","篇新闻")'显示上一篇,下一篇%></div>
</td>
</tr>
<tr>
<td height="23" class="cA3"> <a href="user_publish.asp?channel=news&action=maosin_appNews"><img src="images/pencil.gIf" border="0" align="absmiddle">我要投稿</a> <a href="javascript:print()"><img src="images/print.gIf" border="0" align="absmiddle">打印此文</a> <a href="javascript:copyurl()"><img src="images/commEnd.gIf" border="0" align="absmiddle">告诉好友</a> <a href="javascript:window.external.addFavorite(window.location,'<%=rs("news_title")%>')"><img src="images/favorite.gIf" border="0" align="absmiddle">加入收藏</a> <a href="#top"><img src="images/top.gIf" border="0" align="absmiddle">返回顶部</a> <a href="javascript:window.close()"><img src="images/close.gIf" border="0" align="absmiddle">关闭窗口</a></td>
</tr>
</tbody>
<tr>
<td class="aboutTitle">∷相关搜索∷</td>
</tr>
<tr>
<td class="aboutLine"> <div><img src="images/zhongsou.gif">搜索更多“<a id="searhKey" style="color:#ff0000;" href="http://p.zhongsou.com/p?w=<%=rs("news_title")%>&k=zhongsouskeyword&aid=B0100128025"><%=rs("news_title")%></a>”相关内容</div> <div><img src="images/baidu.gif">搜索更多“<a id="searhKey" style="color:#ff0000;" href="http://www.baidu.com/s?wd=<%=rs("news_title")%>&tn=ibaidukeysword"><%=rs("news_title")%></a>”相关内容</div>
</td>
</tr>
<tr>
<td class="aboutTitle">∷相关新闻∷</td>
</tr>
<tr>
<td class="aboutLine">
<%If rs("news_keyword")<>"" Then
sql="select top "&newsAboutNum&" * from ms_news where news_keyword like ""%"&rs("news_keyword")&"%"" and id<>"&rs("id")
set aNews=conn.execute(sql)
If Not aNews.Eof And Not aNews.Bof Then
Do While Not aNews.Eof
Response.Write("☉<a href=shownews.asp?id="&aNews("id")&">"&aNews("news_title")&"</a><br/>")
aNews.MoveNext
Loop
Else
Response.Write("<font color=#777777>☉没有相关新闻</font>")
End If
aNews.close
Else
Response.Write("<font color=#777777>☉没有相关新闻</font>")
End If
%>
</td>
</tr>
<tr>
<td class="aboutTitle">∷相关文章∷</td>
</tr>
<tr>
<td class="aboutLine">
<%If rs("news_keyword")<>"" Then
sql="select top "&newsAboutNum&" * from ms_art where art_keyword in ("""&rs("news_keyword")&""") or art_keyword like ""%"&rs("news_keyword")&"%"""
Set aArt=conn.Execute(sql)
If Not aArt.Eof And Not aArt.Bof Then
Do While Not aArt.Eof
Response.Write("<span>☉<a href=showart.asp?id="&aArt("id")&">"&aArt("Art_title")&"</a></span><BR>")
aArt.MoveNext
Loop
Else
Response.Write("<font color=#777777>☉没有相关文章</font>")
End If
aArt.close
Else
Response.Write("<font color=#777777>☉没有相关文章</font>")
End If
%>
</td>
</tr>
<tr>
<td valign="middle"><div class="aboutLine"><font color="#ff0000">特别声明：</font>本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正
</div></td>
</tr>
<%if rs("allow_pl") then
sql="select * from ms_news_pl where id="&rs("id")&" order by pl_date desc"
Set plrs=Server.CreateObject("ADODB.RecordSet")
plrs.Open sql,connstr,1,1
plrs.pagesize=newsPlNum
%>
<tr>
<td class="aboutTitle">∷相关评论∷（共<font color="#ff0000"><%=plrs.recordcount%></font>条 显示最新<font color="#ff0000"><%=newsPlNum%></font>条。评论内容只代表网友观点，与本站立场无关！） </td>
</tr>
<tr>
<td height="30" class="plContent">
<%
If Not plrs.Eof And Not plrs.Bof Then
line=1
Do While Not plrs.Eof and line<=plrs.pagesize
Response.Write("<span><img src=images/pl_1.gif align=absbottom>"&plrs("pl_name")&" 打分：<font color=""#ff0000"">"&plrs("pl_fen")&"</font> 发表时间："&plrs("pl_date")&" [来自："&plrs("pl_ip")&"]</span><BR>")
Response.write("<span class=""plLine""'>"&plrs("pl_content")&"</span><BR>")
plrs.MoveNext
line=line+1
Loop
Response.write("<div class=""plall""><a href=pl.asp?pltype=news&id="&id&"&title="&rs("news_title")&">查看全部评论</a></div>")
Else
Response.Write("<font color=#777777>暂时没有相关评论！</font>")
End If
plrs.close
%>
</td>
</tr>
<tr>
<td class="aboutTitle">∷发表评论∷</td>
</tr>
<tr>
<td><%Call plModule()%></td>
</tr>
<%else%>
<tr>
<td height="25" valign="middle" align="center"><div class="plClose">【此新闻评论已关闭】</div></td>
</tr>
<%end if%>
</table>
<%rs.Close
Set rs=Nothing
End Sub
'========================================================
'MaoSin CMS 1.1 Power by maosin.com
'Email: maosin@163.com , maosin@maosin.com
'Web: http://www.maosin.com http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -