缙云金百锐工具厂

<% prolenid=request.querystring("prolenid") set rs=server.CreateObject("adodb.recordset") if prolenid="" then sql="select * from books order by bookid" 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=12 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 %>