news.asp

本系统是一套开源WEB的网站管理系统

<!--#include file="include/ms_setting.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
catTitle="新闻动态"
%>
<!--#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" style="line-height:18px; padding-left:8px;"><%Call newsCount("news.asp")%></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>
		<%
		 catID=Request.QueryString("catID")
		 classID=Request.QueryString("classID")
		 If (catID<>"" and isNumeric(catID)) AND (classID<>"" and isNumeric(classID)) Then
			 isGoodTitle="本类推荐"
			 sql="select top "&newsOrderNum&" * from ms_news where catID="&catID&" and classID="&classID&" and news_good=true and pass=true order by news_date desc"
			 Call newsIsGood()
		 ElseIf (catID<>"" and isNumeric(catID)) AND classID="" Then
			 isGoodTitle="本类推荐"
			 sql="select top "&newsOrderNum&" * from ms_news where catID="&catID&" and news_good=true and pass=true order by news_date desc"
			 Call newsIsGood()
		 Else
			 isGoodTitle="本站推荐"
			 sql="select top "&newsOrderNum&" * from ms_news where news_good=true and pass=true order by news_date desc"
			 Call newsIsGood()
		 End If
		 %>
</td>
<td class="mainMiddle_td_middle" onClick="switchCol(this)" title="关闭左栏"><img src="images/closeL.gif"></td>
<td width="*" valign="top" class="mainMiddle_td_right">
		<div class="groupblock">
		<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>
		<div class="rmc"><%Call parentClass("select * from ms_news_cat","news.asp","catID","catName","ms_news_class","classID","class")%></div>
		</div>
<%	catID=Request.QueryString("catID")
	If Request.QueryString("catID")="" AND Request.QueryString("classID")="" Then
		Call picNews()
		sql="select * from ms_news_class as c,ms_news as n where c.classID=n.classID and pass=true order by n.news_istop=true,n.news_date desc"
		Set rs=Server.CreateObject("ADODB.RecordSet")
		rs.Open sql,connstr,1,1
		n=newsPage'每页显示记录数
		url="news.asp?"
		nextpage=pagetitle(rs,n,url,"条记录")
		ListTitle="新闻列表 | 全部新闻"
		Call showNewsClassTitle()
	ElseIf Request.QueryString("catID")<>"" AND Request.QueryString("classID")="" Then
		If not isNumeric(catID) Then
			showmsg "<li>请输入一个数字整型参数！</li>","参数出错"
		Else
			sql="select * from ms_news_class as c,ms_news as n where c.classID=n.classID and n.catID="&catID&" and pass=true order by news_istop=true,n.news_date desc"
			Set rs=Server.CreateObject("ADODB.RecordSet")
			rs.Open sql,connstr,1,1
			If not rs.eof Then
				n=newsPage'每页显示记录数
				ListTitle="新闻列表 | "&rs("class")
				url="news.asp?catID="&catID&"&"
				nextpage=pagetitle(rs,n,url,"条记录")
				Call showNewsClassTitle()
			Else
				showmsg "<li>您要查找的 ID 分类不存在或者已经被删除了</li>","系统返回信息"
			End If
		End If
	Else
		dim classID
		classID=Request.QueryString("classID")
		If isInteger(catID)=false then
			showmsg "<li>请输入一个数字整型参数！</li>","参数出错"
		elseif isInteger(classID)=false Then
			showmsg "<li>请输入一个数字整型参数！</li>","参数出错"
		Else
			sql="select * from ms_news_class as c,ms_news as n,ms_news_cat as cat where c.classID=n.classID and n.catID=cat.catID and n.classID="&classID&" and n.catID="&catID&" and pass=true order by news_istop=true,n.news_date desc"
			Set rs=Server.CreateObject("ADODB.RecordSet")
			rs.Open sql,connstr,1,1
			If not rs.eof Then
				ListTitle="新闻列表 | "&rs("catName")&" | <font color=""#ff4444"">"&rs("class")&"</font>"
				n=newsPage'每页显示记录数
				url="news.asp?catID="&catID&"&classID="&classID&"&"
				nextpage=pagetitle(rs,n,url,"条记录")
				Call showNewsClassTitle()
			Else
				showmsg "<li>您要查找的 ID 分类不存在或者已经被删除了</li>","系统返回信息"
			End If
		End If
	End If%>
</td></tr></table>
<!--#include file="ms_end.asp"-->
<%
Sub hotNews()
	dim rs,sql
	sql="select top "&newsOrderNum&" * from ms_news where news_clicks>0 and pass=true order by news_clicks desc"
	Set rs=Server.CreateObject("ADODB.RecordSet")
	rs.Open sql,connstr,1,1
	If Not rs.Eof and not rs.Bof Then
	Do While Not rs.Eof%>
		<div class="rlineX">☉<a href="shownews.asp?id=<%=rs("id")%>" target="_blank" title="新闻标题：<%=rs("news_title")%>&#10;发布时间：<%=rs("news_date")%>&#10;浏览次数：<%=rs("news_clicks")%>"><%=cutStr(rs("news_title"),13)%></a></div>
		<%rs.MoveNext
	Loop
	Else
		Response.Write("暂无热点新闻！")
	End If
rs.Close
Set rs=Nothing
End Sub
Sub newsIsGood()%>
<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"><%=isgoodTitle%></span></td><td class="ltr"></td></tr></table>
<div class="lmc">
<%
	Set rs=Server.CreateObject("ADODB.RecordSet")
	rs.Open sql,connstr,1,1
	If Not rs.Eof and not rs.Bof Then
	Do While Not rs.Eof%>
		<div class="rlineX">☉<a href="shownews.asp?id=<%=rs("id")%>" target="_blank" title="新闻标题：<%=rs("news_title")%>&#10;发布时间：<%=rs("news_date")%>&#10;浏览次数：<%=rs("news_clicks")%>"><%=cutStr(rs("news_title"),13)%></a></div>
