<%
'해당 아이피가 로그인후 경과한 시간을 체크
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
%>
%>