<%@ 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.呼救
    立即向急救中心120呼救,送中毒者医院进行洗胃、导泻、灌肠。
    2.催吐
    用人工刺激法,用手指或钝物刺激中毒者咽弓及咽后壁,引起呕吐,同时注意,避免呕吐误吸而发生窒息。
    3.妥善处理可疑食物
    对可疑有毒的食物,禁止再食用,收集呕吐物、排泄物及血尿送到医院做毒物分析。
    4.防止脱水
    轻症中毒者应多饮盐开水、茶水或姜糖水、稀米汤等。重症中毒者要禁食8—12小时,可静脉输液,待病情好转后,再进些米汤、稀粥、面条等易消化食物。
    5.向上级报告
    除做好以上工作外不应及时向所在地食品卫生监督机构报告。

    食物中毒重在预防,预防措施如下:

    1. 对食品生产人员要加强卫生宣传教育;
    2. 在家里生熟食物要分开存放;
    3. 生吃瓜果、蔬菜要洗净、消毒;严禁食用病死畜禽;各种食物都不应放置过久;
    4. 肉类食物要煮熟,防止外熟内生;剩余的食物在吃前应加热或高压处理;
    5. 对不熟悉、不认识的动物不随意采捕食用;
    6. 海蜇等海产品宜用饱和食盐水常浸泡保存,食用前应冲洗干净。

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