开封大学教务处欢迎你

工作流程

相关下载

新闻公告

处长室

姓名	岗位	办公地点	办公电话
吴玺玫	处长	综合楼137	3655896 3810041

教务处处长岗位工作职责

1、负责教务处全面工作；

2、组织制订教学管理规章制度和教学计划；

3、组织制订并落实教学改革和教学基本建设方案；

4、组织落实专业建设、课程建设，参与师资队伍建设；

5、督察教学情况，组织教学质量评价工作；

6、组织落实院部教材建设工作；

7、检查落实教务处岗位职责制，做好本处干部职工的考核和奖惩工作；

8、承办学校领导交办的其他工作。

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