问个访问人数过多的问题？

[qjx6531]

我有个页，有近3000行，几十个记录集，以前都能正常浏览，可是现在却突然出现什么访问人数过多，再不然就是1110行处过期，真郁闷，平常都好好的，为什么会这样？上网看了下，说下个软件装上，改了数字就可以，可是还是不行。是不是我的记录集过多啊，。我的每个记录集都关闭了啊。
麻烦高手帮忙看看

[qjx6531]

<!--#include file="top.asp" -->
<!--#include file="Connections/ggsj.asp" -->
<table width="980" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="150" align="left" valign="top"><table width="150" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"> </td>
</tr>
<tr>
<td align="center" valign="top"><table width="150" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" align="center" bgcolor="#A3B2CC"><span class="STYLE40 STYLE2 STYLE5 STYLE6"><span class="STYLE40 STYLE4 STYLE5 STYLE2"><strong>本站开通地区</strong></span></span></td>
</tr>

<tr>
<td bgcolor="#D4D0C8" class="STYLE42 STYLE1">本站按地区进行区域划分，如需了解当地具体情况，请点击相应地区，列表中还没有的地区表示没有开通。本站在各地区征招一名代理商，欢迎各有识之士加入我们共创网络创业辉煌。详情请向我们咨询。</td>
</tr>
<%
Set rsdq = Server.CreateObject("ADODB.Recordset")
rsdq.Open "SELECT * FROM dbo.diqu ORDER BY mingcheng ASC",MM_ggsj_STRING,1,2
%>

<tr>
<td width="150" align="center" valign="top" bgcolor="#D4D0C8"><form id="form1" name="form1" method="post" action="">
<label></label>
</form></td>
<%
rsdq.Close()
Set rsdq = Nothing
%> </tr>
</table></td>
</tr>
<tr>
<td align="left" valign="top"><table width="150" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" align="center" valign="middle" bgcolor="#7B96B5"><span class="STYLE8">商品销量排行</span></td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td align="center" valign="middle"><table width="150" border="0" cellpadding="0" cellspacing="0" bgcolor="#EFEBDE">
<tr>
<td align="center" bgcolor="#D6D3CE"> </td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
</table></td>
</tr>
<tr>
<td align="left" valign="top"> </td>
</tr>
</table></td>
<td width="680" align="center" valign="top"><table width="670" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"> </td>
</tr>
<tr>
<td bgcolor="#7B96B5"><span class="STYLE9">推荐店铺展示</span></td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td bgcolor="#7B96B5"><span class="STYLE9">推荐商品展示</span></td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td bgcolor="#7B96B5"><span class="STYLE9">店铺分类</span></td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td><table width="670" height="20" border="0" cellspacing="3">

<%
Set rsdpfllb = Server.CreateObject("ADODB.Recordset")
rsdpfllb.open "SELECT * FROM dbo.hy_dp",MM_ggsj_STRING,1,2
%>
<%
startrw = 0
endrw = HLooper1__index
numberColumns = 5
numrows = 1000
while((numrows <> 0) AND (Not rsdpfllb.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<tr align="center" valign="top">
<%
While ((startrw <= endrw) AND (Not rsdpfllb.EOF))
%>
<%Set rsdpfljs = Server.CreateObject("ADODB.Recordset")
rsdpfljs.open "SELECT * FROM dbo.dianpu where hangye = '"&rsdpfllb("mingcheng")&"' and zhuangtai = '正常'",MM_ggsj_STRING,1,2
dptotalPut=rsdpfljs.recordcount

%> <td width="134" align="center" valign="middle" bgcolor="#FFFFFF"><a href="wwgw/dp_fl.asp?hy_mingcheng=<%=(rsdpfllb.Fields.Item("bianhao").Value)%>" class="STYLE1"><%=(rsdpfllb.Fields.Item("mingcheng").Value)%></a><span class="STYLE1">（<%=dptotalPut%>）</span></td>
<%
rsdpfljs.Close()
Set rsdpfljs = Nothing
%> <%
startrw = startrw + 1
rsdpfllb.MoveNext()
Wend
%>
</tr>
<%
numrows=numrows-1
Wend
%>
<%
rsdpfllb.Close()
Set rsdpfllb = Nothing
%>
</table></td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td bgcolor="#7B96B5"><span class="STYLE9">新开店铺</span></td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td bgcolor="#7B96B5"><span class="STYLE9">商品分类</span></td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td><table width="670" height="20" border="0" cellspacing="3">

<%
Set rsspfllb = Server.CreateObject("ADODB.Recordset")
rsspfllb.open "SELECT * FROM dbo.hy_sp",MM_ggsj_STRING,1,2
%>
<%
startrw = 0
endrw = HLooper1__index
numberColumns = 5
numrows = 1000
while((numrows <> 0) AND (Not rsspfllb.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<tr align="center" valign="top">
<%
While ((startrw <= endrw) AND (Not rsspfllb.EOF))
%>
<%Set rsspfljs = Server.CreateObject("ADODB.Recordset")
rsspfljs.open "SELECT * FROM dbo.shangpin where hangye = '"&rsspfllb("mingcheng")&"' and zhuangtai = '正常'",MM_ggsj_STRING,1,2
sptotalPut=rsspfljs.recordcount

%>


<td width="120" align="center" valign="middle" bgcolor="#FFFFFF"><a href="wwgw/sp_fl.asp?hy_mingcheng=<%=(rsspfllb.Fields.Item("bianhao").Value)%>" class="STYLE1"><%=(rsspfllb.Fields.Item("mingcheng").Value)%></a><span class="STYLE1">（<%=sptotalPut%>）</span></td>
<%
rsspfljs.Close()
Set rsspfljs = Nothing
%> <%
startrw = startrw + 1
rsspfllb.MoveNext()
Wend
%>
</tr>
<%
numrows=numrows-1
Wend
%>
<%
rsspfllb.Close()
Set rsspfllb = Nothing
%>
</table></td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td bgcolor="#7B96B5"><span class="STYLE9">新增商品</span></td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
</tr>
</table></td>
<td width="150" align="left" valign="top"><table width="150" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>

<tr>
<td height="30" align="center" valign="middle" bgcolor="#7B96B5"><span class="STYLE4"><strong>点击排行店铺</strong></span></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td align="center" valign="middle"><table width="150" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" bgcolor="#CECFCE"> </td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td height="30" align="center" valign="middle" bgcolor="#7B96B5"><span class="STYLE4"><strong>点击排行商品</strong></span></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td align="center" valign="middle" bgcolor="#CECFCE"> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>

[qjx6531]

麻烦高人帮忙看看

[yifanwu]

代码写得很好，肯定绝对保证没有问题，建议你打微软的网络服务器支持免费电话咨询。美国人在ASP中留了后门，导致ASP速度这么慢，一个页面才打开几十个记录集就这么慢，他们还好意思怪中国人盗版！