开封大学教务处欢迎你

工作流程

相关下载

新闻公告

教务系统

精品课程

新生报到系统

版权所有 ◎ 开封大学教务处
学校地址：开封市大梁路　邮政编码：475004
教务处电话：0378-3810019 0378-3810041 　传真：03783655896

<% StartTime sub_title="最新动态" Ft_mbstr=head() StrTemp=split(mb_news,"|||@@@|||") Ft_mbstr=Ft_mbstr+replace(StrTemp(0),"{left_pub}",m_leftpub) Ft_mbstr=Ft_mbstr+foot() call PubFunction(Ft_mbstr) dim totalnews,Currentpage,totalpages,catid,cattotal,curpagenum '设置新闻系统为默认分页大小的倍率 curpagenum=pagenum*2 if request.querystring("page")<>"" then page=cint(CheckSql("新闻分页",request.querystring("page"),0,8)) end if if request.querystring("cat_id")<>"" then catid=CheckSql("新闻分类",request.querystring("cat_id"),0,4) sql="select cat_id from Ft_news_cat where cat_id="&catid set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then Response.Redirect("showerr.asp?errmsg=

没有此分类或该分类已删除！

") end if rs.close:set rs=nothing sql="select * from Ft_news where cat_id="&catid&" order by istop=1,news_date DESC" else sql="select * from Ft_news order by istop=1,news_date DESC" end if set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if request.querystring("cat_id")<>"" then catname="" sql="select cat_name from Ft_news_cat where cat_id="&catid set rscat=conn.execute(sql) catname=rscat("cat_name") rscat.close:set rscat=nothing cattotal="【"&catname&"】分类共有 "&rs.recordcount&" 条新闻 " else cattotal="目前本站共有 "&rs.recordcount&" 条新闻 " end if Ft_mbstr=replace(Ft_mbstr,"$cattotal$",cattotal) dim Ft_mbstr_newslist,newsstate,newsnew Ft_mbstr_newslist=split(Ft_mbstr,"///") response.write Ft_mbstr_newslist(0) if not rs.eof then rs.movefirst rs.pagesize=curpagenum if trim(request.querystring("page"))<>"" then currentpage=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)*curpagenum 置顶新闻

" elseif rs("user_view")=1 then newsstate="

" elseif rs("user_view")=2 then newsstate="

" else newsstate="

" end if if DateDiff("d",rs("news_date"),now())" else newsnew="" end if Ft_mbstr=replace( Ft_mbstr_newslist(1),"$newsstate$",newsstate) Ft_mbstr=replace(Ft_mbstr,"$newsid$",rs("news_id")) Ft_mbstr=replace(Ft_mbstr,"$newstitle$",rs("news_title")) Ft_mbstr=replace(Ft_mbstr,"$newsnew$",newsnew) Ft_mbstr=replace(Ft_mbstr,"$newsdate$",rs("news_date")) Ft_mbstr=replace(Ft_mbstr,"$newscount$",rs("news_count")) response.write Ft_mbstr i=i+1 rs.movenext loop else response.write"暂时没有此分类或此类新闻！" end if rs.close:set rs=nothing response.write Ft_mbstr_newslist(2) Ft_mbstr=replace(Ft_mbstr_newslist(3),"$newspage$","") if totalnews>curpagenum then showpage totalnews,curpagenum,"news.asp?" end if Ft_mbstr=replace(Ft_mbstr,"$runtime$",EndTime) response.write Ft_mbstr CloseDatabase %>