日期:2014-05-17 浏览次数:20559 次
<%
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
%>