asp死循环吗?急救

来源:百度知道 编辑:UC知道 时间:2024/05/17 02:48:00
<%
'数据库连接
Dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("..\database\lianfumdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'数据库连接地址
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr
%>
.......
<%
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select * from Counter"
mRs.open Sql,conn,1,3
%>
...........
<td width="112">总访问人数:</td>
<td><% =mRs("Counter") %></td>
<td width="106">最高IP访问量:</td>
<td width="191"><% =mRs("Top") %></td>
</tr>
<tr onMouseOver="javascript:this.bgColor='#F4F4F4';" onMouseOut="javascript:this.bgColor='#F9F9F9';">
<td>今日IP访问量:</t

<%
dim Zday,Stats
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select top 7 * from tj_Day order by Zday desc"
mRs.open Sql,conn,1,3
If mRs.eof and mRs.bof then
Response.Write "<p align=center>暂时没有往日统计记录</p>"
End If
mRs.movefimRst
if not mRs.eof then
for i=1 to rs.recordcount
Zday=mRs("Zday")
Stats=mRs("Stats")
Browser=mRs("Browser")
mRs.movenext
%>只有这段循环,,而且有判断空值,,,不是死循环,,,可能是数据太多了吧。。。

?????这个没有循环

最下面加个loop