<% dim classtype,classid,anid,prokey,prosort dim rst,rstsql prokey=request("prokey") prosort=request("prosort") 'response.Write prosort & prokey 'response.end if request.Form("rstsql")="" then if prokey<>"" and prosort<>"" then rstsql="select * from products where nclassid="& prokey &"and (bookname like'%"& prosort &"%'or bookcontent like'%"& prosort&"%') order by bookid desc " end if if prodey="" and prosort<>""then rstsql="select * from products where bookname like'%"& prosort &"%'or bookcontent like'%"& prosort&"%' order by bookid desc " end if classtype=request.QueryString("lx") anid=request.QueryString("anid") classid=request.QueryString("id") if classtype=""and anid="" and classid="" and prosort="" then rstsql="select * from products order by bookid desc " end if if classtype="big" then rstsql="select * from products where anclassid="& classid &" order by bookid desc " end if if classtype="small" then rstsql="select * from products where anclassid="&anid &"and nclassid="& classid &" order by bookid desc " end if else rstsql=request.Form("rstsql") end if %> <% Dim RecordPerPage,absPageNum,TotalPages,TotalRecords,absRecordNum 'absPageNum - 当前页为第几页 'TotalPages - 总的页数'absRecordNum - 当前页中某一条记录的序号, 如 1-10 RecordPerPage = 20 '每页显示的记录数 ' 取得所输出数据的 当前页码 If Request("tT1")="" Then '若没收到表单递交的数据(如首次加载该页时), 则从第 1 页开始显示 absPageNum = 1 Else '取出按 按钮 时的页码 absPageNum = CInt(Request("tT1")) if absPageNum> session("TotalPages") then absPageNum = session("TotalPages") end if '如按 上一页 则页码 -1, 按 下一页, 则页码 +1 If Request("Submit") = "上一页" Then absPageNum = absPageNum - 1 ElseIf Request("Submit") = "下一页" Then absPageNum = absPageNum + 1 End If End If %> 比速国际
返回网站首页 比速国际商务有限公司
用户名:
密  码:

<% set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from bsort order by anclassidorder",conn,1,1 if rs1.recordcount=0 then response.write "目前没有商品分类" else while not rs1.eof %> <% set rs_s=server.CreateObject("adodb.recordset") rs_s.open "select * from ssort where anclassid=" & rs1("anclassid") & " order by nclassidorder",conn,1,1 while not rs_s.eof %> <% rs_s.movenext wend rs_s.close set rs_s=nothing rs1.movenext wend end if rs1.close set rs1=nothing %>
   " style="text-decoration:none"><%=rs1("anclass")%>
       &anid=<%=rs1("anclassid")%>" style="text-decoration:none"><%=rs_s("nclass")%>

 
 
公司简介 业务介绍 产品展示 联系我们

<% Set rst = Server.CreateObject("ADODB.Recordset") 'rstsql = "SELECT * FROM guesbook Order By id DESC" rst.Open rstsql, conn,1,3 rst.PageSize = RecordPerPage '设置每一页的记录数 if rst.eof then response.write "

没有找到相应的记录!

" response.End else If Not(rst.EOF) Then rst.AbsolutePage = absPageNum End If end if TotalPages = rst.PageCount TotalRecords = rst.RecordCount session("TotalPages")=TotalPages %> <% ' set rs=server.CreateObject("adodb.recordset") ' rs.open "select Top 12 * from products order by bookid desc ",conn,1,1 ' if rs.eof and rs.bof then ' response.write "

对不起,暂无商品!
" 'response.End ' else %> <% i=1 For absRecordNum = 1 to rst.PageSize %> <%if i mod 4 = 0 then%> <% end if rst.movenext i=i+1 If rst.EOF Then Exit For ' 如果已到记录尾, 退出 - 如最后一页数据不满页时 End If Next rst.Close conn.Close Set rst = Nothing Set conn = Nothing %>
<%if rst("bookpic")="" then response.write "
" else%> "target=_blank>" width="129" height="110" border="0" align="absmiddle" /> <%end if%>
名称: <%response.write "" if len(trim(rst("bookname")))>8 then response.write left(trim(rst("bookname")),8)&".." else response.write trim(rst("bookname")) end if response.write "" %>

   <% If absPageNum > 1 Then '如果当前不是第一页, 则显示上一页按钮 %> 前一页   <% End If If absPageNum <> TotalPages Then '如果当前页不是最后一页, 则显示下一页按钮%> 下一页   <% End If %> 跳页


版权所有@2007 深圳市比速国际商务有限公司
公司地址:中国 深圳国际机场保税物流中心 2208-2210
电话:(86)755-86069538 传真:(86)755-23453366 邮编:518052
备案号:粤ICP备06103763号