<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/db/demo.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT WebName, WebLink FROM Web" rs.Open sql, conn %> <%for each x in rs.Fields response.write("" & x.name & "") next%> <%do until rs.EOF%> <%for each x in rs.Fields%> <%Response.Write(x.value)%> <%next rs.MoveNext%> <%loop rs.close conn.close %>
效果会显示在右边 Create by 软晨网(RuanChen.com)