%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% dim rowcount rowcount=0 set product_class=conn.execute( "select * from 产品分类") product_class_id=request("id") class_id=product_class_id if product_class_id="" then product_class_id="" else product_class_id=" where 分类ID='"&product_class_id&"'" end if sql= "select * from 感应器 "&product_class_id set filepir=server.CreateObject("ADODB.RecordSet") filepir.open sql,conn,1, 2 page=trim(request("page")) if page="" then page=1 end if filepir.PageSize=2 Page=cint(page) if page<1 then page=1 if page>filepir.PageCount then Page=filepir.PageCount reccount=filepir.recordcount if reccount<>0 then filepir.AbsolutePage=page %>
![]() |
|
![]() |
|
![]() |
|