站内导航

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

站内导航

科室介绍	科室概况、承担课程、面对专业、规章制度、博士点自评报告

师资队伍	课程负责人、主讲教师、师资结构、教师培养、教师概览

教学资源	教学资料	课程介绍、授课教案、教学进度、教学大纲、实验指导、参考教材、学时分配

	实践教学	综合、设计性实验、课堂分组讨论、课堂专题讨论

	网络教学	网上自学、授课录像

	课件与习题	教学课件、思考习题

	考试试卷

教学改革

课程体系建设、教改课题、教改成果、著书立说、集体备课

	第二课堂	概况介绍、获奖情况

	留学生教学	留学生教学概况、留学生教学多媒体课件

教学效果评价

专家评价、同行评价、学生评价

科研版块	实验室简介	实验室建设、仪器设备

	科研力量	科研方向、科研立项、发表文章、成果鉴定、获奖情况

	人才培养	研究生培养

交流社区	教学反馈、网上答疑

申报材料

申报表及附件　　　　　 flash播放器下载