asp可以连接access，在单元格不能显示出数据库对应的记录
<table width="100%" height="122" border="0" align="left" cellpadding="0" cellspacing="0"><%
set Rs=server.CreateObject("adodb.recordset")
sqlStr="select * from Product where BigClassName='项目' and Passed=True order by ID desc"
Rs.open sqlStr,conn,1,1
Rs.pagesize=7
page =clng(Request.QueryString("page"))
if page<1 then page=1
if page>Rs.pagecount then page=Rs.pagecount
if not Rs.eof then
rs.AbsolutePage = page
%>
<tr>
<%
s = 0
for i = 1 to rs.pagesize
if s = 0 then
response.write "<tr>"
end if
if rs.eof then exit for
%>
<td align="left" height="150" style="border-bottom:#B3DCE8 1px solid"><table width="100%" height="116" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td width="213" rowspan="2" align="center" valign="middle"><a href="ProductShow.asp?id=<%=Rs("id")%>" target="_blank"><img src="<%if Rs("DefaultPicUrl")<>"" then response.write Rs("DefaultPicUrl") else response.write "pic/nopic2.gif" end if%>" width="202" height="138" border="0" style="FILTER: alpha(opacity=100)" onmouseover="nereidFade(this,80,10,5)" onmouseout="nereidFade(this,100,10,5)" /></a></td>
<td width="438" height="30" align="left" valign="middle" style=" padding-left:10px;border-bottom:1px #B6DCEB solid; border-left:1px #B6DCEB solid;"><%=cutstr(rs("title"),400)%></td>
</tr>
<tr>
<td height="108" align="left" valign="top" style="padding-left:10px;border-left:1px #B6DCEB solid;"><%=cutstr(rs("Content"),400)%></td>
</tr>
</table></td>
<%
if s =0 then
response.Write"<tr>"
s = -1
end if
rs.movenext
s = s+ 1
next
%>
<%
else
response.Write("<tr><td>还没有添加信息。</td></tr>")
end if
%>
</tr>
</table></td>
</tr>
<tr>
<td height="40" align="right" style="font-size:12px;"><%
if Rs.RecordCount<>0 then
if rs.pagecount=1 then
response.Write "上一页 "
response.Write "下一页 "
else
if page=1 then
response.Write "上一页 "
response.Write "<a href=?page="& (page+1) &">下一页</a> "
elseif page=Rs.pagecount then
response.Write "<a href=?page=" & (page-1) &">上一页</a> "
response.Write "下一页 "
else
response.Write "<a href=?page=" & (page-1) &">上一页/a> "
response.Write "<a href=?page="& (page+1) &">下一页</a> "
end if
end if
end if
%>
当前页<%=page%>/<%=rs.pagecount%>， 共<%=rs.RecordCount%>条信息 9条每页
<%Rs.close%> </td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/ny_17.jpg" width="730" height="30" /></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
