<% if not isempty(request("page")) then CurrentPage=cint(request("page")) else CurrentPage=1 end if if xl=0 then sql="select * from 內(nèi)容 where 大類="& dl &" order by 序號(hào) desc,id desc" else sql="select * from 內(nèi)容 where 大類="& dl &" and 小類="& xl &" order by 序號(hào) desc,id desc" end if rs.open sql,conn,1,1 if rs.recordcount=0 then response.write "此欄目正在建設(shè)中..." elseif rs.recordcount=1 then id=rs("id") response.Redirect("jianxin/"&id&"-1.htm") else MaxperPage=10 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 showpages totalput,MaxPerPage,"product.asp" else if (CurrentPage-1)*MaxperPage　

<% dim id do while not rs.eof and i< MaxperPage jj=rs("簡(jiǎn)介") jj=replace(rs("簡(jiǎn)介"),"＜BR＞","") id=rs("id") tu="tu/wz"& id &"_1.jpg" dim rss set rss=server.CreateObject("adodb.recordset") rss.open "select 小類 from 小類 where id="&rs("小類"),conn,1,1 if rss.eof and rss.bof then response.Write"" else xlmm=rss("小類") end if rss.close %>

-1.htm">" />

• 名稱：-1.htm"><%= rs("標(biāo)題") %>
• 類別：-1.htm"><%= xlmm %>
• 簡(jiǎn)介：-1.htm"><%= trim(left(trim(jj),30)) %>....
• 標(biāo)簽：<%= rs("標(biāo)簽1") %>_<%= rs("標(biāo)簽2") %>

<% i=i+1 if i>=MaxperPage then exit do rs.movenext loop %>

<% end sub function showpages(totalnumber,maxperpage,filename) dim n if TotalPut mod MaxperPage=0 then n=TotalPut\MaxperPage else n=TotalPut\MaxperPage+1 end if response.write "

" response.write "

  " response.write "

  共 "& TotalPut &" 個(gè)產(chǎn)品，分 "& n &" 頁(yè)顯示，當(dāng)前第 "& CurrentPage &" 頁(yè)   " if CurrentPage<2 then response.write " 首頁(yè)    上一頁(yè)   " else response.write " 首頁(yè)   " response.write "上一頁(yè)   " end if if n-currentpage<1 then response.write "下一頁(yè)   尾頁(yè)" else response.write "" response.write "下一頁(yè)   尾頁(yè)" end if response.write "

" end function %>