运用数据库。select username from user where flag=1输出rs("username")<%dim rsSet rs= Server.CreateObject("ADODB.Recordset")sql="select username from user where flag=1"rs.Open sql,conn,1,1%><%do while not rs.eof%><table><tr><td>rs("username")</td></tr></table><%i=i+1rs.movenextlooprs.closeset rs=nothing%>update user