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

 

鼻内镜术后随访须知

 

一鼻内镜手术特点

在彻底清除病变的基础上，尽可能地保留鼻腔和鼻窦的结构，尤其是

中鼻甲。把重建鼻腔和鼻窦的通气和引流，作为改善和恢复鼻腔、鼻

窦粘膜形态及生理功能的基本条件，来治愈鼻窦炎。即通过小范围的

局限性的手术解决广泛的鼻窦病变。目前这一观点和技术已得到国际

鼻科学界的公认并迅速推广。

 

二、术后随访的重要性

手术后局部的处理对手术的成败关系很大，手术后窦腔粘膜向正常形

态转化约需三个月—六个月的时间，二次感染，迁延性感染，再生息

肉，窦口的狭窄，中鼻道粘连等现象多发生在这段时间，而且发病率

很高，按时术后随访和换药是预防术后术腔粘连和闭塞的最重要的步

骤，如忽视这些问题，可导致手术前功尽弃，术后处理与手术本身同

等重要，可以说只是完成了整个治疗过程的一半，而术后随访和术腔

清理是更复杂和长期的工作。

三、随访内容

由医生对您的术腔进行检查，清理及治疗，以及时发现异常并预防并

发症的发生。

四、随诊时间

术后三个月内每1—2周回医院复诊，每周四上午8:00—11:30在病房

换药室。

 

耳鼻咽喉科咨询电话：5237451

 

 

 

 

 

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