耳鼻咽喉-头颈外科简介
科室概况
耳鼻咽喉-头颈外科有床位27张，有主任医师、副主任医师各1名，主治医师4名，住院医师4名。
该科开展的喉癌切除手术、鼻咽血管纤维瘤摘除术、喉显微手术、鼓室成型术,鼻腔鼻窦肿瘤等经鼻侧进路的摘除术。各种年龄各种难度的呼吸道异物及食道异物的取出术均达到先进水平。内窥镜下鼻腔、鼻窦的各种手术，如鼻息肉摘除、筛窦开放及筛房切除、上颌窦病灶清除窦口扩大、蝶窦口扩大病灶清除、鼻额管口的扩大术、中鼻甲下鼻甲的部分切除、鼻中隔偏曲粘膜下切除术；提高了鼻腔、鼻窦常见病、多发病的诊疗水平，减少了复发率,鼻内镜下的鼻窦手术也达到较高水平。三项省级科研成果达国内领先水平。拥有国外进口的Wolf鼻内窥镜手术系统，ZeissS88手术显微镜，美敦力手术动力切削系统，耳鼻咽喉综合诊疗台，纯音听力计,声阻抗（中耳功能分析仪），射频治疗仪，电子鼻咽喉镜等数十万检测治疗设备。
|
<%
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
%>
|
|
