<%@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 %> 政策简介
 
 
 
 
 
home 站内导航  
精品课程特色
  最新动态
 
  用户登录
 
用户名
密 码
  电子万年历
 
 
<% dtCurViewDay = DtPrevSunday(dtCurViewMonth) For iWeek = 0 To 5 Response.Write "" & vbCrLf For iDay = 0 To 6 Response.Write "" & vbCrLf dtCurViewDay = DateAdd("d", 1, dtCurViewDay) Next Response.Write "" & vbCrLf Next %> <%REM 结束绘制日历 %>
<%=MonthName(Month(dtCurViewMonth)) & " " & Year(dtCurViewMonth)%>
" If Month(dtCurViewDay) = Month(dtCurViewMonth) Then If dtCurViewDay = dtToday Then sFontColor = "#000000" Else sFontColor = "#5B9A32" End If '在表格中写入此月的每一天,如果是当前天,则用红色字体来表示出来 Response.Write "" Response.Write Day(dtCurViewDay) & "
" End If Response.Write "
 
 
 
 

鼓励精品课程有关政策简介

 
 
 

 

 学校十分重视精品课程建设,在组织机构、建设经费、考核奖励等方面均制定了相关规定,并加以落实。
  政策措施
1. 领导重视。
学校成立了精品课程建设领导小组,由主管教学的副校长直接领导开展工作。教务处专门负责精品课程申报,同时对精品课程进行定期检查,包括检查网上内容的更新情况。
2.制度保障。
学校制定精品课程总体规划,制定长远发展战略和年度计划。将精品课程建设作为全校教学工作的重要议题。各院系也制定了相应的规划和计划。学校还定期组织专家对各院系的精品课程进行检查,监督课程建设工作的落实。
 3.经费支持。学校 在“天津医科大学精品课程建设管理办法”中规定了对校级精品课程给予一次性建设运行经费;对校级精品课程申报市级或国家级的精品课程,学校和院系按年度投入建设经费,由学校和院系各投入50%。
4.奖励措施。
学校对评为国家级、市级、校级精品课程给予奖励,增加学时费和建设经费。
5. 经验交流
。开展精品课程建设经验的校际和院系际之间的交流,学习兄弟院校的经验,组织对校内精品课程的参观学习,以促进各课程整体水平的提高。
6.相关支持
。在精品课程建设中,学校在师资培训,人才引进上给予政策倾斜,更新实验设备,改善教学条件,校园网络中心积极配合教学工作,逐步形成了教学工作的中心地位。