<%
'-----------------------------計數器--開始-------------------------------------------------
' 初期變數設定
strCookieURL="www.lyons.com.tw"
strTimeAdjust = 0
strHomeTimeAdjust = DateAdd("H", strTimeAdjust , Now())
strOnlineUserIP = Request.ServerVariables("REMOTE_ADDR")
strUserLanguage = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
strUserBorwser = Trim(Request.ServerVariables("HTTP_USER_AGENT"))
strUserFrom = Trim(Request.ServerVariables("HTTP_REFERER"))
strApprovalValue = 0
strCookieMark = "www.lyons.com.tw" ' YOUR SIDE MARK
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" then '判別使用者IP
UserIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"-代理伺服器"
Else
UserIp = Request.ServerVariables("REMOTE_HOST")
End If
' AA = mid(DateToStrE(strHomeTimeAdjust),1,8)
' BB = mid(Request.Cookies(strCookieURL & strCookieMark & "LAST_HERE"),1,8)
' CC = DateToStrE(strHomeTimeAdjust)
'判別Cookie
If mid(DateToStrE(strHomeTimeAdjust),1,8) <> mid(Request.Cookies(strCookieURL & strCookieMark & "LAST_HERE"),1,8) then
Response.Cookies(strCookieURL & strCookieMark & "LAST_HERE") = DateToStrE(strHomeTimeAdjust)
Response.Cookies(strCookieURL & strCookieMark & "LAST_HERE").Expires = dateAdd("H", 24, strHomeTimeAdjust)
if Request.Cookies(strCookieURL & strCookieMark & "SINCE_LOGIN") = "" then
' ***** SINCE LOGIN DATE *****
Response.Cookies(strCookieURL & strCookieMark & "SINCE_LOGIN") = DateToStrE(strHomeTimeAdjust)
Response.Cookies(strCookieURL & strCookieMark & "SINCE_LOGIN").Expires = dateAdd("H", 24, strHomeTimeAdjust)
End if
'開資料庫
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "Select * From Counts Where ID=1",Conn,1,3
Rs("TC")=Rs("TC")+1
Rs("UserIP")=trim(UserIp)
Rs("UserLanguage")=trim(strUserLanguage)
Rs("UserBorwser")=trim(strUserBorwser)
Rs("UserFrom")=trim(strUserFrom)
Rs("CDate")=Now()
TC = Rs("TC")
Rs.update
Rs.close
Set Rs=Nothing
'開資料庫
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "Select * From Counts",Conn,1,3
Rs.addnew
Rs("TC")=TC
Rs("UserIP")=trim(UserIp)
Rs("UserLanguage")=trim(strUserLanguage)
Rs("UserBorwser")=trim(strUserBorwser)
Rs("UserFrom")=trim(strUserFrom)
Rs("CDate")=Now()
Rs.Update
Rs.close
Set Rs=Nothing
'Conn.Close
'Set Conn= Nothing
End if
function DateToStrE(dtDateTime)
if not isDate(dtDateTime) then
dtDateTime = strToDateE(dtDateTime)
end if
DateToStrE = year(dtDateTime) & doublenum(Month(dtdateTime)) & doublenum(Day(dtdateTime)) & doublenum(Hour(dtdateTime)) & doublenum(Minute(dtdateTime)) & doublenum(Second(dtdateTime)) & ""
end function
function doublenum(fNum)
if fNum > 9 then
doublenum = fNum
else
doublenum = "0" & fNum
end if
end function
function strToDateE(strDateTime)
if ChkDateFormat(strDateTime) then
'Testing for server format
if strComp(Month("04/05/2002"),"4") = 0 then
StrToDate = cdate("" & Mid(strDateTime, 5,2) & "/" & Mid(strDateTime, 7,2) & "/" & Mid(strDateTime, 1,4) & " " & Mid(strDateTime, 9,2) & ":" & Mid(strDateTime, 11,2) & ":" & Mid(strDateTime, 13,2) & "")
else
StrToDate = cdate("" & Mid(strDateTime, 7,2) & "/" & Mid(strDateTime, 5,2) & "/" & Mid(strDateTime, 1,4) & " " & Mid(strDateTime, 9,2) & ":" & Mid(strDateTime, 11,2) & ":" & Mid(strDateTime, 13,2) & "")
end if
else
if strComp(Month("04/05/2002"),"4") = 0 then
tmpDate = DatePart("m",strHomeTimeAdjust) & "/" & DatePart("d",strHomeTimeAdjust) & "/" & DatePart("yyyy",strHomeTimeAdjust) & " " & DatePart("h",strHomeTimeAdjust) & ":" & DatePart("n",strHomeTimeAdjust) & ":" & DatePart("s",strHomeTimeAdjust)
else
tmpDate = DatePart("d",strHomeTimeAdjust) & "/" & DatePart("m",strHomeTimeAdjust) & "/" & DatePart("yyyy",strHomeTimeAdjust) & " " & DatePart("h",strHomeTimeAdjust) & ":" & DatePart("n",strHomeTimeAdjust) & ":" & DatePart("s",strHomeTimeAdjust)
end if
StrToDateE = tmpDate
end if
end function
function chkDateFormat(strDateTime)
chkDateFormat = isdate("" & Mid(strDateTime, 5,2) & "/" & Mid(strDateTime, 7,2) & "/" & Mid(strDateTime, 1,4) & " " & Mid(strDateTime, 9,2) & ":" & Mid(strDateTime, 11,2) & ":" & Mid(strDateTime, 13,2) & "")
end function
'讀計數器值
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "Select TC From Counts Where ID=1",Conn,1,1
TC = Rs("TC")
Rs.close
Set Rs=Nothing
'-----------------------------計數器--結束-------------------------------------------------
%>
MAGICAL BOND
<%
for LeftPic = 1 to 13
PicN = LeftPic
if Len(PicN) = 1 then PicN = "0" & PicN
select case LeftPic
case 1
PicUrl = "product_show.asp?ID=20"
case 2
PicUrl = "product_show.asp?ID=20"
case 3
PicUrl = "product_show.asp?ID=21"
case 4
PicUrl = "product_show.asp?ID=21"
case 5
PicUrl = "product_show.asp?ID=21"
case 6
PicUrl = "product_show.asp?ID=21"
case 7
PicUrl = "product_show.asp?ID=19"
case 8
PicUrl = "product_show.asp?ID=18"
case 9
PicUrl = "product_show.asp?ID=18"
case 10
PicUrl = "product_show.asp?ID=18"
case 11
PicUrl = "product_show.asp?ID=19"
case 12
PicUrl = "product_show.asp?ID=21"
case 13
PicUrl = "product_show.asp?ID=19"
end select
%>
<%next%>
O.E.M. SUPPLY
<%
for RightPic = 1 to 6
PicN = RightPic
if Len(PicN) = 1 then PicN = "0" & PicN
select case RightPic
case 1
PicUrl = "product_show.asp?ID=17"
case 2
PicUrl = "product_show.asp?ID=22"
case 3
PicUrl = "product_show.asp?ID=23"
case 4
PicUrl = "product_show.asp?ID=24"
case 5
PicUrl = "product_show.asp?ID=25"
case 6
PicUrl = "product_show.asp?ID=26"
end select
%>
