谢谢elite
现在又有一个新问题，因为我希望这四个表格里面的值是查询到的记录
我使用了rs的循环：
................
<%
dim i,j
for j=1 to 4
if j mod 2 = 0 then
bc="#ffffff"
else
bc="#feeeea"
end if
%>
<%
i=0
if rs.eof then
response.write "对不起，有错误！"
else
rs.pagesize = "10"
if page = "" or page < "1" then
page = "1"
end if
if rs.pagecount > "0" then
rs.absolutepage = page
end if
do while not rs.eof
i=i+1
if i > rs.pagesize then
exit do
end if
%>
<td bgcolor="<% =bc %>"><div align="center"><a href="" onClick="window.open('index.asp?id=<%=rs("id" )%>')" ><%=rs("name" )%></a></div></td>
<%
if i>=10 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<% next %>
..................
但是调试的时候不能通过，提示说：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'RS'
错误位置是在“ if j mod 2 = 0 then”这里
这是什么原因呀？
