<% 'response.Write(keysList) action = "" action = trim(request("action")) path = request.ServerVariables("PATH_INFO") '上个页面传递的页面参数； length = Len (path) '上个页面传递的页面参数的长度； folderPosition = Instr(path,"/") folderPath = right(path,length-1) folderPosition = Instr(folderPath,"/") folderPath = left(folderPath,folderPosition-1) pagePosition = InstrRev(path, "/") pagePath = right (path, length-pagePosition) '获取该文件名，分页显示时需要使用; if request("partsType") = "" then keysList = "1=1" keys = " and 1=1" else keysList = "partsType="&request("partsType") &"&" keys = " and partsType='"&request("partsType")&"'" end if dim pagecount,page,Spage,Epage,recordcount,i page = request.querystring("page") if page = "" or IsNull(page) then page = 1 if not IsNumeric(page) then page = 1 page = Cint(page) set rs = server.createobject("adodb.recordset") if action = "" then sql = "select partsName,partsType,partsCompany from parts where ifshow=1 " &keys& " order by id desc" else sql = "select partsName,partsType,partsCompany from parts where ifshow=1 " &keys& " order by "&action&", id desc" end if rs.open sql,conn,1,1 recordcount = rs.RecordCount rs.PageSize = PAGESIZE pagecount = rs.PageCount if page < 1 then page = 1 elseif page > pagecount then page = pagecount end if Numbers = 1 if recordcount > 0 then RS.AbsolutePage = page for i = 1 to PAGESIZE if RS.EOF then exit for if Numbers MOD 6 = 0 then cssInfo = "productPage_1" else cssInfo = "productPage" end if %> <% if Numbers MOD 6 = 0 then response.Write("") end if Numbers = Numbers + 1 rs.MoveNext() next rs.close conn.close set rs = nothing set conn = nothing 'More page; response.Write("")%>