<%@ Language=VBScript%> <%'该文件需要进行调整和设置 dim typename NewsID=Request.QueryString("NewsID") Page=Request.QueryString("page") if page="" then page=1 elseif not IsNumeric(page) then response.write "" response.end end if page=int(page) if newsid="" then response.write "" response.end elseif not IsNumeric(newsid) then response.write "" response.end else conn.execute("update News Set Click=click+1 where NewsID=" & NewsID ) set rs=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies("key")="" then rs.Source="select * from News where checkked=1 and newslevel=0 and newsid="&newsid end if if Request.cookies("key")="selfreg" then if Request.cookies("reglevel")=3 then rs.Source="select * from News where checkked=1 and newslevel<=3 and newsid="&newsid end if if Request.cookies("reglevel")=2 then rs.Source="select * from News where checkked=1 and newslevel<=2 and newsid="&newsid end if if Request.cookies("reglevel")=1 then rs.Source="select * from News where checkked=1 and newslevel<=1 and newsid="&newsid end if end if if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then rs.Source="select * from News where newsid="&newsid end if else rs.Source="select * from News where newsid="&newsid end if rs.Open rs.Source,conn,1,1 if rs.bof and rs.eof then response.write "无权限访问或无此内容,请注册登陆或联系管理员" else bigclassid=rs("bigclassid") smallclassid=rs("smallclassid") title=trim(rs("title")) title=replace(title,"
","") title1=trim(rs("title")) about=trim(rs("about")) Author=trim(rs("Author")) editor=trim(rs("editor")) Original=trim(rs("Original")) image=rs("image") UpdateTime=trim(rs("UpdateTime")) News_Content=rs("Content") SpecialID=rs("SpecialID") SpecialID2=rs("SpecialID2") click=rs("click") EnCode=trim(rs("EnCode")) typeid=rs("typeid") titletype=rs("titletype") titlesize=rs("titlesize") titlecolor=rs("titlecolor") titleface=rs("titleface") editor=rs("editor") if titlesize=0 then size="18px" else if titlesize=1 then size="8px" else if titlesize=2 then size="10px" else if titlesize=3 then size="12px" else if titlesize=4 then size="14px" else if titlesize=5 then size="18px" else if titlesize=6 then size="24px" else if titlesize=7 then size="36px" end if end if end if end if end if end if end if end if rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from type where typeID=" & typeID rs.Open rs.Source,conn,1,1 typename=rs("typename") rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from bigclass Where BigClassid=" & BigClassid rs.Open rs.Source,conn,1,1 bigclassname=rs("bigclassname") rs.close set rs=nothing if smallclassid<>"" then set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from smallclass Where smallClassid=" & smallClassid rs.Open rs.Source,conn,1,1 smallclassname=rs("smallclassname") rs.close set rs=nothing end if %> 耳鼻咽喉-头颈外科专栏
      栏目导航 网站首页>> 耳鼻咽喉-头颈外科专栏
  
<% 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 "" 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 %>

耳鼻咽喉-头颈外科医生简介

 

 


徐必生男,42岁。耳鼻咽喉科主任医师,天门市耳鼻咽喉科学科带头人,副院长。先后在武汉大学人民医院、中山大学耳鼻咽喉医院、上海交大第六医院耳鼻咽喉科进修。专长:耳鼻咽喉科良性和恶性肿瘤的诊断、手术和组织修复整形,气道和食道异物的诊断和治疗,眩晕和突聋的诊断和治疗,耳源性脑脓肿等颅内并发症的诊断和治疗,创伤和急危重症的抢救、显微手术、鼻内窥镜手术、鼾症手术、支撑喉镜手术、纤维鼻咽喉镜检查和治疗。在国家级和省级医学杂志发表论文近20多篇。两项省级科研成果达国内领先水平。

周四专科门诊

 

 

 


金康业教授,原武汉大学中南医院耳鼻咽喉科主任,耳鼻咽喉科主任医师,本院特聘教授,硕士研究生导师。常年坐诊。在多年的临床实践中积累了丰富的经验,精通耳鼻咽喉科学理论与实践,擅长临床听力学、耳外科学听力增进手术及中耳炎,眩晕、鼻炎、鼻窦炎、过敏型鼻炎、鼻息肉、咽喉炎及耳鼻咽喉科肿瘤的诊断及治疗。

周二、三专科门诊

 

 

何本超,男,耳鼻咽喉科主任,副主任医师。从事耳鼻咽喉科医疗工作十余年,曾赴北京大学人民医院及华中理工大学协和医院进修,开展了内窥镜下鼻腔、鼻窦的各种手术,中耳乳突手术、鼻咽喉、头颈部肿瘤手术、气管及食管镜手术等。熟悉本专业国内外新技术、新进展,撰写并在国内专业杂志发表论文二十多篇。湖北省重大科学技术成果1项,达国内领先水平。

周日专科门诊

 

 

周俊,男,耳鼻咽喉主治医师,从事耳鼻咽喉科医疗工作十余年,曾赴北京大学第三临床医院进修一年。能熟练诊治耳鼻咽喉科各种常见病及急重症,耳显微外科、内窥镜微创外科和头颈外科有较扎实地功底。

周六专科门诊

 

 

杨小平男,主治医师,从事耳鼻咽喉科医疗工作十余年,曾赴上海眼耳鼻咽喉医院进修一年。有扎实的专业基础理论知识,熟练开展鼻内窥镜手术、中耳乳突手术、鼻咽喉、头颈部肿瘤手术及食管镜手术等。熟练掌握纤维鼻咽喉镜检查。撰写并在国内专业杂志发表论文多篇。

周五专科门诊

 

 

 

胡碧波,男,耳鼻咽喉主治医师,从事耳鼻咽喉科医疗工作十余年,曾赴武汉大学人民医院进修一年。熟悉耳鼻咽喉科常见病多发病及一些疑难病的诊疗原则,对耳科学、听力学、鼻内窥镜手术、嗓音学、阻塞性睡眠暂停诊断治疗有浓厚的兴趣。

周一专科门诊

 

 

郑志刚男,98年毕业,曾赴武汉协和医院进修一年。住院医师,有扎实的专业基础理论知识,手术操作技能好,熟练开展鼻内窥镜手术、中耳乳突手术、鼻咽喉、头颈部肿瘤手术及食管镜手术等。

 

 


鲍柏林男,2000年于湖北医学院本科毕业,住院医师资格。能熟练诊治耳鼻咽喉科各种常见病及急重症。能熟练开展鼻内窥镜手术、扁桃体切除术、上颌窦根治术、食管镜手术、支撑喉镜手术、气管切开术等。熟练掌握纤维鼻咽喉镜检查。

 

 

 

 颜风波男,2002年于湖北医学院本科毕业,住院医师资格。有扎实的专业基础理论知识,掌握一定的手术操作技能,能独立完成耳鼻咽喉科中小手术。熟练掌握耳科学、听力学的理论知识。内窥镜微创外科和头颈外科有较扎实地功底。

 

 

 

李建勇 男,医师,有扎实的专业基础理论知识,手术操作技能好,能开展耳鼻咽喉科中小手术,熟练掌握纤维鼻咽喉镜检查。

 

 


鄢烈雄男,医师,有扎实的专业基础理论知识,手术操作技能好,能开展耳鼻咽喉科中小手术,熟练掌握纤维鼻咽喉镜检查。

 

 

 

 

 

 

 没有专题信息
  " & Title & "(" & trim(rs("UpdateTime")) &")[" & rs("click") & "]

相关信息:
 没有相关信息

相关评论:
 
 
<%end if%><%end if%>