<%@ 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 %>

 

耳鼻咽喉-头颈外科设备简介

 

耳鼻咽喉综合诊疗台

本诊疗台为国内最新产品，集鼻内窥镜、耳内窥镜、

显像系统等于一体，为患者提供方便的诊疗服务。

耳鼻咽喉综合诊疗台

 

 

耳鼻咽喉手术动力切削系统(XPS-2000)

1 鼻科手术
　　多种型号和多种角度的切割刀头和钻头使鼻窦内窥镜手术更安全、精确和彻底，同　　时为手术的延伸提供了有效的工具。

2增殖体切除手术
　　使增值体切除术更精确，更安全和彻底

耳鼻咽喉手术动力切削系统(XPS-2000)

 

 

Zeiss手术显微镜

手术显微镜是耳科手术必备仪器，它能清楚显示极细微结构，

用于鼓室置管、鼓室成型、镫骨手术、中耳乳突手术、中耳癌

手术治疗、面神经减压、耳廓畸形的手术治疗等，也可用于声带

肿物摘除等显微手术。

 

 ZeissS8手术显微镜

 

 

Wolf鼻内窥镜手术系统

鼻内窥镜在近20年有了长足的发展，是鼻科手术的一次革命，它具有视野开阔，损伤小，病变切除彻底，手术恢复快等特点。目前我科已进开展了鼻内窥镜下鼻腔止血、后鼻孔闭锁成形术、鼻腔鼻窦良恶性肿瘤切除、鼻息肉切除、筛窦开放、蝶窦开放、鼻额管扩大、上颌窦口扩大术、前颅底肿瘤的联合手术、功能性内窥镜鼻窦手术等。

Wolf鼻内窥镜手术系统

 

 

纯音听力计

是利用电声学原理设计而成，能发生各种不同比率的

纯音，其强度可加以调节。通过纯音测听检查不仅可以

了解受试耳的听敏度，估计听力损害的程度，并可初步判断类型和病变部位，且能记录档案，前后比较。

耳聋的纯音听力计

 

 

声阻抗（中耳功能分析仪）

是客观测试中耳传音系统和脑干听觉通路功能的方法。
· 鼓室导抗图，可较客观的反应鼓室内各种病变的情况。
· 咽鼓管功能的检测。
· 同侧与对侧镫骨肌反射阈试验同侧与对侧声衰减试验

 

 声阻抗（中耳功能分析仪）

 

 

射频治疗仪

通过物理热效应而起作用，用于治疗慢性咽喉炎滤泡增生、

鼻出血、过敏性鼻炎、肥厚性鼻炎等。

 

 

Olympus纤维喉镜及耳鼻咽喉图文报告系统

纤维喉镜系利用透光玻璃纤维的可曲性，配合电视系统，应用于：
· 检查鼻腔、鼻咽情况
· 检查会厌、喉部（声带）情况
· 行纤维喉镜下鼻咽、喉部肿物活检
· 行纤维喉镜下声带小结、声带息肉摘除术

 

 

 

Olympus纤维喉镜及耳鼻咽喉图文报告系统

 

 

 

 

 

 

 

 

 
 没有专题信息
  " & Title & "(" & trim(rs("UpdateTime")) &")[" & rs("click") & "]
相关信息:
 没有相关信息
相关评论:
　
　
<%end if%><%end if%>