支持概况

<%@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 %> 支持概况

站内导航

精品课程特色

最新动态

用户登录

电子万年历

<% 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．2002年，形态学综合实验室，投资380万元；

2．2005年，细胞生物学实验室建设，投资200万元；

3．2006年，病原与免疫教研室，投资300万元；

4．实验室维持费30万元/年。