news.asp

本系统(共享国际学校管理系统)具有的主要功能: 1、导航内容：学校概况、校内新闻、学校内务、德育工作、 教育科研、教师之窗、学生园地、学校党建、 校园相册、校内论坛(导航内容后台生成,可随

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/inc.asp"-->
<%
start="校内新闻动态"
dim founderr
founderr=false
if request("type")<>"" then
  if not isInteger(request("type")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
call head()
call menu()
dim totalnews,Currentpage,totalpages,i
sql="select news_id,news_title,news_date,news_count,news_color,reviewcount from news order by news_id DESC"
if request("type")=2 then
sql="select news_id,news_title,news_date,news_count,news_color,reviewcount from news order by news_date DESC"
elseif request("type")=3 then
sql="select news_id,news_title,news_date,news_count,news_color,reviewcount from news order by news_date ASC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center>" & vbCrLf
Response.Write "<TBODY><TR><TD class=l></TD>" & vbCrLf
Response.Write "<TD height=""23"" align=""right"">" & vbCrLf
Response.Write "<a href='?type=1'>·最新的10篇新闻</a>&nbsp;<a href='?type=2'>·按时间降序排列</a>&nbsp;<a href='?type=3'>·按时间升序排列</a>&nbsp;" & vbCrLf
Response.Write "</TD>" & vbCrLf
Response.Write "<TD class=r></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"" height=300>" & vbCrLf
Response.Write "  <TBODY>" & vbCrLf
Response.Write "  <TR vAlign=top align=left>" & vbCrLf
Response.Write "    <TD width=200>" & vbCrLf
Response.Write "<DIV class=member>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutabletop(""本 站 声 明"",""ml"");</SCRIPT>" & vbCrLf
Response.Write "<div style=""LINE-HEIGHT: 180%"">&nbsp;&nbsp;本站所有内容版权都归我校所有,在未经我校同意充许下,任何单位或个人严禁抄袭或引用,否则可能受到我校最大程度的起诉!。" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutablebottom(""mr"");</SCRIPT>" & vbCrLf
Response.Write "</TD>" & vbCrLf
Response.Write "<TD>" & vbCrLf
Response.Write "<DIV class=mframe>"
%>
<SCRIPT type=text/javascript>lanyutable("<%if request("type")=1 then%>最新的10篇校内新闻<%else%>共有<span class='newshead'><%=rs.recordcount%></span>篇校内新闻 <%end if%>");</SCRIPT>
<table width="100%" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" bordercolor="#f0f0f0" style="border-collapse: collapse" frame=lhs>
<%
if not rs.eof then
rs.movefirst
rs.pagesize=newsperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   totalnews=rs.recordcount
   if currentpage<>1 then
       if (currentpage-1)*newsperpage<totalnews then
	       rs.move(currentpage-1)*newsperpage
		   dim bookmark
		   bookmark=rs.bookmark
	   end if
   end if
   if (totalnews mod newsperpage)=0 then
      totalpages=totalnews\newsperpage
   else
      totalpages=totalnews\newsperpage+1
   end if
i=0
do while not rs.eof and i<newsperpage
%>
<TR bgColor=#FFFFFF><TD width="63%"><UL class=nl><LI class=lanyu><a href='shownews.asp?news_id=<%=rs("news_id")%>' target='_blank' Title='校内新闻名称：<%=rs("news_title")%>&#13&#10上传时间：<%=rs("news_date")%>&#13&#10浏览指数：<%=rs("news_count")%>'><%=rs("news_color")%><%=rs("news_title")%></font></a></LI></UL></TD><TD width="10%" align=Center><%=rs("news_count")%></TD><TD width="27%" align=Center><%=rs("news_date")%></TD></TR>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
<TR bgColor=#FFFFFF><TD colspan="3" align=middle height="60">没有任何校内新闻，请管理员到后台添加！</TD></TR>
<%end if
end if
if not request("type")=1 then%>
<form name="form1" method="post" action="news.asp">
<tr height=30 bgColor=#FFFFFF><td colspan="3">
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR> 
<TD align=middle width="35%" height=25><IMG height=14 src="img/so.gif" width=14 align=absMiddle> 共[<font color="#FF6666"><%=totalnews%></font>]个作品　分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="40%" align=middle><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=news.asp?page=1>首页</a> "
response.write "<a href=news.asp?page="&CurrentPage-1&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=news.asp?page="&(CurrentPage+1)
response.write ">下一页</a> <a href=news.asp?page="&totalpages&">尾页</a>"
end if
%>&nbsp;<IMG height=11 src="img/rt.gif" width=11 align=absMiddle></TD>
<form name="form1" method="post" action="news.asp">
<TD align=middle width="25%">
<select name="page" class="lanyu">
<%
i=1
for i=1 to totalpages
if i=currentpage then
%>
<option value=<%=i%> selected>第<%=i%>页</option> 
<%else%>
<option value=<%=i%>>第<%=i%>页</option> 
<%end if
next%>
</select><input type="submit" name="Submit2" value="转向" onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff"> </TD>
</TR>
</FORM>
</TABLE> </td></tr>
<%
end if%>
<tr align="center"><td height="1" colspan="3"></td></tr></table><br>
</DIV></TD></TR>
</TBODY></TABLE>
<%
rs.close
set rs=nothing
call footer()
%>