%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim dtToday
dtToday = Date()
Dim dtCurViewMonth ' 当前月
Dim dtCurViewDay ' 当前天
%>
<% REM 此部分定义一些后面要用的函数 %>
<% REM 用来设置本月的上一个星期天 %>
<%
'--------------------------------------------------
Function DtPrevSunday(ByVal dt)
Do While WeekDay(dt) > vbSunday
dt = DateAdd("d", -1, dt)
Loop
DtPrevSunday = dt
End Function
'--------------------------------------------------
%>
<%REM 根据用户的动作设置适应的月份
' 如果单击了“上月”按钮
If InStr(1, Request.Form, "subPrev", 1) > 0 Then
dtCurViewMonth = DateAdd("m", -1, Request.Form("CURDATE"))
' 如果单击了“下月”按钮
ElseIf InStr(1, Request.Form, "subNext", 1) > 0 Then
dtCurViewMonth = DateAdd("m", 1, Request.Form("CURDATE"))
' 否则显示当前时间
Else
dtCurViewMonth = DateSerial(Year(dtToday), Month(dtToday), 1)
End If
%>
<% REM --------此部分开始绘制日历-------- %>
<% REM 此部分主要执行一个匹配循环并绘制相应日历 %>
<%
Dim iDay, iWeek, sFontColor
%>
<%
sql="select * from home"
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open sql,conn,1,1
%>
政策简介
|
|
|
|
|
|
学校十分重视精品课程建设,在组织机构、建设经费、考核奖励等方面均制定了相关规定,并加以落实。
政策措施
1. 领导重视。学校成立了精品课程建设领导小组,由主管教学的副校长直接领导开展工作。教务处专门负责精品课程申报,同时对精品课程进行定期检查,包括检查网上内容的更新情况。
2.制度保障。学校制定精品课程总体规划,制定长远发展战略和年度计划。将精品课程建设作为全校教学工作的重要议题。各院系也制定了相应的规划和计划。学校还定期组织专家对各院系的精品课程进行检查,监督课程建设工作的落实。
3.经费支持。学校 在“天津医科大学精品课程建设管理办法”中规定了对校级精品课程给予一次性建设运行经费;对校级精品课程申报市级或国家级的精品课程,学校和院系按年度投入建设经费,由学校和院系各投入50%。
4.奖励措施。学校对评为国家级、市级、校级精品课程给予奖励,增加学时费和建设经费。
5. 经验交流。开展精品课程建设经验的校际和院系际之间的交流,学习兄弟院校的经验,组织对校内精品课程的参观学习,以促进各课程整体水平的提高。
6.相关支持。在精品课程建设中,学校在师资培训,人才引进上给予政策倾斜,更新实验设备,改善教学条件,校园网络中心积极配合教学工作,逐步形成了教学工作的中心地位。
|
|
|
|
|
|
|
|