<%


'해당 아이피가 로그인후 경과한 시간을 체크
function loginTimeCheck(tblname,strIP,tValue)
 

   Dim TimeCheck, bCheck

        set dbcon = server.CreateObject("ADODB.Connection")
   dbCon.Open strConnect
 
  '해당 아이피의 idate의 값을 가지고 온다
  'idate의 데이타형식은 datetime형입니다.
  SQLtime="Select idate from " & tblname & " where ip='" & strIP & "'"
  SQLtime=SQLtime & " order by no desc"
  set rs = dbCon.Execute(SQLtime)

 
  'TimeCheck=datediff("n", rs("idate"),now) '몇분이 지났는지 확인

   TimeCheck=datediff( "h", rs("idate"),now) '몇시간이 지났는지 확인
   if int(TimeCheck)>int(tValue) then 'tValue의 값이 2이면 2시간이 지났는지 확인

    '//--------필요한 처리를 여기서 한다
    '//--------tValue의 시간이 지났으면  bCheck = true 아니면 false
    '//--------처리끝 ----------------
   
 
  end if

 

  rsTime.close
  set rsTime = nothing
  dbCon.close
  set dbCon = nothing

  loginCheckTime = bCheck


end function


%>








%>

2008/02/21 15:14 2008/02/21 15:14

Trackback Address :: 이 글에는 트랙백을 보낼 수 없습니다