<% const adOpenForwardOnly=0 const adOpenStatic=3 const adLockReadOnly=1 const adLockOptimistic=3 const adCmdText=1 dbWhere = server.MapPath("sriburin.mdb") set conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbWhere set rs = Server.CreateObject("ADODB.RecordSet") set rs10 = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT TOP 1 * FROM tbCounter" rs.open strSQL,conn,adOpenForwardOnly,adLockReadOnly,adCmdText if not(rs.eof) then visitor_no=rs("fVisitor_no") else visitor_no=0 end if rs.close if session("visitor")="" then visitor_no = visitor_no+1 strSQL = "UPDATE tbCounter SET fVisitor_no=" & visitor_no & "" rs.open strSQL,conn,adOpenStatic,adLockOptimistic,adCmdText session("visitor")=visitor_no end if dim visitor_show(8) visitor_text = right("0000000" & (visitor_no),7) for flag_visitor=1 to 7 visitor_show(flag_visitor)=mid(visitor_text,flag_visitor,1) next %> ---- โรงพยาบาลเกษมราษฎร์ ศรีบุรินทร์ ----




      ช่วงนี้มีคนมาปรึกษาเรื่องนอนไม่หลับกันบ่อยๆเลยเอาสุขอนามัยในการนอนหลับที่ดีมาฝากครับ

         1. ตื่นนอนให้เป็นเวลา และเข้านอนให้เป็นเวลาทุกวัน

         2.ไม่ทํากิจกรรมอื่นใดบนเตียงนอนยกเว้นเรื่องนอ และกิจกรรมทางเพศ

         3. ใช้เวลาบนเตียงนอนให้น้อยที่สุดในแต่ละคืน

         4. ในกรณีที่เข้านอนแล้ว 10-15 นาที ยังไม่สามารถนอนหลับได้ ไม่ควรพยายามนอนต่อไป ควรลุกไปจากเตียง
              หรือไปห้องอื่นเพื่ออ่านหนังสือเบาๆหรือทํากิจกรรมอื่น ๆ เมื่อรู้สึกง่วงจึงกลับเข้านอนใหม่

          5.ไม่ควรมีนาฬิกาบอกเวลาในห้องนอน

         6. ไม่ทํากิจกรรมที่ต้องออกแรงกาย หรือหนักสมองก่อนเข้านอน

         7. มีกิจกรรมผ่อนคลายก่อนการเข้านอน เช่น อาบนํ้าอุ่น ดื่มนม หรือนํ้าผลไม้ อ่านหนังสือเบา ๆ 10นาทีก่อน
              เข้านอน

         8. งดกาแฟ ชา ก่อนเวลาเข้านอน 6 ชั่วโมง และงดสุรา บุหรี่เมื่อเวลาเข้านอน

         9. พยายามไม่งีบหลับในช่วงกลางวันมากเกินไป เพราะจะทําให้คืนนั้นไม่ง่วงและคุณภาพการนอนไม่ดี

         10. ออกกําลังกายเบาๆ อย่างสมํ่าเสมอ เช่น เดินยืดเส้นยืดสายก่อนเวลานอน 2-3 ชั่วโมง แต่หากออกกําลังกาย
                หนักควรทําในช่วงเย็น ๆ เท่านั้น

         ลองปฏิบัติตาม จะได้หลับสบายกันทุกท่านครับ

   

                                                                                                                   ขอบุญรักษาครับ

                                                                                                                        Dr.M


 

กลับหน้าหลัก |  ตั้งกระทู้ใหม่่
 
 
ค้นหาคำถาม
  - คำถามที่มีคนตั้งใหม่วันนี้   - คำถามที่มีคนตอบวันนี้   - คำถามที่มีรูป
คำถามที่ หัวข้อ ผู้ถาม ผู้ตอบ ตอบ อ่าน
00006 จิตแพทย์รักษาได้หรือไม่ มีน [2008-11-03] Dr.M [2008-11-04] 1 0
00005 เครียดดดดดคร้าบบบบบ คิดมากไปป่าวครับ เอกชัย [2008-11-01] Dr.M [2008-11-04] 1 0
00004 รู้สึกแบบนี้ผิดไหม ผิดไหม [2008-10-09] Dr.M [2008-10-16] 1 0
00003 ทุกข์ใจค่ะ มุ [2008-10-06] Dr.M [2008-10-16] 1 0
00002 ผมเป็นวัณโรคหรือเปล่า ภศุวัติ [2008-09-14] รพ.ศรีบุรินทร์ [2008-09-15] 1 0
00001 ทำไม หฯชอบฝันถึงคนไม่รู้จัก ไม่เข้าใจ [2008-09-01] gIaStJWI [2008-11-21] 797 0
- คำถามใหม - คำถามเก่า - คำถามที่ถูกตอบแล้ว - คำถามที่มีคนตอบมาก
แสดงหน้าที่ 1/1
1
[ ตั้งคำถามใหม่ ]
© 2005 ksbrhospital.com All rights Reserved.