Map in Website

<%@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 %> Map in Website

站内导航

精品课程特色

最新动态

用户登录

电子万年历

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

Map in Website

Department Introduction	Profile、 Course、 Specialty、 Regulation、 Self-Assessment Report of Ph.D Spot

Faculty	Course Leader 、Chief Teacher 、Teacher Structure、Training of Teachers 、Teaher Outline

Education Resource	Teaching Material	Course Introduction、Teaching Plan 、Teaching Schedule 、Teaching Outline 、Experiment Instruction、 Reference Book 、Teaching Hour Allotment 、 Course Stepping Construction

	Practice Education	Comprehensive Experiment、Classroom Discussion in Group 、Topic Discussion in Class

	Network Education	Teach-Yourself Online 、Teaching Video

	Studying Helper	CAI、Questions、Answeres

	Test

Education Reform

Course Stepping Construction 、Education Reform Project、
Education Reform Achievement、Publisher Book 、Prepare the class

	Extracurricular Education	Introduction、Prize

	Oversea students' education	Introduction、CAI

Teaching effect Assessment

Expert Assessment、Trade Assessment 、
Student Assessment 、Teaching Video

Research	Laboratory Introduction	Laboratory Construction 、Facility

	Research Staff	Research Direction、Researching Project 、Published Article 、Achievement Appraisal 、Prize

	Talent Education	Graduate Education

BBS	Teaching Feedback 、Reply on Line

Declared Material

Declared Table and Attachment