UC知道asp嵌套循环操作速度慢的问题
来源：百度知道 编辑：UC知道 时间：2024/06/08 02:26:03
<!--#include file="../conn.asp"-->
<% Server.ScriptTimeOut=6000 %>
<%
'response.write month(now)
'月度 type=0,季度 type=1,年度 type=2
sql="select UserName from Member_List order by id asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if not Rs.eof and not Rs.bof then
do while not rs.eof
UserName=rs("UserName")
UserNameTeam=UserNameTeam&","&UserName
rs.movenext
loop
end if
rs.close
UserNameTeam=right(UserNameTeam,len(UserNameTeam)-1)
Dim MyArray
MyArray = Split(UserNameTeam,",")
For I = Lbound(MyArray) to Ubound(MyArray)
'Response.Write MyArray(I) & "<br>"
'月积分处理
for Mi=1 to 1
monthsql="select sum(BGZ) as monthCount from Score_List where UserName='"&MyArray(I)&"' and DATEPART(mm, SendTime)='"&Mi&&quo
<% Server.ScriptTimeOut=6000 %>
<%
'response.write month(now)
'月度 type=0,季度 type=1,年度 type=2
sql="select UserName from Member_List order by id asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if not Rs.eof and not Rs.bof then
do while not rs.eof
UserName=rs("UserName")
UserNameTeam=UserNameTeam&","&UserName
rs.movenext
loop
end if
rs.close
UserNameTeam=right(UserNameTeam,len(UserNameTeam)-1)
Dim MyArray
MyArray = Split(UserNameTeam,",")
For I = Lbound(MyArray) to Ubound(MyArray)
'Response.Write MyArray(I) & "<br>"
'月积分处理
for Mi=1 to 1
monthsql="select sum(BGZ) as monthCount from Score_List where UserName='"&MyArray(I)&"' and DATEPART(mm, SendTime)='"&Mi&&quo
最好别用嵌套循环，程序的灵魂就是算法，一段代码的执行速度，全在预算法。而算法当中最占速度的就是循环，一个循环就是n条判断语句。
其实很多循环可以用判断语句来代替的。修改一下你的算法。
查询语句是可以分开而且应该分开写的，当为了不出错，大家都写在一起，真是的，欢迎有共同观点和即将有这样观点的加我。交个朋友，不知我说明白了没？欢迎你的咨询，但是我申明，这些你们自己都可以做。不要动不动的不动下脑袋让我给你写，那是不可能的，我不做害人有得不到好处的事情
用response对象把浏览器缓存关掉，并设置timeout大一点你就可以看到即时的输出结果了，应该不会超时了
如果是算法问题造成的，请修改算法
你的代码太xx了。。
你要查什么 更新什么 表述清楚你的目的。
大家好帮你优化。
太冗繁了点 设置一下缓存
加分加分加分加分加分加分加分加分
优化一下代码吧 太冗繁了点 设置一下缓存