医院简介
点击进入医院简介之设备技术图文版
天门市第一人民医院始创于1950年，是天门市集医疗、教学、科研、急救、康复于一体的综合性国家二级甲等医院、国际爱婴医院和卫生部国际紧急救援中心网络医院，是华中科技大学、武汉大学、武汉科技大学医学院等十余所高等院校的教学医院。医院占地面积100余亩，固定资产2.8亿元。
医院现有职工759人，其中高级职称116人，中级职称399人。开设49个临床医技科室，设有消化内科等11个市级重点专科（甲类）。开放床位680张，年门诊量45.5万人次，住院病人2.9万余人次，手术近8000台次。拥有美国GE磁共振、德国六排螺旋CT、日本东芝1250MA数字减影血管机、意大利GMM1000MA数字胃肠机、日本7600-010大型生化分析仪、德国西门子acuson-SEQUOZA彩超、超声内镜、各类电子纤维内窥镜、ECT、准分子激光、直线加速器等先进大型医疗设备140余台件。
近年来，医院坚持科学发展观，不断创新、引进先进医疗技术手段，诊疗业务范围和技术水平向三级医院靠近。先后开展了心脏起搏器安装、冠状动脉造影支架置入术、直视心脏手术、全喉切除术、白内障超声乳化、腹（胸）腔镜及宫腔镜手术、前列腺汽化电切、鼻窦内窥镜手术、关节镜手术、逆行胰胆管造影及十二指肠乳头切开取石、全髋置换，肺、食管、肝和直肠各类肿瘤规范化治疗与放射介入治疗等均达到国内先进水平，在全省及江汉平原具有相当知名度。近三年，发表论文354篇（其中中华级15篇），374项科技成果通过市级鉴定。24项科技成果获省重大科技成果鉴定证书，其中3项分别获得省政府和省卫生厅科学技术进步奖，58项获天门市政府科学技术进步奖。
医院重视两个文明建设，先后被授予“湖北省医院管理年活动先进单位”、“湖北省以病人为中心优质服务示范医院”、“湖北省最佳文明单位”、“湖北省卫生系统先进集体”和“全省卫生系统思想政治工作先进集体”、“全省事务公开工作先进单位”、“全省药品质量管理信得过单位”等荣誉称号。
|
<%
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
%>
|
|
