<%@ Language=VBScript %> <% dim ASPBook dim StrSQL if not isempty(request("page")) then Mypage=cint(Request("page")) else Mypage=1 end if set ASPBook = Server.CreateObject("ADODB.Recordset") StrSQL = "Select * from guest order by ID desc" ASPBook.open StrSQL,conn,1,1 ASPBook.pagesize=Mypagesize maxpages=cint(ASPBook.pagecount) totalsize=cint(Mypagesize) ASPBook.absolutepage=Mypage GuestTotal=ASPBook.RecordCount if cint(Mypage) >1 then if cint(Mypage) > maxpages then MESSAGE("
  • 没有你所想去的页数!
  • ") Response.End end if end if HEADER "显示留言" MyMenu %> 欢迎留言
    环境卫生
    石棉肺(Asbestosis)

    摘自 http://www.xraydoor.com
    1.病因病理
    从事石棉采集及加工者,长期吸入石棉粉尘可致石棉肺。见于纺织、建筑、造船、航天和交通机械中用石棉制作隔热、保温、放火和制动材料的工人。
    2.临床表现
    常有胸痛、气短及咳嗽等,痰中可查到石棉小体。
    3.影像学表现
    1.X线表现:
    ①肺门阴影增大、肺纹理增多。上肺透过度增加,而中、下肺野透过度减低。
    ②两肺中下野散在细网状影,其中间杂有直径约1mm的颗粒状阴影,以肺底和肺门区较为显著。
    ③胸膜可有不同程度粘连和肥厚。
    2.CT表现:
    ①胸膜斑常见,为散在局灶性胸膜增厚,其内缘光滑或不规整,可有钙化,易发生在肋胸膜后、外侧。
    ②弥漫性胸膜增厚,形成连续片状,通常厚而不规则,常见于侧胸壁和脊柱旁区。
    ③小叶中心和小叶间隔增厚,前者为近胸膜1-2cm范围内放射状细线影,后者则表现为垂直于胸膜的短线影。
    ④胸膜下弧线影,长1~10cm线影,位于胸膜下方1cm范围内且与胸膜平行。
    ⑤肺实质纤维带,为长2~5cm线影,与胸膜相连并伸入肺实质内。
    ⑥蜂窝状表现,为小于1cm含气囊腔,壁厚1~3mm,易发生在胸膜下区。
    ⑦肺内肿块,可为叶裂胸膜斑、球形肺不张、纤维性肿块等。叶裂胸膜斑有固定位置,与叶裂一致。球形肺不张与增厚的胸膜相连。呈豆形或楔状,和邻近血管相连而形成慧星尾状。
    ⑧可并发间皮瘤和肺癌。
    4.鉴别诊断
    有职业史并在胸片和CT检查时具有典型表现者,诊断不难。特别是CT或HRCT检查能发现胸片正常的早期肺实质和胸膜改变。当肺内有肿块时,其可为纤维性肿块、球形肺不张或肺癌,CT检查对鉴别有一定帮助,必要时应行针吸活检。
    <% function PageLink PageShowSize = 10 Scriptname=Request.Servervariables("script_name") PageNextSize=int((MyPage-1)/PageShowSize)+1 Pagetpage=int((GuestTotal-1)/MyPageSize)+1 if Maxpages > 1 then if PageNextSize >1 then PagePrev=PageShowSize*(PageNextSize-1) Response.write "[<<]-" end if if Mypage-1 > 0 then Prev_Page = MyPage - 1 Response.write "[<] " end if if maxpages>=PageNextSize*PageShowSize then PageSizeShow = PageShowSize else PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1) end if for PageCounterSize=1 to PageSizeShow PageLink = (PageCounterSize+PageNextSize*10)-10 if PageLink <> cint(Mypage) then Response.write "[" & PageLink & "] " else Response.Write PageLink & " " end if next if Mypage+1 <=Pagetpage then Next_Page = MyPage + 1 Response.write "[>]" end if if maxpages > PageShowSize*PageNextSize then PageNext = PageShowSize * PageNextSize + 1 Response.write "-[>>]" end if else Response.write "[1]" end if END function set ASPBook=nothing conn.Close set conn = nothing %>