asp数组问题
如题，
dim n,m
n=6
m=13
redim admin_menu(n,m)
admin_menu(0,0)= "常规管理 "
admin_menu(0,1)= " <a href= " "toUser.asp " " target=main> 给用户发邮件 </a> "
admin_menu(0,2)= " <a href= " "bulletBoardManage.asp " " target=main> 布告板管理 </a> "
'//会员管理
admin_menu(1,0)= "会员管理 "
admin_menu(1,1)= " <a href= " "schoolManage.asp " " target=main> 学校管理 </a> "
admin_menu(1,2)= " <a href= " "teacherManage.asp " " target=main> 老师管理 </a> "
admin_menu(1,3)= " <a href= " "teachClass.asp " " target=main> 执教班级管理 </a> "
admin_menu(1,4)= " <a href= " "studentsManage.asp " " target=main> 学生管理 </a> "
admin_menu(1,5)= " <a href= " "payUserManage.asp " " target=main> 收费会员管理 </a> "
admin_menu(1,6)= " <a href= " "backMemberManage.asp " " target=main> 后台收费会员 </a> "
admin_menu(1,7)= " <a href= " "tempUserManage.asp " " target=main> 临时收费会员 </a> "
这是一段代码，我想在前台调用数组admin_menu
<%
dim i
for i =0 to 6
if isNull(admin_menu(i,0))=true then exit for
%>
<TR >
<TD background=Images/admin_left_ <%response.Write i+1%> .gif height=25 style= "cursor:hand " class=admin_menu_title id=admin_menuTitle1 onClick= "showsubadmin_menu( <%response.Write i%> ) ">
<strong> <font color= "#6699CC "> <%response.Write admin_menu(i,0)%> </font> </strong>
</TD>
</TR>
<TR >
<TD id= 'subadmin_menu <%response.Write i%> '> <DIV class=sec_menu style= "WIDTH: 135px ">
<table cellpadding=0 cellspacing=0 align=center width=135>
<%
dim j
for j=0 to j+1 '就是这个地方，我是要使j <二维的第二个数。然后循环输出。
if isNull(admin_menu(i,j))=true then exit for
response.Write j
response.Write " <tr> "
response.Write " <td height=20> "&admin_menu(i,j)& " </td> "
response.Write " <tr> "
next
[解决办法]
你前面不是有m,和n吗？
[解决办法]
ubound(admin_menu,i)i 只能是1或2，i的含义是第几维。
[解决办法]
dim在for 循环中?
程序中跟踪i和j的值,
在数组中初始化时显示所有的值,看看.
[解决办法]
怎么看着这么乱呢？
你把完整的代码帖一下。
------解决方案--------------------
isnull是判断NULL值 你的应该是空值吧！
for j=1 to 13
if isempty (admin_menu(i,j)) then exit for
'response.Write j
response.Write " <tr> "
response.Write " <td height=20> "&admin_menu(i,j)& " </td> "
response.Write " <tr> "
next
[解决办法]
<%
dim n,m
n=6
m=13
redim admin_menu(n,m)
admin_menu(0,0)= "常规管理 "
admin_menu(0,1)= " <a href= " "toUser.asp " " target=main> 给用户发邮件 </a> "
admin_menu(0,2)= " <a href= " "bulletBoardManage.asp " " target=main> 布告板管理 </a> "
'//会员管理
admin_menu(1,0)= "会员管理 "
admin_menu(1,1)= " <a href= " "schoolManage.asp " " target=main> 学校管理 </a> "
admin_menu(1,2)= " <a href= " "teacherManage.asp " " target=main> 老师管理 </a> "
'//新闻管理
admin_menu(2,0)= "新闻管理 "
admin_menu(2,1)= " <a href= " "Admin_NewsType.asp " " target=main> 分类管理 </a> | <a href= " "Admin_NewsType.asp?Action=ShowAdd " " target=main> 添加 </a> "
admin_menu(2,2)= " <a href= " "Admin_News.asp " " target=main> 新闻管理 </a> | <a href= " "Admin_AddNews.asp " " target=main> 添加 </a> "
'//周刊下载管理
admin_menu(3,0)= "周刊下载管理 "
admin_menu(3,1)= " <a href= " "magazineManage.asp " " target=main> 非会员订单管理 </a> "
admin_menu(3,2)= " <a href= " "fileManage.asp " " target=main> 文件管理 </a> "
admin_menu(3,3)= " <a href= " "userManage2.asp " " target=main> 会员资料管理 </a> "
'//eshop管理
admin_menu(4,0)= "eshop管理 "
admin_menu(4,1)= " <a href= " "eshopManage.asp " " target=main> 商品管理 </a> "
admin_menu(4,2)= " <a href= " "orderManage.asp " " target=main> 订单管理 </a> "
'//网上课堂管理
admin_menu(5,0)= "网上课室管理 "
admin_menu(5,1)= " <a href= " "danxiangmanage.asp " " target=main> 收费用户题库 </a> "
admin_menu(5,2)= " <a href= " "communitymanage.asp?type=%B9%FA%C3%F1%BD%CC%D3%FD&flag=1 " " target=main> 国民教育管理 </a> "
'//系统管理
admin_menu(6,0)= "系统管理 "
admin_menu(6,1)= " <a href= " "../web/bbs/admin_home.asp " " target=main> 交流区管理 </a> "
admin_menu(6,2)= " <a href= " "txManage.asp " " target=main> 题型管理 </a> "
admin_menu(6,3)= " <a href= " "studentCornerManage.asp?flag=1 " " target=main> 学生角管理 </a> "
admin_menu(6,4)= " <a href= " "communitymanage.asp?type=%C1%AA%C2%E7%CB%F9&flag=1 " " target=main> 联络所管理 </a> "
admin_menu(6,5)= " <a href= " "funtimemanage.asp?flag=1 " " target=main> 欢乐时光管理 </a> "
admin_menu(6,6)= " <a href= " "superUserManage.asp " " target=main> 用户管理 </a> "
%>
<%
dim i
for i =0 to 6
if isempty(admin_menu(i,0))=true then exit for
%>
<TR >
<TD background=Images/admin_left_ <%response.Write i+1%> .gif height=25 style= "cursor:hand " class=admin_menu_title id=admin_menuTitle1 onClick= "showsubadmin_menu( <%response.Write i%> ) ">
<strong> <font color= "#6699CC "> <%response.Write admin_menu(i,0)%> </font> </strong>
</TD>
</TR>
<TR >
<TD id= 'subadmin_menu <%response.Write i%> '> <DIV class=sec_menu style= "WIDTH: 158 ">
<table cellpadding=0 cellspacing=0 align=center width=158>
<%
dim j
for j=1 to 13
if isempty(admin_menu(i,j))=true then exit for
'response.Write j
response.Write " <tr> "
response.Write " <td height=20> "&admin_menu(i,j)& " </td> "
response.Write " <tr> "
next
%>
</table>
</DIV>
<DIV style= "WIDTH: 158px ">
<TABLE align=center cellPadding=0 cellSpacing=0 width=158>
<TBODY>
<TR >
<TD height=15> </TD>
</TR>
</TBODY>
</TABLE>
</DIV> </TD>
</TR>
<%next%>