仪器设备

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

实验室主要仪器设备一览表

　　设备分类（点击进入）

组织培养：　CO2孵箱　荧光倒置显微镜　冷冻干燥设备

细胞生物学：　冰箱　超净工作台　倒置显微镜及图形分析系统

流式细胞仪　荧光化学发光分析仪

分子生物学：

PCR仪　梯度PCR仪　低温高速离心机　多功能摇床　多用途冷冻离心机

高速离心机　高效漩涡混匀器　全自动凝胶分析系统　生化培养箱

基因芯片研究：

芯片点样仪　样品激光分析仪

其他：

纯水器　负80度　冰箱微量分析天平

2005.07 修订