无法读取数据,帮我看看代码
<%dim m1,m2,m3,rs
dim month(12),nian,i,j
nian = 2010
For i=1 To 12
month(i) = nian & "-"&right( "0" & i,2)
Next
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="9%" height="25" class=forumrow>类型</td>
<td width="5%" class=forumrow><div align="center">1月</div></td>
<td width="5%" class=forumrow><div align="center">2月</div></td>
<td width="5%" class=forumrow><div align="center">3月</div></td>
<td width="5%" class=forumrow><div align="center">4月</div></td>
<td width="5%" class=forumrow><div align="center">5月</div></td>
<td width="5%" class=forumrow><div align="center">6月</div></td>
<td width="5%" class=forumrow><div align="center">7月</div></td>
<td width="5%" class=forumrow><div align="center">8月</div></td>
<td width="5%" class=forumrow><div align="center">9月</div></td>
<td width="5%" class=forumrow><div align="center">10月</div></td>
<td width="5%" class=forumrow><div align="center">11月</div></td>
<td width="5%" class=forumrow><div align="center">12月</div></td>
<td width="9%" class=forumrow><div align="center"><b>合计</b></div></td>
</tr>
<%
'读取类型
%>
<tr bgcolor="#FFFFFF">
<td height="22">类型……</td>
<%
Do Until j > 12
Set rs = Conn.Execute("Select sum(m1),sum(m2),sum(m3) From [test] Where format(date_time,'yyyy-MM') ='"&month(j)&"'")
If Not rs.Eof Then
response.Write(rs(0))
response.Write(rs(1))
response.Write(rs(2))
rs.close
set rs = nothing
end if
%>
<td><div align='center'>这里如何循环输出每月合计?????</div></td>
</tr>
<%
'response.Write("其它")
%>
<tr bgcolor="#FFFFFF">
<td height="22"></td>
</tr>
</table>
为什么 读取不了数据,w3wp进程占用很大。直接在数据库了使用:
Select sum(m1),sum(m2),sum(m3) From [test] Where format(date_time,'yyyy-MM') ='2010-07'可以获取.
数据才几行。。要读取一大会。然后超时。。
[ 本帖最后由 xg911335 于 2010-7-11 16:10 编辑 ]