<% 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") rs.Open "SELECT WebName, WebLink FROM Web", conn %> <%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)