<%
'server.Execute "/NoHACK2.asp"
' 不在Client端留快取
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
' 確認目前名額
dim rs, sql, rsCount, nowhh
' 鎖開通時間
if DateDiff("h", "2006/10/23 19:00:00", Now) < 0 then
response.Redirect "world2_CB2_msg.asp?ID=6" ' 活動期間未到
response.End
elseif DateDiff("h", Now, "2006/10/27 23:55:00") < 0 then
response.Redirect "world2_CB2_msg.asp?ID=7" ' 活動已結束
response.End
end if
nowhh = DatePart("h",now())
' 鎖中午12:00後才能申請
if nowhh < 12 then
response.Redirect "world2_CB2_msg.asp?ID=12"
response.End
elseif (nowhh < 19 and nowhh > 11) then
' 重複申請 ( 玩家點上一頁 )
if request.Cookies("ApplyDone") = "true" then
response.Redirect "world2_CB2_msg.asp?ID=2"
response.End
end if
'----中午1600名
sql = "select count(*) as exp1 from AC_20061023_CBApply3 where CBGet='Y' and DateDiff(d, AddTime, GetDate())=0"
set rs = GetRecordset(sql)
rsCount = rs("exp1").value
rs.close
set rs = nothing
if rsCount > 1999 then ' 若今日名額已滿
response.Redirect "world2_CB2_msg.asp?ID=13"
response.End
end if
elseif (nowhh > 18 and nowhh < 23) then
' 重複申請 ( 玩家點上一頁 )
if request.Cookies("ApplyDone") = "true" then
response.Redirect "world2_CB2_msg.asp?ID=2"
response.End
end if
'----晚上1600名
sql = "select count(*) as exp1 from AC_20061023_CBApply3 where CBGet='Y' and DateDiff(d, AddTime, GetDate())=0"
set rs = GetRecordset(sql)
rsCount = rs("exp1").value
rs.close
set rs = nothing
if rsCount > 3989 then ' 若今日名額已滿
response.Redirect "world2_CB2_msg.asp?ID=3"
response.End
end if
else
response.Redirect "world2_CB2_msg.asp?ID=3"
response.End
end if
response.Cookies("ApplyDone") = "false"
%>
完美世界Online