<% response.expires=0 currentpage=request("page") if not isinteger(currentpage) then currentpage=1 else currentpage=clng(currentpage) end if maxperpage=9 totalrecords=0 totalpage=1 i=1 set rs=server.createobject("adodb.recordset") dim sorts,mold sorts=request("sort") if sorts<>"" then mold=request("sort") sql= "select * from produce where sort='"&sorts&"' order by id DESC" else mold="全部模具" sql= "select * from produce order by id DESC" end if rs.open sql,conn,1,1 %>
                


矽利康/软胶模
烤盘系列
蛋糕架系列
艺术蛋糕架系列
冷餐甜品架系列
冷餐器具系列
咖啡器具系列
寿司器具系列
婚庆切刀系列
糖艺器具系列
捏塑器具系列
刀具系列
巧克力器具系列
慕斯器具系列
陶艺器具系列
裱花工具系列
店前用品系列
台称/量具系列
其它器具系列
杯具/轮刀系列
DIY器具系列
小型设备

<% set rs1=server.createobject("adodb.recordset") sql= "select * from sorts" rs1.open sql,conn,1,1 do while not rs1.eof response.write"" rs1.movenext loop rs1.close set rs1=nothing %>
   "&rs1("sort")&"
          <%=mold%>
布丁机 冰淇淋机 斯维特工厂 下一页
<% sub showpages(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit,action,main_menu,sec_menu,reaction) dim n, i,strTemp,strUrl if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if strTemp= "
" if ShowTotal=true then strTemp=strTemp & "Total " & totalnumber & " " & strUnit & "  " end if strUrl=JoinChar(sfilename) if CurrentPage<2 then strTemp=strTemp & "First Previous " else strTemp=strTemp & "First " strTemp=strTemp & "Previous " end if if n-currentpage<1 then strTemp=strTemp & "Next Last" else strTemp=strTemp & "Next " strTemp=strTemp & "Last" end if strTemp=strTemp & " Page：" & CurrentPage & "/" & n & "Pages " strTemp=strTemp & " " & maxperpage & "" & strUnit & "/Page" if ShowAllPages=True then strTemp=strTemp & " go：" end if strTemp=strTemp & "
" response.write strTemp end sub sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit,action,main_menu,sec_menu,reaction) dim n, i,strTemp,strUrl if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if strTemp= "
" if ShowTotal=true then strTemp=strTemp & "共 " & totalnumber & " " & strUnit & "  " end if strUrl=JoinChar(sfilename) if CurrentPage<2 then strTemp=strTemp & "首页 上一页 " else strTemp=strTemp & "首页 " strTemp=strTemp & "上一页 " end if if n-currentpage<1 then strTemp=strTemp & "下一页 尾页" else strTemp=strTemp & "下一页 " strTemp=strTemp & "尾页" end if strTemp=strTemp & " 页次：" & CurrentPage & "/" & n & "页 " strTemp=strTemp & " " & maxperpage & "" & strUnit & "/页" if ShowAllPages=True then strTemp=strTemp & " 转到：" end if strTemp=strTemp & "
" response.write strTemp end sub function isInteger(para) on error resume next dim str dim l,i if isNUll(para) then isInteger=false exit function end if str=cstr(para) if trim(str)="" then isInteger=false exit function end if l=len(str) for i=1 to l if mid(str,i,1)>"9" or mid(str,i,1)<"0" then isInteger=false exit function end if next isInteger=true if err.number<>0 then err.clear end function function JoinChar(strUrl) if strUrl="" then JoinChar="" exit function end if if InStr(strUrl,"?")1 then if InStr(strUrl,"&")