<% Dim intCheckBoxValue intCheckBoxValue = Request.Form ("checkbox") If intCheckBoxValue = "" Then Response.Write "" End If Dim arrValue Call SetConn () arrValue = split (intCheckBoxValue,",") For i = 0 To Ubound(arrValue) Conn.Execute ("update tsysuser set mdel=1 where sysid = " & arrValue(i) & "") Next Call ClearConn () Response.Redirect "ListSystem.asp?current="&Request.QueryString ("current") %>