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

 
 

国内部分医学院校网站地址

 

•  上海医科大学 http://www.shmu.edu.cn

•  上海第二医科大学 http://www.shsmu.edu.cn

•  湖南医科大学 http://www.ummed.edu:8000/pub/z/zhou/hmu.html

•  浙江医科大学 http://www.zmu.zju.edu.cn

•  哈尔滨医科大学 http://www.hrbmu.edu.cn

•  中国医科大学 http://www.fmu.ac.jp/home/zhang/cmu/cmuchi.html

•  中山医科大学 http://www.gzsums.edu.cn

•  同济医科大学 http://ultr.tjmu.edu.cn

•  华西医科大学 http://www.wcums.edu.cn

•  天津医科大学 http://www.tijmu.edu.cn

•  北京医科大学 http://www.bjmu.edu.cn

•  中国协和医科大学 http://www.pumc.edu.cn

•  首都医科大学 http://www.cpums.edu.cn

•  中国医学科学院 http://www.imicams.ac.cn/cams/cams-c.html

•  军事医学科学院 http://www.bmi.ac.cn

•  第一军医大学 http://www.fimmu.edu.cn

•  第二军医大学 http://www.smmu.edu.cn

•  第三军医大学 http://www.timmu.edu.cn

•  第四军医大学 http://www.fmmu.edu.cn

•  白求恩医科大学 http://www.nbums.cc.jl.cn