ASP读取数据表中的所有字段

 For i = 0 to oRs.Fields.Count- 1
    Response.Write("<th>" & ors.Fields(i).Name & "<BR>")
   Next