开封大学教务处欢迎你

工作流程

相关下载

新闻公告

副处长室

姓名	岗位	办公地点	办公电话
赵振江
赵振江	副处长	综合楼136	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 %>