아주 썰렁한 상황 예제이지만 시간경과를 체크해서 진행해야 하는 부분이 필요하다면 요긴하게 쓰일 수 있습니다.
아래는 Table에 로그인 시간을 기록해두고, 다음 로그인 시간 경과를 체크하는 짧막한 함수입니다.
<%
"해당 아이피가 로그인후 경과한 시간을 체크
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