Gxlsystem TIY Editor
Gxlsystem 在线教程
改变方向
暗黑模式
<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/db/northwind.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Companyname, Contactname FROM Customers" 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 %>