<%@ 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 %> 欢迎留言
    环境卫生
    矽肺(Silicosis)

    摘自 http://www.xraydoor.com
    1.病因病理
      矽肺系长期吸入一定浓度的二氧化硅粉尘所引起的以肺部弥漫性纤维化为主的疾病。多见于采矿、玻璃、陶瓷、耐火材料、石英制粉和铸造业工人。矽肺易并发结核。
    2.临床表现
    矽肺患者早期可无任何症状,随着病情发展可有咳嗽、气急、胸痛等,如合并结核往往产生发热、盗汗、咯血的症状。
    3.影像学表现
    1)X线表现:
    ①典型矽肺为多发直径 1~3mm 小结节,即矽结节,由胶原纤维和硅尘构成,可融合成团块,好发于上肺。
    ②团块周围常有肺大泡。
    ③胸内淋巴结增大、钙化。如肺门淋巴结呈蛋壳样钙化有助于与其他尘肺区别。
    ④胸膜常广泛粘连、增厚。
    2)CT表现
    ①两肺散在大小较为一致的小结节影,其密度较高,边界清楚。
    ②小结节可融合为较大团块影,直径约 1cm ,甚至可达 10cm以上,易发生在上叶。
    ③小结节周围常并有小叶中心气肿或弥漫性肺气肿。
    4.鉴别诊断
    矽肺的多发小结节需与粟粒性肺结核鉴别,融合的团块需与肺部肿瘤鉴别,如肿块周围并有肺气肿时,则提示为融合的团块,并非肿瘤。

    附:尘肺的分类和诊断标准:
    国际上根据国际劳工组织(ILO)国际尘肺X钱影像分类1991年修订版,并附有一套标准胸片、文字说明及注解三部分组成。我国1986年修订的尘肺诊断及分级标准如下:
    1.无尘肺(代号0)
    (1)0期:无尘肺的X线表现。
    (2)0+期;X线表现尚不够诊断为“Ⅰ”期者。
    2.一期尘肺(代号Ⅰ)
    (1)Ⅰ期:有密集度1级的类圆形小阴影,分布范围至少在两个肺区内各有一处,每处直径不小于2cm;或有密集度1级的不规则形小阴影,其分布范围不少于两个肺区。
    (2)Ⅰ+期:小阴影明显增多,但密集度与分布范围中有一项尚不够定为“Ⅱ”期者。
    3.二期尘肺(代号Ⅱ)
    (1)Ⅱ期:有密集度2级的类圆形或不规则形小阴影,分布范围超过四个肺区;或有密集度3级的小阴影,分布范围达到四个肺区。
    (2)Ⅱ+期:有密集度为3级的小阴影,分布范围超过四个肺区;或有大阴影尚不够定为“Ⅲ”期者。
    4.三期尘肺(代号Ⅲ)
    (1)Ⅲ期:有大阴影出现,其长径不小于 2cm,宽径不小于1cm。
    (2)Ⅲ+期;单个大阴影的面积,或多个大阴影面积的总和超过右上肺区面积者。

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