经过大鸟哥的指导已做全面的修改,本人能力有限只能做到下面这步了:
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
%>
<a href="show.asp?id=https://www.jb51.net/article/”>
<img class="aligncenter" src="https://www.jb51.net/article/” width=”150″ height=”98″ class=”copybut” id=”copybut22098″>复制代码 代码如下:
<%
Const p=6 ‘每页2条
set rs = server.createobject(“adodb.recordset”)
sql = “Select * from show order by id Desc”
rs.Open sql,conn,1
i=1
do while not rs.eof
%>
<a href="show.asp?id=https://www.jb51.net/article/”>
<img class="aligncenter" src="https://www.jb51.net/article/” width=”150″ height=”98″ alt=”https://www.jb51.net/article/” />
<%
if i mod 3 = 0 then
Response.Write(“
end if
i=i+1
if i>p then exit do
rs.movenext
Loop
rs.close
set rs=nothing
%>