<%
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
%>
夏日护理三步曲！
<%
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
%>
