กำลัง Online อยู่ <% Call LogActiveUser() Call ActiveUserCleanup() Response.Write "" & Application("ActiveUsers") & " คน" Sub LogActiveUser Dim strActiveUserList Dim intUserStart, intUserEnd Dim strUser Dim strDate strActiveUserList = Application("ActiveUserList") If Instr(1, strActiveUserList, Session.SessionID) > 0 Then Application.Lock intUserStart = Instr(1, strActiveUserList, Session.SessionID) intUserEnd = Instr(intUserStart, strActiveUserList, "|") strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart) strActiveUserList = Replace(strActiveUserList, strUser, Session.SessionID & ":" & Now()) Application("ActiveUserList") = strActiveUserList Application.UnLock Else Application.Lock Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1 Application("ActiveUserList") = Application("ActiveUserList") & Session.SessionID & ":" & Now() & "|" Application.UnLock End If End Sub Sub ActiveUserCleanup Dim ix Dim intUsers Dim strActiveUserList Dim aActiveUsers Dim intActiveUserCleanupTime Dim intActiveUserTimeout intActiveUserCleanupTime = 1 'เวลาที่เราต้องการให้รันไฟล์นี้ครับตอนนี้เซตเป็น ทุกๆ1 นาทีครับ intActiveUserTimeout = 10 'เวลาที่เราจะตัดสินว่าเค้าไม่อยู่ในเวบเราแล้วที่นี้คือ 10 นาทีครับ If Application("ActiveUserList") = "" Then Exit Sub If DateDiff("n", Application("ActiveUsersLastCleanup"), Now()) > intActiveUserCleanupTime Then Application.Lock Application("ActiveUsersLastCleanup") = Now() Application.Unlock intUsers = 0 strActiveUserList = Application("ActiveUserList") strActiveUserList = Left(strActiveUserList, Len(strActiveUserList) - 1) aActiveUsers = Split(strActiveUserList, "|") For ix = 0 To UBound(aActiveUsers) If DateDiff("n", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), ":") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then aActiveUsers(ix) = "XXXX" Else intUsers = intUsers + 1 End If Next strActiveUserList = Join(aActiveUsers, "|") & "|" strActiveUserList = Replace(strActiveUserList, "XXXX|", "") Application.Lock Application("ActiveUserList") = strActiveUserList Application("ActiveUsers") = intUsers Application.UnLock End If End Sub %>
	.... ด่านตรวจคนเข้าเมืองแม่สาย ... www.Maesaiimm.com   หนังสือเดินทางสูญหาย   1. แจ้งความร้องทุกข์ที่สถานีตำรวจ หรือตำรวจท่องเที่ยว ขอหลักฐานใบแจ้งความร้องทุกข์ พร้อมสำเนา 2. ติดต่อสถานทูตของประเทศเจ้าของหนังสือเดินทาง เพื่อขอออกหนังสือเดินทางเล่มใหม่ หรือเอกสารใช้แทนหนังสือเดินทาง หากไม่มีสถานทูตในประเทศไทยให้ติดต่อ กรมการกงสุล กระทรวงการต่างประเทศ 3. หนังสือจากสถานทูตถึงด่านตรวจคนเข้าเมือง ขอความร่วมมือให้สำเนาตราขาเข้า ลงในหนังสือเดินทางเล่มใหม่ (อาจจะมีหรือไม่ก็ได้ขึ้นอยู่กับสถานทูตของประเทศต่างๆ) 4. กรุงเทพฯ ติดต่องาน 4 กองกำกับการ 4 กองบังคับการอำนวยการ สำนักงานตรวจคนเข้าเมือง ในส่วนภูมิภาค ติดต่อด่านตรวจคนเข้าเมือง เขียนคำร้องและกรอกข้อมูลรายละเอียด เช่น ชื่อ ชื่อสกุล เลขที่หนังสือเดินทาง วันเดือนปี ที่เดินทางเข้ามาในราชอาณาจักร และเที่ยวบิน ช่องทางเข้า 5. พนักงานเจ้าหน้าที่ประจำด่านตรวจคนเข้าเมือง ตรวจสอบความถูกต้อง ความสมบูรณ์ของเอกสาร ตามข้อ 1 – 4 6. พนักงานเจ้าหน้าที่ประจำด่านตรวจคนเข้าเมือง ตรวจสอบหลักฐานการเดินทางเข้ามาในราชอาณาจักร