天门市第一人民医院检验科始建于1952年，现拥有30名专业技术人员，70%拥有本科学历，60%以上拥有中级以上技术职称，其中高级职称1名。科主任被聘为湖北省临床检验学会委员、湖北省医学检验研究中心专家委员会委员、湖北省临床检验技术委员会委员、天门市科技成果评审鉴定专家。检验科现拥有血液学实验室、体液学实验室、放免实验室、生化实验室、血清免疫室、细胞学实验室、微生物实验室、分子生物学实验室、门急诊检验室及门诊检验室等十个临床实验室，这些实验室除负责所有临床标本的检验诊断外，还承担着省内各大、中专院校实习生的教学、市内各单位检验人员的进修培训及全市各相关专业的科研任务。
科室现拥有HITACHI7600-010大型全自动生化分析仪一台、SysmexSF－3000全自动血液分析仪一台、Sysmex UF-50尿沉渣分析仪一台、QL800微量元素分析仪一台、ABXMICROS三分类血球计数仪二台、Bact Alret 120细菌培养仪一台、ATB Expression 全自动鉴定及药敏测试仪一台、ACTOI半自动生化分析仪一台、GLR1000酶标仪一台、SN－695B型智能放免γ测量仪一台、DADEBEHRINGBN－100型特定蛋白分析仪一台、miniVIDAS全自动荧光免疫分析仪一台、XD685电解质分析仪一台、CIBA－CORNING560全自动生化分析仪二台、ABXPENTRO60五分类血球计数仪一台、Roche LightCycler 全自动荧光定量PCR分析仪一台等大型仪器和设备，目前检验科固定资产已达800万元。
现在科室能开展检验项目近千项，几乎所有的病种诊断及疗效观察都能在检验科找到答案。
|
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from News where NewsID=" & NewsID
rs.Open rs.source,conn,1,1
typeid=rs("typeid")
Title=trim(rs("Title"))
image=rs("image")
dim mode
set rs11=server.CreateObject("ADODB.RecordSet")
rs11.Source="select * from type where typeid="&typeid&" order by typeid"
rs11.Open rs11.Source,conn,1,1
mode=rs11("mode")
rs11.close
set rs11=nothing
arr_Content=split(News_Content,"[---分页---]")
MaxPages=ubound(arr_Content)
%>
|
| |
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select top 5 * from News where NewsID<>"& NewsID & " and (SpecialID=" & SpecialID & " or SpecialID2=" & SpecialID & ") and checkked=1 order by NewsID DESC"
rs.Open,conn,1,1
if rs.EOF then
Response.Write "| 没有专题信息 | "
else
while not rs.EOF
title=trim(rs("title"))
title=replace(title,"
","")
Response.Write "  " & Title & "(" & trim(rs("UpdateTime")) &")[" & rs("click") & "] | "
rs.MoveNext
wend
Response.Write " | "
end if
rs.Close
set rs=nothing
end if
'------------------------------------------------------------------------------------------------------------------------------------
Response.Write "
| | "
Response.Write "| 相关信息: | | "
if about<>"" then
sql="select top 5 * from news where (about like '%" & about & "%' or title like '%" & about & "%') and title not like '%" & title & "%' and checkked=1 order by newsid desc"
set rs=conn.execute(sql)
do while not rs.eof
title=trim(rs("title"))
title=replace(title,"
","")
%>
<% rs.movenext
loop
Response.Write " | "
else
Response.write "| 没有相关信息 | "
end if
'rs.close
set rs=nothing
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select top "&reviewnum&" * from review where NewsID=" & NewsID & " and passed=1 order by reviewid desc"
rs1.Open rs1.Source,conn,1,1
if rs1.EOF then NoReview=1
Response.Write "
| | "
Response.Write "| 相关评论: | | "
%>
<%
if not NoReview then
while not rs1.EOF
author=server.HTMLEncode(trim(rs1("author")))
email=server.HTMLEncode(trim(rs1("email")))
reviewip=rs1("reviewip")
content=trim(rs1("content"))
''content=replace(content,"<","<")
''content=replace(content,">",">")
''content=replace(content,chr(13),"
")
ContentLen=len(Content)
%>
<%
rs1.MoveNext
wend
end if
rs1.Close
set rs1=nothing
conn.close
set conn=nothing
%>
|
|
