开封大学教务处欢迎你

工作流程

相关下载

新闻公告

1	教师外出参加培训、学术会议费用报销程序
2	教师外出参加培训、学术会议申请程序
3	开封大学各专业教材征订流程
4	开封大学自编教材编写申请流程
5	开封大学自编教材编写申请流程
6	开封大学自编教材使用申请流程
7	开封大学素质教育选修课选课流程
8	学籍检查工作流程
9	学生办理复学工作流程
10	学生办理缓考工作流程
11	学生办理免修工作流程
12	学生办理退学工作流程
13	学生办理休学工作流程
14	学生办理转专业工作流程
15	学生成绩更正工作流程

版权所有 ◎ 开封大学教务处
学校地址：开封市大梁路　邮政编码：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 %>