<% If Request("submit")="确定" Then page=Request("page") Response.Redirect "czl.asp?page="&page&"" End If dim maxpages dim totalrecord dim thepage dim TotalPages if request("page")<>"" then thepage=cint(request("page")) else thepage=1 end if set rs4=server.createobject("adodb.recordset") rs4.open "select * from shop_anclass where anclass='套妆' order by anclassidorder",conn,1,1 set rs6=server.createobject("adodb.recordset") rs6.open "select * from shop_anclass where anclass='问题皮肤' order by anclassidorder",conn,1,1 set rs7=server.createobject("adodb.recordset") rs7.open "select * from shop_nclass where anclassid="&rs6("anclassid")&" order by nclassidorder",conn,1,1 set rs8=server.createobject("adodb.recordset") rs8.open "select * from shop_anclass where anclass='身体护理' order by anclassidorder",conn,1,1 set rs9=server.createobject("adodb.recordset") rs9.open "select * from shop_nclass where anclassid="&rs8("anclassid")&" order by nclassidorder",conn,1,1 set rs10=server.createobject("adodb.recordset") rs10.open "select * from shop_anclass where anclass='护肤' order by anclassidorder",conn,1,1 set rs11=server.createobject("adodb.recordset") rs11.open "select * from shop_nclass where anclassid="&rs9("anclassid")&" order by nclassidorder",conn,1,1 set rs12=server.createobject("adodb.recordset") rs12.open "select * from shop_anclass where anclass='彩妆' order by anclassidorder",conn,1,1 set rs13=server.createobject("adodb.recordset") rs13.open "select * from shop_nclass where anclassid="&rs12("anclassid")&" order by nclassidorder",conn,1,1 set rs14=server.createobject("adodb.recordset") rs14.open "select * from shop_anclass where anclass='香水' order by anclassidorder",conn,1,1 set rs15=server.createobject("adodb.recordset") rs15.open "select * from shop_nclass where anclassid="&rs14("anclassid")&" order by nclassidorder",conn,1,1 set rs29=server.createobject("adodb.recordset") rs29.open "select Top 8 * from shop_books order by chengjiaocount desc",conn,1,1 set rs5=server.createobject("adodb.recordset") rs5.open "select * from shop_nclass where anclassid="&rs4("anclassid")&" order by nclassidorder",conn,1,1 set rs2=server.createobject("adodb.recordset") rs2.open "select * from shop_anclass where anclass='香水' order by anclassidorder",conn,1,1 set rs3=server.createobject("adodb.recordset") rs3.open "select * from shop_nclass where anclassid="&rs2("anclassid")&" order by nclassidorder",conn,1,1 set rs1=server.createobject("adodb.recordset") rs1.open "select Top 4 * from shop_books where tejiabook=1 and bestbook=1 order by bookid,bookname desc",conn,1,1 set rs=server.createobject("adodb.recordset") rs.open "select * from pingpai order by pingpaiorder",conn,1,1 set rs16=server.createobject("adodb.recordset") rs16.open "select Top 8 * from shop_books where anclassid="&rs10("anclassid")&" and bestbook=1 order by bookid,bookname desc",conn,1,1 set rs17=server.createobject("adodb.recordset") rs17.open "select * from shop_books where anclassid="&rs12("anclassid")&" order by bookid desc",conn,1,1 set rs18=server.createobject("adodb.recordset") rs18.open "select Top 8 * from shop_books where anclassid="&rs14("anclassid")&" and bestbook=1 order by bookid,bookname desc",conn,1,1 set rs19=server.createobject("adodb.recordset") rs19.open "select Top 8 * from shop_books order by liulancount desc",conn,1,1 set rs20=server.createobject("adodb.recordset") rs20.open "select Top 8 * from shop_books order by chengjiaocount desc",conn,1,1 set rs21=server.createobject("adodb.recordset") rs21.open "select * from shop_anclass where anclass='护肤' order by anclassidorder",conn,1,1 set rs22=server.createobject("adodb.recordset") rs22.open "select * from shop_books where anclassid="&rs21("anclassid")&" order by bookid",conn,1,1 %> 每周一新 展现完美自我!!!
本广告商品规格、颜色、价位如与网站不符,以网站标示为准.返回魅力51网首页

如您不方便网上订购,欢迎您通过电话订购.电话订购热线：010 - 51651826

 

<% Sub showpages If thepage <> 1 Then Response.Write "上一页　" If thepage = totalpages Then Response.Write "共" & totalpages & "页" End If End If If thepage <> totalpages Then Response.Write "下一页　" Response.Write "尾页　" Response.Write "共" & totalpages & "页" End If End Sub %>