<%if request("bigid")<>"" then bigid=srequest(trim(request("bigid")),1) if isnumeric(bigid) then maxnum=conn.execute("select max(bigid) from pro_big")(0) if int(bigid) > int(maxnum) then response.Redirect("cpzx.html") response.End() else showname=conn.execute("select bigid,bigname from pro_big where bigid="&bigid&"")(1) end if else response.Redirect("cpzx.html") response.End() end if else showname="全部产品" end if%> <%=showname%>_<%=conn.execute("select banquan from sys")(0)%> " /> " />
<%filenames = "cpzx.asp"%> <%page=request("page") lookpage=6 if page="" then page=1 if not(isnumeric(page)) then page=1 if page<1 then page=1 page=int(page) set rs=server.createobject("adodb.recordset") if request("bigid")<>"" then bigid=request("bigid") sql="select proid,proname,bigid,tupian from product where bigid="&bigid&" order by proid asc" else sql="select proid,proname,bigid,tupian from product order by bigid asc , proid asc" end if rs.open sql,conn,1,1 if rs.eof then%> 暂无动态 <%else rs.pagesize=lookpage totalrec=rs.recordcount totalpage=rs.pagecount if page>totalpage then page=totalpage rs.absolutepage=page rs.cachesize=rs.pagesize%>
    <%for j=1 to rs.PageSize%>
  • " alt=""/>

    <%=trim(rs("proname"))%>

    .html">+ 查看详情
    • <%rs.movenext if rs.eof then exit for next%>
 
<%if page-1>0 then%> 上一页 <%else%> 上一页 <%end if%> <%for s=1 to totalpage if s=page then%> <%=s%> <%else%> <%=s%> <%end if%> <%next%> <%if page+1<=totalpage then%> 下一页 <%else%> 下一页 <%end if%>
<%end if rs.close set rs=nothing%>