内五科由肾内科中医科组成肾病泌尿内科主治急慢性肾炎、急慢性尿道炎、系统性红班狼疮、过敏性紫癜、类风湿性关节炎性肾病，、泌尿系结石、前列腺炎、各种急慢性肾功能衰、肾性高血压、糖尿病肾病；尿急、尿频、血尿、蛋白尿、乳糜尿、肾虚、阳萎、早泄等症候群；在我市开展血液透析，治疗各种急慢性尿毒症、农药、鼠药中毒、高脂血症、高血容量性左心衰等。
中医科主治腰椎间盘突出、神经衰弱、中风后遗症、更年期综合征、软组织伤、脑外伤后遗症、不孕不育症、肥胖症、功血性子宫出血、急慢性胃炎、结肠炎、眩晕症、、等各类疑难杂病。
余秉治主任医师
余秉治现任国家中医药管理局全国中西医结合肾病医疗中心主任（武汉市第一医院肾病中心主任）、中西医结合主任医师、硕士研究生导师、同济医科大学兼职副教授、湖北省中医学院兼职副教授、湖北省肾病学会常委、湖北省中西医结合肾病学会常委、武汉市中西医结合学会常务理事、武汉市肾病学会副主任委员、《临床肾脏病杂志》、《华中医学杂志》编委等职务。余秉治主任长期从事中西医结合肾病临床和研究工作，主持和参与五项科研课题的研究，分别获湖北省及武汉市科技进步奖：“中药穴位注射治疗慢性肾衰竭的临床观察及实验研究” “肾衰Ⅰ号治疗慢性肾功能不全的临床观察及实验研究”。余秉治主任在承担繁忙的临床和研究工作的同时，还担任了《现代中医肾脏病学》副主编、《肾脏病六大病征诊疗学》、《中医药理论量化与微量元素》两本医学专著的编委；发表了《重症狼疮性肾炎的中西医结合治疗》、《难治性慢性肾盂肾炎的最新治疗》、《玄黄汤加减治疗IgA肾病的临床观察》等医学论文二十余篇。2005年余秉治教授接受了来天门第一人民医院指导肾脏疾病的诊治重任，使我市肾脏疾病的诊疗水平达国内先进行列，为天门人民的健康事业做出了巨大的贡献。
余秉治教授每月中旬下旬星期二来我院查房坐诊
孙治华副主任医师
孙治华现任天门市肾病诊疗中心主任。内五科兼血透室副主任湖北省第六届肾脏学会委员 1993年从事临床内科工作先后在第一军医大南方医院，中山医科大学进修肾病科，擅长中西医结结合治疗各种肾脏泌尿系疾病，在各级杂志上发表医学论文十余篇。是我市诊治肾病科疾病的学科带头人。
孙治华副主任医师每周二周六坐诊
熊友仙副主任医师
熊友仙现任内五科主任，长期从事临床中医工作二十余年，擅长中西结合治疗椎间盘突出、神经衰弱、中风后遗症、更年期综合征、软组织伤、脑外伤后遗症、不孕不育症、肥胖症、功血性子宫出血、急慢性胃炎、结肠炎、眩晕症、、等各类疑难杂病。对中医消化疾病有很深的造诣。
熊友仙副主任医师每周三、周五坐诊。
血透室正利用血液灌流加血液透析技术抢救一位肾衰合并肝衰的患者
内五科联系电话：0728-5237443
|
<%
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
%>
|
|
