%@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. 指导学生就某个专题,查文献,写综述:针对理论课或实验课中遇到的有兴趣问题,在教师指导下查阅文献,并撰写综述。例如98级本科生对疫苗预防很感兴趣,提出许多问题。我们没做简单的回答,而是引导他们到图书馆查阅文献,帮助他们对文献分析、思考、总结、概括写出了“肺炎链球菌疫苗的研究进展”、“肿瘤疫苗及其应用”等综述文章,不但满足了他们对疫苗的了解,还使他们初步学会了文献检索与利用方法,尝试了科技写作的程序。
2. 开放实验室,指导学生参加与本课程相关的部分科研实践:利用课余时间或假期吸收学生参加教师科研课题中实验周期短,又可以说明问题的部分实验,或就学生条件单独为他们选题。在教师指导下,让学生独立查文献,完成实验设计及实验全过程,记录和分析实验结果,撰写实验报告和论文。以达到对其进行科研训练的目的。
例如:“肺炎球菌对家兔致病性研究”、“仙台病毒在儿童急性呼吸道感染中的血清学调查”、“细菌鞭毛染色方法的研究”等。这种系统的教学方法,较充分的培养和锻炼了学生的实践和创新能力。
课外实践教学活动中获得成果或撰写研究论文的学生都可参加大学生科技活动竞赛,并屡获校、市级科技活动奖励,使学生在收获知识的同时自信心也得到了增强,对微生物学兴趣更加地浓厚。
多年的教学实践,我们认识到开展素质教育,注意学生能力的培养是教学工作中不可忽视的重要方面。而且用以上方法培养学生的实践和创新能力效果最好。目前我们对7年制和5年制学生每年接纳3-5个实践小组(20人左右)。作为医学院校的本科生能够在基础学习阶段参与课外实践教学活动是难能可贵的。
|
|
|
|
|
|
|