<%
bigclassname=Request("bigclassname")
key=Request("key")
if len(key)=0 then
if bigclassname="" or isnull(bigclassname) then
sql="select * from product order by ArticleID desc"
else
sql="select * from product where bigclassname='"&bigclassname&"' order by ArticleID desc"
end if
url="ccp.asp?bigclassname=" & bigclassname
else
sql="select * from cp where bigclassname='"&bigclassname&"' order by ArticleID desc"
url="ccp.asp?bigclassname=" & bigclassname &"&key=" & key
end if
%>
<%
const MaxPerPage=6
strFileName="product.asp?bigclassname=" & bigclassname &"&key=" & key
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
'set conn=getConn()
set rs=server.createobject("adodb.recordset")
'sql="select * from product where bigclassname='"&bigclassname&" order by ArticleID desc "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "共找到 0 个工程
"
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 strFileName,totalput,MaxPerPage,true,false,"个工程"
else
if (currentPage-1)*MaxPerPage
<%
sub showContent
dim i,j
i=0
j=0
do while not rs.eof
if i=0 then
response.Write("