大家帮忙看看这个函数哪儿有问题？？

[music]

这个函数目的是实现在页面里画表格，如下：
<%
function aqyb(isyear,ismonth)
dim cn,rs
dim i,j,k,sqlstr,str()
set cn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
cn.Open Application("Connection1_ConnectionString")

for j=1 to 5
sqlstr="select khxm from xn.xn_aqyb1 where bm="&j rs.CursorLocation =3
on error resume next
rs.Open sqlstr,cn,1,1
if bmcount<=5 then bmcount=5
for k=1 to bmcount
if k<=rs.RecordCount then
str(k)="<TD>"&rs("khxm")&"</TD>"
else
str(k)="<TD></TD>"
end if
rs.MoveNext
next
rs.close
next

%>
<br><br><font size="3"><b><%=isyear%>年<%=ismonth%>月份安全情况月报表</b></font><br><br><br>
<TABLE id="Table4" style="BORDER-COLLAPSE: collapse" borderColor="#000000" cellSpacing="0" cellPadding="0" border="1">
<TR align="middle" bgColor="#ffffff">
<TD>内容</TD>
<TD width="16%">分公司1</TD>
<TD width="16%">分公司2</TD>
<TD width="16%">分公司3</TD>
<TD width="16%">分公司4</TD>
<TD width="16%">分公司5</TD>
</TR>
<TR align="middle" bgColor="#ffffff">
<TD rowSpan=<%=bmcount%>>安全情况考核项目</TD>
<%=str(1)%>
</TR>
<%
for i=2 to bmcount
Response.Write "<TR align=middle bgColor=#ffffff>"&str(i)&"</TR>"
%>
</TABLE>
<%
rs.Close
cn.Close
set rs=nothing
set cn=nothing
end function
%>

现在是表格画不出来，str()好象没有值，该怎么做呢？？

希望各位高手做答，谢谢！1

[angel2a]

up

[music]

to Primer2002cn(教官) ：
把 bmcount,str()定义到外面是放到function外吗？我放到外面没用啊？

to yokenhou(风ノ影):
bm是数值型,SQL也可以取出值来，bmcount定义了，忘了写在帖子里，另给str()赋值的代码原为：
for k=1 to bmcount
if k<=rs.RecordCount then
str(k)="<TD>"&rs("khxm")&"</TD>"&str(k)
else
str(k)="<TD></TD>"&str(k)
end if
rs.MoveNext
next


大家继续帮我啊，谢谢！！

[music]

我发现问题出在字符串数组str()上，如果定义一个有维数组str(99)，则能正常显示，如果定义成str()，则不能显示，难道不支持str()？？

[music]

up

[Primer2002cn]

把 bmcount,str()定义到外面

[空闲独处]

为什么要把bmcount,str()定义到外面呢？不太清楚。
bmcount没有定义。不过没什么关系。
数组的下标是从0开始。也不是这个问题。
在这里，你的SQL有没有取出值来，没有值的话，str()当然不会有值了.
sqlstr="select khxm from xn.xn_aqyb1 where bm="&j
那bm是数值型还是字符型呢?如果是字符型的话,那上面这句就得改成
sqlstr="select khxm from xn.xn_aqyb1 where bm='"&j&"'"