<%@ 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 %> 欢迎留言
    环境卫生
    职业病诊断基本原则

      1.病史、职业史的询问和调查:职业病都有明确的病因,即职业有害因素,且有剂量反应关系。 (1)职业史:详细询问职业史,包括所在车间、工种、接触的职业有害因素、接触量、接触时间、专业工龄、生产流程、设备、操作方法、生产场所防护设施以及使用情况、生产劳动条件、生产环境中有害因素测定数据。 (2)病史:病人的主诉,由病人自己按时间顺序叙述症状的发生、起病的时间和方式、症状的性质、程序、持续时间、频率、诱因、加重因素、缓解因素、伴随因素、伴随症状、病情发生变化与工作的关系、治疗内容和效果。询问既往病史、家族史、服药史,了解在开始从事本工种前是否患过类似的疾病及其健康情况。
      2.劳动卫生学调查:了解生产环境中有害因素的种类和剂量,包括毒物类别,生产流程,应用的原材料、助剂、溶剂、中间产品、成品和半成品,生产方式、防护设备,残液、残气收集、排放情况。历年车间空气中有害物质的浓度测定资料、有害物理因素的强度、分析取样条件、测定方法及其可靠性,对车间工人健康状况及反映与接触有害因素的因果关系进行分析研究。
      3.临床检查:在详细询问病史、职业史的基础上,了解起病原因,各种症状发生的时间和程序,疾病发生发展经过与职业危害因素关系,从接触有害因素到出现症状的潜伏期,症状出现顺序与毒物或其他职业危害的关系。临床检查,包括体格检查和实验室检查也是诊断职业病的重要依据。 (1)体格检查:作详细的系统体格检查,根据接触有害因素种类对人体的主要靶器官进行特殊的体检以发现其受损脏器的体征。 (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 %>