<%
else
rs.PageSize =8 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount 
page=request("page")
    
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if

    
if page<1 then
page=1
elseif  page>maxpage then
page=maxpage
end if
    
rs.AbsolutePage=Page

if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
<%
ii=0
For i=1 To x
%>
<div class="middle-fenlei">
<%if rs("bookpic")="" then 
response.write "<a href=list.asp?id="&amp;rs("bookid")&amp;" target=_blank><img src=images/nopic.gif border=0></a>"
else%>
<%if ii mod 2 =0 then%>-------------------------------------这样不行,要怎么写才可以一行显示2个记录?就是循环问题?
<a href=list.asp?id=<%=rs("bookid")%> target="_blank"><img src="<%=trim(rs("bookpic"))%>" width=100 height=100 border=0 /></a>
<a href=list.asp?id=<%=rs("bookid")%> target="_blank">
<%response.write trim(rs("bookname"))%></a>
<%end if%>
</div>
<%rs.movenext
ii=ii+1%>
<%end if%>
<%next%>
<div>
<%
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
end if
rs.close
set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" &amp; Request.ServerVariables("HTTP_HOST") &amp; Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&amp;")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp &amp; a(0) &amp; "=" &amp; a(1) &amp; "&amp;"
        End If
    Next
%>