%
prolenid=request.querystring("prolenid")
set rs=server.CreateObject("adodb.recordset")
if prolenid="" then
sql="select * from books order by bookid desc"
else
sql="select * from books where leiid="&prolenid
sql=sql&" order by bookid desc "
end if
rs.open sql,conn,1,3
%>
<%
if rs.eof then
response.write " 对不起,"
response.write prolen
response.write "正在添加中......"
else
page=clng(request("txtpage"))
rs.pageSize=4
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutePage=page
totle=rs.pagecount
%>
<%pocket=1
for i=1 to rs.pagesize
if (pocket mod 4)=1 then
response.write "
"
end if
%>
<%
if (pocket mod 4)=0 then
response.write "
"
end if
pocket=pocket+1
rs.movenext
if rs.eof then exit for
next
%>