" /> " />

在线色站|中国国产足恋footfetish视频|四虎影视永久在线精品免费|国产日韩欧美色视频色在线观看|国产中文字幕在线播放

 
現(xiàn)貨資源
<% lb = trim(request("lb")) c_sql="select count(id) from xhzy where 說明 like '%"&lb&"%'" totle=conn.execute(c_sql)(0) set rs=server.CreateObject("ADOdb.recordset") ssql="Select 品名,規(guī)格,材質(zhì),數(shù)量,含稅價(jià),產(chǎn)地,提貨地,倉庫,說明 From xhzy where 說明 like '%"&lb&"%' Order by ID Desc" rs.open ssql ,conn,1,1 page=GetVariable("page") if page="" then page=1 else page=Cint(page) end if Section=GetVariable("section") if Section="" then Section=1 else Section=Cint(Section) end if '變量賦值 intPageSize=20 '每頁顯示記錄數(shù) intSectionSize=5 '多少頁為一段，像GOOGLE一樣 PrevSectionText="<<" '上一段的鏈接文字 NextSectionText=">>" '下一段的鏈接文字 PrevPageText="上頁" '上頁的鏈接文字 NextPageText="下頁" '下頁的鏈接文字 rs.pagesize=intPageSize intCount=rs.RecordCount intPageCount=rs.pagecount intSectionCount=(intPageCount - 1) \ intSectionSize + 1 if intCount>0 then rs.AbsolutePage=page end if '開始輸出最新新聞 for i=1 to intPageSize if rs.eof then exit For %> <% rs.movenext next %>
品名 規(guī)格 材質(zhì) 數(shù)量 價(jià)格 產(chǎn)地 提貨地 倉庫
<%=rs(0)%> <%=rs(1)%> <%=rs(2)%> <%=rs(3)%> <%=rs(4)%> <%=rs(5)%> <%=rs(6)%> <%=rs(7)%>

共有<%=intCount%>記錄，分<%=intPageCount%>頁，當(dāng)前頁<%=Page%>，每頁顯示<%=intPageSize%>條記錄 <% '計(jì)算每一段的開始頁 intStarPage=(Section-2) * intSectionSize + 1 '前一段 if Section<=1 then response.Write(" ") else response.Write("dfdf" & PrevSectionText & "...  ") end if '顯示頁碼列表 response.Write("第") intStarPage=(Section-1) * intSectionSize + 1 for p=intStarPage to intStarPage + intSectionSize - 1 if p > intPageCount then exit for if p=page then response.Write("[" & p & "] ") else response.Write("[" & p & "] ") end if next response.Write("頁") '后一段 intStarPage=(Section) * intSectionSize + 1 if Section>=intSectionCount then response.Write(" ") else response.Write("  ..." & NextSectionText & " ") end if %>