日期:2014-05-17 浏览次数:20484 次
<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath("MengXianHui.mdb") set rs=conn.Execute("Select * from Document") Response.Write "<table border=1>" While Not rs.EOF Response.Write "<tr>" For i = 1 To 3 If rs.EOf Then Response.Write "<td> </td>" Else Response.Write "<td>" & rs("Title") & "</td>" rs.MoveNext End If Next Response.Write "</tr>" Wend Response.Write "</table>" conn.Close Set conn = Nothing %>