" /> " />

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

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

共有<%=intCount%>記錄，分<%=intPageCount%>頁(yè)，當(dāng)前頁(yè)<%=Page%>，每頁(yè)顯示<%=intPageSize%>條記錄 <% '計(jì)算每一段的開(kāi)始頁(yè) intStarPage=(Section-2) * intSectionSize + 1 '前一段 if Section<=1 then response.Write(" ") else response.Write("dfdf" & PrevSectionText & "...  ") end if '顯示頁(yè)碼列表 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("頁(yè)") '后一段 intStarPage=(Section) * intSectionSize + 1 if Section>=intSectionCount then response.Write(" ") else response.Write("  ..." & NextSectionText & " ") end if %>