<%
action=request("action")
if action="xx" then%>
<%
id=request("id")
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [shop_books] where bookid= "&id&" order by banci asc" ,conn,1,3
%>
" border="0"> |
|
<%
rs.close
set rs=nothing
%>
<%else
select case action
case "a"
anclassid=request("anclassid")
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [shop_books] where anclassid="&anclassid&" order by banci asc" ,conn,1,3
case "b"
nclassid=request("nclassid")
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [shop_books] where nclassid="&nclassid&" order by banci asc" ,conn,1,3
case "ss"
skey=request("skey")
set rs=server.CreateObject("adodb.recordset")
if request("select")="mz" then
rs.Open "select * from [shop_books] where bookzz like '%"&skey&"%' order by banci asc" ,conn,1,3
end if
if request("select")="say" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [shop_books] where shichangjia like '%"&skey&"%' order by banci asc" ,conn,1,3
end if
if request("select")="pp" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [shop_books] where pp like '%"&skey&"%' order by banci asc" ,conn,1,3
End if
case else
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [shop_books] order by banci asc" ,conn,1,3
end select
If Not rs.Bof And Not rs.Eof Then
pageid = cint(request("pageid"))
if pageid = "" or pageid =< 1 then
pageid = 1
end if
maxperpage = 9
rs.pagesize = maxperpage
mpage = rs.pagecount
totalput = rs.recordcount
rs.move(pageid-1)*maxperpage
For i = 1 to maxperpage
if rs.EOF then Exit For
j=j+1%>
<%if j=1 then%>
<%end if%>
|
<%if j=3 then%>
<%j=0
end if%>
<%rs.MoveNext
next
rs.close
set rs=nothing
end if
end if
%>
|
|
|