% game = "W2" if game <>"" or isNull(game) then '---------------------------------------------------- 檢查是否維護中 set connSYS = getconnMEMBER("connMember3") set comm = Server.CreateObject("ADODB.Command") comm.activeConnection = connSYS comm.CommandType = 4 comm.CommandText = "MCS_SP_QUERY_MAINTAIN_FLAG" comm.Parameters.Append comm.CreateParameter("GAME", 200, 1,10, game) 'not null comm.Parameters.Append comm.CreateParameter("STATUS", 200, 2, 20) comm.execute if isnull(comm("STATUS")) then response.write "" response.end end if if comm("STATUS") = 1 then response.write "" response.end end if set comm = nothing end if %>