<%
const maxproduct=6 '每页显示记录数
dim i,j,sqlproduct,rsproduct,sqlbigclass,rsbigclass,sqlsmallclass,rssmallclass
dim sqltemp,rstemp
dim totalPut,CurrentPage,TotalPages
zyss=cint(request("zyss")) '主页搜索
'左边所有大类列表
sqlbigclass="select * from bigclass order by bgc_Order,bgc_ID"
set rsbigclass= Server.CreateObject("ADODB.Recordset")
rsbigclass.open sqlbigclass,conn,1,1
ldcount=rsbigclass.recordcount
session("search")=request("search")
search=request("search")
if not isEmpty(request("dl")) then
dl1=cint(request("dl"))
else
dl1=0
end if
'取得大类ID号
if not isEmpty(request("bgc_ID")) then
bgc_ID=request("bgc_ID")
else
'如果取不到，则取数据库中最小的ID号
set rstemp=server.createobject("adodb.recordset")
sqltemp="select * from bigclass order by bgc_Order,bgc_ID"
rstemp.open sqltemp,conn,1,1
bgc_ID=rsTemp("bgc_ID")
end if
'取得小类ID号
if not isEmpty(request("smc_ID")) then
smc_ID=request("smc_ID")
else
'如果取不到，设定其值为0,下面以此判断是进行小类查询还是大类查询
smc_ID=0
end if
'取得查询产品的编号
if not isEmpty(request("prd_No")) then
prd_No=request("prd_No")
end if
'右边所有小类列表
sqlsmallclass="select * from smallclass where smc_bgc_ID=" & cint(bgc_ID) & " order by smc_ID"
set rssmallclass=server.CreateObject("ADODB.Recordset")
rssmallclass.open sqlsmallclass,conn,1,1
'取得当前分页数
if request("fgo")="yes" then
currentPage=cint(request("go"))
else
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
end if
%>