<%
		rs.MoveNext
	Loop
	Else
		Response.Write("暂无推荐新闻！")
	End If
rs.Close
Set rs=Nothing
%>
</div>
</div>
<%
End Sub
Sub showNewsClassTitle()%>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="rtl"><script type="text/javascript">ico()</script></td><td class="rtc"><span class="rtt"><%=ListTitle%></span></td><td class="rtr"></td></tr></table>
<div class="lrmc">
<%If Not rs.Eof and Not rs.Bof Then
	response.write("<table border=""0"" width=""100%"" cellpadding=""0"" cellspacing=""0"">")	
	lineNo=1
	Do While NOT rs.EOF AND lineNo<=rs.pagesize%>		
		<tr><td class="listl">
		[<a href=news.asp?catID=<%=rs("n.catID")%>&classID=<%=rs("n.classID")%>><%=rs("class")%></a>] <a href=shownews.asp?id=<%=rs("id")%>  title="新闻标题：<%=rs("news_title")%>&#10;发布日期：<%=rs("news_date")%>&#10;浏览次数：<%=rs("news_clicks")%>" target="_blank"><font color="<%=rs("titlecolor")%>"><%=cutStr(rs("news_title"),28)%></font> <%If rs("picnews")=1 Then response.write(" <img src=images/tuwen.gIf border=0 align=absmiddle title=""图片新闻"">") End If%></a>
		<%If rs("news_good")=True Then
			response.write("『<font color='#ff0000'>推荐</font>』")
		ElseIf DateDIff("d",rs("news_date"),now)<7 Then
			response.write("&nbsp;<img src='images/new_1.gIf' align='absmiddle'>")
		End If
		response.write("</td>")
		response.write("<td class='listm'>")
			response.write("<font class=date>"&FormatDateTime(rs("news_date"),vbShortDate)&"</font>")	
		response.write("</td>")
		response.write("<td class='listr'>")
			response.write(rs("news_Clicks"))
		response.write("</td></tr>")
		rs.MoveNext
		lineNo=lineNo+1
	Loop
	response.write("</table>")
Else
	response.write("<div class=""noNote"">暂时没有新闻！</div>")
End If%>
</div>
<%If rs.RecordCount>n Then%>
<div class="page"><%=nextpage%></div>
<%End If
response.write("</div>")
rs.close
Set rs=Nothing
End Sub
Sub picNews()%>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="rtl"><script type="text/javascript">ico()</script></td><td class="rtc"><span class="rtt">图片新闻</span></td><td class="rtr"></td></tr></table>
<div class="rmc">
<%
sql="select top 4 * from ms_news where picnews=1 and pass=true order by news_date desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,1
If Not rs.Eof And Not rs.Bof Then%>
	<table width="100%" border="0" cellpadding="0" cellspacing="0">
		<tr><td height="10"></td></tr>
		<tr>
<%
Do While Not rs.Eof%>
        <td align="center">
	<span class="v_bp1" style="margin-right:7px;margin-left:7px;margin-bottom:5px;margin-top:1px;width:115px;height:96px;"><span class="v_bp2" style="width:115px;height:94px;"><span class="v_bp3" style="width:115px;height:92px;padding:4px;text-align:center;">
<a href='shownews.asp?id=<%=rs("id")%>'>
<img src="<%=rs("news_imgurl")%>" ALT="新闻标题：<%=rs("news_title")%>&#10;发布日期：<%=rs("news_date")%>&#10;浏览次数：<%=rs("news_clicks")%>" style='width:115px;height:90px;border:1px solid #626262;' align='absmiddle'>
</a>
	</span></span></span>
<center><a href='showpic.asp?id=<%=rs("id")%>'><%=cutStr(rs("news_title"),8)%></a></center>
          </td>
<%
rs.MoveNext
Loop
%>
</tr></table></div>
<%
Else
Response.Write("<div class=""noNote"">暂时没有图片新闻！</div>")
End If
rs.Close
Set rs=Nothing%>
</div>
<%
End Sub
Sub newsCount(url)
if fabuPass=1 then
	cCount=application("count"&url)
end if
if isEmpty(cCount) then
	dim cCount(5),countrs
	countrs=conn.execute("select count(id) as newsNum,sum(news_clicks) as readNum from ms_news")
	cCount(0)=countrs(0)
	cCount(1)=conn.execute("select count(id) from ms_news where pass=false")(0)
	cCount(2)=conn.execute("select count(id) from ms_news where datediff('d',news_date,#"&now()&"#)=0 and pass=true")(0)
	cCount(3)=conn.execute("select count(id) from ms_news where datediff('d',news_date,#"&now()&"#)=1 and pass=true")(0)
	cCount(4)=countrs(1)
	if fabuPass=1 then
		application("count"&url)=cCount
	end if
	set countrs=nothing
end if
'========================================================
'MaoSin CMS 1.1      Power by maosin .com
'Email: [e-mail], [e-mail]
'Web: http://www.maosin.com  http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>
<li style="list-style-type: square;">新闻总数：<%=cCount(0)%>篇<br></li>
<li style="list-style-type: square;">待审新闻：<%=cCount(1)%>篇</li>
<li style="list-style-type: square;">今日更新：<%=cCount(2)%>篇</li>
<li style="list-style-type: square;">昨日更新：<%=cCount(3)%>篇</li>
<li style="list-style-type: square;">阅读次数：<%=cCount(4)%>次</li>
<%
End Sub
%>