<%
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
%>
修改密碼替代方案