% Set rsQuery = Con.Execute(SELECT * FROM MessageDB WHERE FORUMID= & Request.Querystring(forum) & ORDER BY REPLIES DESC) '---执行查询 While Not rsQuery.EOF ‘----循环每一条查得的记录 Response.Write Left(rsQuery(Time), 11) & br ’-----输出查出的字段“Time” rsQuery.MoveNext ‘----游标移动到下一条记录 Wend %