怎样使某几个大类显示在同一个页面

本人ASP几乎文盲,只懂简单HTML.
麻烦回答详细一些，谢谢帮忙

好比我只想显示大类的
.asp?lx=big&anid=21
.asp?lx=big&anid=22
.asp?lx=big&anid=23
.asp?lx=big&anid=24 不现实所有大类的内容
是不是在下面这个ASP里面改数据呢？


<%'开始分页
Const MaxPerPage=15
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
dim anid
anid=split(request("anid"),"|")
set rs=server.CreateObject("adodb.recordset")
if anid="" then
rs.open "select * from shop_books order by adddate desc",conn,1,1
else
rs.open "select * from shop_books where anclassid="&anid&" order by adddate desc",conn,1,1
end if
if err.number<>0 then
response.write "数据库中无数据"
end if

if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 对不起，暂时还没有任何信息！</p>"
else
totalPut=rs.recordcount

if currentpage<1 then
currentpage=1
end if

if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if

if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"product.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"product.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"product.asp"
end if
end if
end if

sub showContent
dim i
i=0

%>