岩浆吞人视频:asp问题！！！在线等！！！

<!--#INCLUDE FILE="config.asp" -->
。
。
。
。
</TR>
<TR align=center>
<TD width="41%">昵称
<input name="user" type="text" value="<%=Request.QueryString("user")%>" size=10 maxlength=12>
密码
<input type="password" name="pass" maxlength=13 size=10> </TD>
<TD width="39%"> 性别:
<INPUT type="radio" name="radio1" onclick="login.sex.value=0;">
女
<INPUT type="radio" name="radio1" onclick="login.sex.value=1;">
男
<INPUT name="radio1" type="radio" onclick="login.sex.value=2;" checked>
保密
<INPUT type="hidden" name="sex"> </TD>
<TD width="10%"> <INPUT name="fp" type="checkbox" value="ON" checked>
包厢 </TD>
<TD width="10%"><input type="submit" name="Submit" value="进入"> </TD>
</TR>
</TABLE>
<!--********************************************************************************************-->
<TABLE cellSpacing=0 cellPadding=3 width="628" border=1 align=center>
<TR align=middle>
<TD width="52">选择</TD>
<TD width="103">聊天室名称</TD>
<TD width="100"> 在线人数</TD>
<TD width="339">当前话题</TD>
</TR>
<%
roominfo=Application("roominfo")
for j=0 to ubound(roominfo,1)
%>
<TR align=middle>
<TD width="52"><input type="radio" value="<%=roominfo(j,0)%>" name="rooms" <%if j=0 then%>checked<%end if%>></TD>
<TD width="103"><%=roominfo(j,1)%></TD>
<TD width="100"> <Script Language="JavaScript">
v = "<%=Application("zzbird_name_" & roominfo(j,0))%>";
if(v!="")
{
v = v.substring(1,v.length-1);
lis = v.split(",,");
document.write(lis.length);
}
else
{document.write("0");}
</Script>
/<%=roominfo(j,2)%> </TD>
<TD width="339" align="left"> <%=roominfo(j,5)%></TD>
</TR>
<%next%>
</TABLE>
<!--********************************************************************************************-->
</form>
</div>
<IMG
border=0 height="100%" src="index.files/top.gif" width="100%"></DIV>
<DIV></DIV></SCRIPT>
<SCRIPT> if (document.all) document.body.onmousedown=new Function("if (event.button==2) menu.Click();") </SCRIPT>
<div id="Layer2" style="position:absolute; width:631px; height:18px; z-index:23; left: 105px; top: 587px;">
<TABLE width="630" height="19" border=1 align=center cellPadding=3 cellSpacing=0">
<tr>
。
。
。
</tr>
</TABLE>
</div>
</BODY></HTML>
动行后出现：
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'ubound'
/chat/index.asp，行 120
及求解决！！
在线等！！！