ASP/Visual Basic代碼 復制代碼 代碼如下: <% Const p=6 '每頁2條 set rs = server.createobject("adodb.recordset") sql = "Select * from show order by id Desc" rs.Open sql,conn,1
i=0 do while not rs.eof %> <td align="center" height="98"> <a href="show.asp?id=<%=rs("id")%>"> <img src="<%=rs("pic")%>" width="150" height="98" alt="<%=rs("name")%>" /></a> </td> <% If (i+1) Mod 3 =0 Then Response.Write "</tr>" If i<(p-1) Then Response.Write "<tr>" End If i=i+1 if i>p then exit do rs.movenext Loop If i Mod 3 <>0 Then For m=3-(i Mod 3) To 1 Step -1 response.write"<td> </td>" Next response.write"</tr>" End If If i = 3 Then response.write" <td> </td><td> </td><td> </td></tr>" End if rs.close set rs=nothing %>
之前的代碼未更改
復制代碼 代碼如下: <% Const p=6 '每頁2條 set rs = server.createobject("adodb.recordset") sql = "Select * from show order by id Desc"
