|
[ASP DateDiff 함수를 이용한 경과시간 체크하기]
DateDiff함수를 이용한 경과시간 체크 예제입니다. 경과시간을 알아서 어디다 쓰게..? 하는 분도 있을 수 있지만 웹사이트
의 성격에 따라서는 꽤나 요긴하게 쓰일 수 있습니다.
그럼 어떨때 요긴하게 쓰이는 지 간단히 예를 들어볼까요?
웹기획자가 이벤트를 기획해서 개발자를 찾아옵니다.
"이번에 기획한 이벤트는 출석왕 이벤트입니다. 이번 이벤트의 반응은 폭발적일겁니다!!"
개발자 왈 "그런데요?...!!"
기획자 왈 "이벤트 런칭이 내일이니...내일까지 구현해 주셔야죠."
개발자 왈 "내일요?..내일은 무린데... 디자인 파트에서 디자인도 나와야하고, "
기획자 왈 "내일까지는 맞춰주셔야 합니다."
개발자가 속으로 생각합니다 "미리 귀뜸이라도 해주던가!! 내일 사표나 써...."
아주 썰렁한 상황 예제이지만 시간경과를 체크해서 진행해야 하는 부분이 필요하다면 요긴하게 쓰일 수 있습니다.
아래는 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
loginCheckTime = bCheck
End Function
%>
|
|
작성자: 다자래(mfcchang@naver.com)
웹제작 토탈 커뮤니티 http://www.webmadang.net | | |
|
|
|
다자래
