% '-------------- '判斷是否維護 '-------------- 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 %>