datagrid.asp

来自「东软内部材料（四）asp等相关的教学案例 」· ASP 代码 · 共 29 行

<!-- #INCLUDE FILE="./ConnectionStrings.asp" -->

<%
  Dim rs
  Dim fld

  Set rs = Server.CreateObject("ADODB.Recordset")

  rs.Open "select * from authors", ConnectionString

  If Not rs.EOF Then
    Response.Write "<table border='1'><tr>"
    For Each fld In rs.Fields
      Response.Write "<td>" & fld.Name & "</td>"
    Next
    Response.Write "</tr>"

    While Not rs.EOF
      Response.Write "<tr>"
      For Each fld In rs.Fields
        Response.Write "<td>" & fld.Value & "</td>"
      Next
      Response.Write "</tr>"
      rs.MoveNext
    Wend

    Response.Write "</table>"
  End If
%>