<% leiid=request("lei") fenlei1=request("fenlei") id=request("id") if fenlei1<>"" then fenlei=Conn.Execute("select * from fenlei Where id="&fenlei1&"")("fenlei_ca")'转成中文类别，解决utf-8 if leiid<>"" then lei="产品展示" dim pp %> <% mm=request("page") if mm="" then mm=1 %> 脚轮产品图片展示,<%= fenlei %>,第<%=mm %>页--中山市新邦脚轮制造有限公司

产品展示

    <% set rs=server.CreateObject("adodb.recordset") rs.open "Select * From fenlei where fenid='72' order by list asc",conn,1,3 do while not rs.eof ' If rs("fenlei_ca")=fenlei Then activeClass = "active" Else activeClass = "" End If %>
  • page1.html"><%= rs("fenlei_ca") %>系列
    • <% rs.movenext loop rs.close set rs=nothing %>
<% if lei<>"" and fenlei="" then pp="select * from Products Where lei='"&lei&"' order by time Desc"'菜单查询 Response.Write("产品展示第"&request("page")&"页-中山市飞步脚轮有限公司") ElseIf fenlei<>"" Then pp="select * from Products Where lei='"&lei&"' and fenlei='"&fenlei&"' order by time Desc"'分类查询 Response.Write(""&fenlei&"第"&request("page")&"页-中山市飞步脚轮有限公司") else if request("search")="yes" then key=request("key") pp="select * from Products where ca_Title&en_Title&Products_ca&Products_en&number&fenlei Like '%"& key &"%'"'搜索 Else pp="select * from Products order by time Desc" '全部查看 End If end if Set rs= Server.CreateObject("ADODB.Recordset") rs.open pp,conn,1,1 rs.PageSize=16 '指定每页显示的记录数 pagecount=rs.PageCount '用PageCount有多少页 page=int(request.QueryString ("page")) '接收传过来的page值给于page变量 if page<=0 then page=1 '如果page<=0 则强制page=1 if request.QueryString("page")="" then '如果接收的page=空 则强制page=1 page=1 end if on error resume next rs.AbsolutePage=page '告诉AbsolutePage翻到第几页了 y=0 for i=1 to rs.PageSize '循环 从1到指定的页数3 y=y+1 if y=9 then y=1 if rs.EOF then '如果到了指针尾部，跳出循环 exit for end if '如果没有图片，显示蓝牛网络背景图 number=rs("number") id=rs("id") yifeilei=rs("fenlei") pic_xiao=rs("pic") ca_Title=rs("ca_Title") jicun=rs("jicun") pic_xiao="admin/up/"&pic_xiao if jicun>20 then ff="mm" else ff="寸" end if %>
<%= ca_Title %>
<%=yifeilei%>

<%=number%>

<% rs.movenext next %> <% if request("v")="jintai" then'如果是生成静态页面 Call FenYejintai("?id="&id,rs.PageCount,rs.RecordCount,page," ") end if if request("v")="jintaidalei" then '一级分类分页 fenlei1=request("fenlei") Call FenYejintaidalei("?id="&id,rs.PageCount,rs.RecordCount,page,fenlei1) end if if request("v")="" then'asp分页 Call FenYe("?id="&id,rs.PageCount,rs.RecordCount,page," ") end if '========================================================asp动态分页======================================================================= Sub FenYe(url,pageCount,recordCount,curPage,cssstyle) lei="72" fenlei=fenlei1'传递ID,解决utf-8传 ' 开始分页容器 response.Write "" end sub '===================静态分页=========================================================================================== Sub FenYejintai(url,pageCount,recordCount,curPage,cssstyle)'静态分页 ' 开始分页容器 response.Write "" End Sub '===================静态产品分类分页=========================================================================================== Sub FenYejintaidalei(url,pageCount,recordCount,curPage,fenlei1)'静态分页 ' 开始分页容器 response.Write "" End Sub %>
<% rs.close set rs=nothing %>