<%@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 "
 
 
 
 

精品课程特色介绍


  
 
课程体系建设: 课程体系建设    
课外实践教学: 概况介绍 获奖情况  
校方支持
政策概况： 政策简介    
校方支持： 支持概况    
实验室建设： 实验室建设 主要仪器设备（附图）  
　　

　　感谢各位专家、评委在百忙之中浏览本课程网站，为了您更全面地了解本课程、本教研室情况，请点击页面上方各部分版块，或建议您使用页面上方右侧的“站内导航”，将使浏览变得更一目了然。
　 　感谢您的关注与支持，我们将努力做得更好。

医学微生物学课程组