<%
'建立记录集
str="select * from table"
set conn=server.createobject("ADODB.Connection")
sql="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath ("db.mdb")
conn.open sql
set rs=server.createobject("ADODB.Recordset")
rs.open str,conn,1,1
%>
以下为显示界面
<%
dim num_tr
num_tr=0
%>
<table width="111" height="67%" border="0" cellpadding="0" cellspacing="0">
<%
while not rs.eof
%>
<tr>
<td width="780" height="43"><%= rs("title") %></td>
<%
num_tr=num_tr+1
If num_tr mod 2=0 Then
response.write "</tr><tr>"
End If
%>
<%
rs.movenext
loop %>
</table>