<%
'--------------
'判斷是否維護
'--------------
set connMember = getconnMEMBER("connMember3")
set comm = Server.CreateObject("ADODB.Command")
comm.activeConnection = connMember
comm.CommandType = 4
comm.CommandText = "MCS_SP_QUERY_MAINTAIN_FLAG"
comm.Parameters.Append comm.CreateParameter("GAME", 200, 1,10, "ZX") 'not null
comm.Parameters.Append comm.CreateParameter("STATUS", 200, 2, 20)
comm.execute
if isNull(comm("STATUS")) then
connMember.close:set comm = Nothing
response.redirect "../co.html"
response.end
end if
if comm("STATUS") = 1 then
connMember.close:set comm = Nothing
response.redirect "../co.html"
response.end
end if
connMember.close:set comm = Nothing
%>
帳號解凍驗證