<%
' //******************* Information ***********************
' // Program Title : 접속통계 config
' // File Name : config.asp
' // :
' //*********************************************************
'
' //******************* Information ***********************
' // 함수설명 : 이전,다음) 년,월,일 변경
' //*********************************************************
sub ChangeDate( prevTextYY, nextTextYY, prevTextMM, nextTextMM, prevTextDD, nextTextDD)
if YY <> "" Then theCase = "YY"
if YY <> "" and MM <> "" Then theCase = "MM"
if YY <> "" and MM <> "" and DD <> "" Then theCase = "DD"
'//echo $theCase;
Select Case theCase
Case "YY"
tempPrev = YY - 1
tempNext = YY + 1
if tempPrev < 1 Then tempPrev = 1
if tempNext > 2100 Then tempNext = 2100
strValue = " " & prevTextYY & " | "
strValue = strValue & "" & nextTextYY & ""
Case "MM"
tempPrev = DateSerial(YY, MM-1, 1)
tempNext = DateSerial(YY, MM+1, 1)
strValue = " " & prevTextMM & " | "
strValue = strValue & "" & nextTextMM & ""
Case "DD"
tempPrev = DateSerial(YY, MM, DD-1)
tempNext = DateSerial(YY, MM, DD+1)
strValue = " " & prevTextDD & " | "
strValue = strValue & "" & nextTextDD & ""
End select
response.write strValue
End sub
' //******************* Information ***********************
' // 함수설명 : 최대값 bold 적용
' //*********************************************************
sub SetDetail(theNum)
if arrData(theNum,0) = maxCount and maxCount <> 0 then
arrData(theNum,0) = "" & arrData(theNum,0) & ""
End if
response.write arrData(theNum,0)
End sub
' //******************* Information ***********************
' // 함수설명 : 주일
' //*********************************************************
sub SetWeek(theNum)
Dim week
Select Case theNum
Case 0 : week = "日"
Case 1 : week = "月"
Case 2 : week = "火"
Case 3 : week = "水"
Case 4 : week = "木"
Case 5 : week = "金"
Case 6 : week = "土"
End select
response.write week
End sub
' //******************* Information ***********************
' // 함수설명 : os명
' //*********************************************************
function SetOS(strvalue)
Dim vOS
Select Case strvalue
case "" : vOS = "unKnown"
case "Windows NT 5.0": vOS = "Windows 2000"
case "Windows NT 5.1": vOS = "Windows XP"
Case Else
vOS = strvalue
End select
SetOS = vOS
End function
' //******************* Information ***********************
' // 함수설명 : 브라우저명
' //*********************************************************
function SetBrowser(strvalue)
if trim(strvalue) = "" then
vBrowser = "unKnown"
else
vBrowser = strvalue
End if
SetBrowser = vBrowser
End function
' //******************* Information ***********************
' // 함수설명 : 검색 조건
' //*********************************************************
sub SetWhere()
qryValue = ""
if YY <> "" then
qryValue = " where vYY = '"& YY & "'"
End if
if MM <> "" then
if qryValue <> "" then qryValue = qryValue & " and "
qryValue = qryValue & " vMM = '" & MM & "'"
End if
if DD <> "" then
if qryValue <> "" then qryValue = qryValue & " and "
qryValue = qryValue & " vDD = '"& DD & "'"
End if
If YY = "" and ( MM <> "" or DD <> "" ) Then qryValue = " where " & qryValue
End sub
' //******************* Information ***********************
' // 함수설명 : 년 select box
' //*********************************************************
sub SelectYear()
%>
<%
End sub
' //******************* Information ***********************
' // 함수설명 : 월 select box
' //*********************************************************
sub SelectMonth()
%>
<%
End sub
' //******************* Information ***********************
' // 함수설명 : 일 select box
' //*********************************************************
sub SelectDay()
%>
<%
end sub
%>