网站左侧列表新闻数量太长，怎么缩短为十个
<%sub dhl()%>
<h2>产品系列</h2>

<%
Set rs1=server.CreateObject("adodb.recordset")
sql1="Select * From 0791idc_ProductClass where Classid<>3 and ParentPath='0' order by ClassID"
rs1.open sql1,conn,1,1
j=1
do while not rs1.eof
%>
<div class="jjT"><h3><a href="Product.html"><%=rs1("ClassName") %></a></h3></div>
<div class="jjT1">
<%
Dim rs2,sql2,g,count
Set rs2=server.CreateObject("adodb.recordset")
sql2="select * from 0791idc_Product where  ClassID="&rs1("ClassID")
rs2.open sql2,conn,1,1
if rs2.recordcount=0 then
response.write ("&nbsp;&nbsp;暂无分类!")
end if
g=1
count=1
do while not rs2.eof%>
<div class="jj"><a href="ProductShow-<%= rs2("ID") %>.html"><%
response.Write rs2("Title")

%> </a></div>


<% rs2.movenext
count=count+1
 g=g+1
loop
  rs2.close
set rs2=nothing %>
</div>
<% rs1.movenext
 j=j+1
  loop
  rs1.close
set rs1=nothing
 %>
 <%
Set rs1=server.CreateObject("adodb.recordset")
sql1="Select * From 0791idc_ProductClass where Classid=3 and ParentPath='0'"
rs1.open sql1,conn,1,1
j=1
do while not rs1.eof
%>
<div class="jjT"><h2><%=rs1("ClassName") %></h2></div>
<div class="jjT1">
<%

Set rs2=server.CreateObject("adodb.recordset")
sql2="select * from 0791idc_Product where  ClassID="&rs1("ClassID")
rs2.open sql2,conn,1,1
if rs2.recordcount=0 then
response.write ("&nbsp;&nbsp;暂无分类!")
end if
g=1
count=1
do while not rs2.eof%>
<div class="jjj"><a href="ProductShow-<%= rs2("ID") %>.html"><%
response.Write rs2("Title")

%> </a></div>


<% rs2.movenext
count=count+1
 g=g+1
loop
  rs2.close
set rs2=nothing %>
</div>
<% rs1.movenext
 j=j+1
  loop
  rs1.close
set rs1=nothing
 %>
<%end sub%>
<%sub jianjie(id)%>
<%sql="select * from 0791idc_Aboutus where id="&id
set rs=conn.execute(sql)