<body background="images/bg.gif" link="#000000" vlink="#000000" alink="#000000" marginheight="0">
<table width="97%" height="179" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<% do while ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<td height="129"> <div align="center"> <a href="<%=(Recordset1.Fields.Item("mb").Value)%>?userid=<%=(Recordset1.Fields.Item("userid").Value)%>" target="_blank"><img src="<%=(Recordset1.Fields.Item("userphoto").Value)%>" alt="userphoto" width="82" height="104" border="1"></a><br>
<%=(Recordset1.Fields.Item("nicheng").Value)%><br>
<br>
人气指数 <%=(Recordset1.Fields.Item("click").Value)%><br>
<p></p>
</div></td>
<%
i=i+1
if i mod 4 = 0 then
exit do
response.write "<td> </td>"
end if
Recordset1.movenext
loop
%>
</tr>
</table>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
...全文
303打赏收藏
{求救}如何再实现两行四列,请教高手解决,急用!!!!!
目前已经实现显示记录一行四列. <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = "dsn=SQL Server;uid=