这套在线的程序，在本机没事，在server老提示类型不匹配: 'LBOUND' 的错误

Derekwong6688 2003-11-21 04:40:21

这套在线的程序，在本机没事，在server老提示

15行类型不匹配: 'LBOUND' 的错误

服务器重新启动刚开始就是好的，但是过了会就会出这个错误，在本机就不会。

<%
Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, NewUser, User, UserName
RefreshTime = 10 'ÉèÖÃÍøÒ³×Ô¶¯¸üÐÂÊ±¼äÎª10Ãë
IdleTime = RefreshTime * 3 'ÉèÖÃÏÐÖÃÊ±¼äÎª×Ô¶¯¸üÐÂÊ±¼äµÄ3±¶
NewUser = Session("MM_Username") '¶ÁÈ¡ÓÃ»§ÊäÈëµÄÃû³Æ
Application.Lock

If Application(NewUser & "LastAccessTime") = Empty Then
If Application("TotalUsers") = Empty Then Application("TotalUsers") = 0
ReDim Tmp(Application("TotalUsers") + 1)
Num = 0
If Application("TotalUsers") > 0 Then
这里就是15行 For I = LBOUND(Application("OnlineUser")) To UBOUND(Application("OnlineUser"))
User = Application("OnlineUser")(I)
If User <> NewUser AND User <> Session("UserName") Then
Tmp(Num) = User
Num = Num + 1
Else
Application(User & "LastAccessTime") = Empty
End If
Next
End If
Session("UserName") = NewUser
Tmp(Num) = Session("UserName")
Application("TotalUsers") = Num + 1
ReDim Preserve Tmp(Application("TotalUsers"))
Application("OnlineUser") = Tmp
End If

'¼ÇÂ¼Ä¿Ç°ÓÃ»§µÄ×î½ü´æÈ¡Ê±¼ä
Application(Session("UserName") & "LastAccessTime") = Timer

'¼ì²éËùÓÐÁ¬Ïßµ½´ËÍøÒ³µÄÓÃ»§µÄ×î½ü´æÈ¡Ê±¼ä£¬ÈôÓëÄ¿Ç°Ê±¼äÏà²î30ÃëÒÔÉÏ£¬±íÊ¾ÀëÏß
ReDim Tmp(Application("TotalUsers"))
Num = 0
For I = 0 To Application("TotalUsers") - 1
User = Application("OnlineUser")(I)
If (Timer - Application(User & "LastAccessTime")) < IdleTime Then
Tmp(Num) = User
Num = Num + 1
Else
Application(User & "LastAccessTime") = Empty
End If
Next

'Num±íÊ¾Ä¿Ç°ÔÚÏßÈËÊý£¬ÈôÓëApplication("TotalUsers")²»Í¬£¬±íÊ¾ÖÐ¼äÓÐÈËÀëÏß
If Num <> Application("TotalUsers") Then
ReDim Preserve Tmp(Num)
Application("OnlineUser") = Tmp
Application("TotalUsers") = Num
End If

Application.UnLock
%>
<META HTTP-EQUIV="Refresh" CONTENT="<%= RefreshTime %>">
<style type="text/css">
TD {
FONT-SIZE: 9pt; FONT-FAMILY: "ËÎÌå"
}

a:link {
text-decoration: none;
color: #FF0000;
font-size: 9pt;
font-family: "Verdana", "Arial", "Helvetica", "sans-serif";
}
a:visited {
text-decoration: none;
color: #FF0000;
font-size: 9pt;
font-family: "Verdana", "Arial", "Helvetica", "sans-serif";
}
a:hover {
text-decoration: underline;
color: #FF0000;
font-size: 9pt;
font-family: "Verdana", "Arial", "Helvetica", "sans-serif";
font-weight: bold;
}
.bdtj{background: #62A1C2; border: 1px solid; border-color:#A8C9DA; color: FFFFFF; font-size: 9pt; height: 18px}
.top{border: 1px solid; border-color:#00BBE2; color: #0077B8; font-size: 9pt}
BODY{
SCROLLBAR-HIGHLIGHT-COLOR: #62A1C2;
SCROLLBAR-SHADOW-COLOR: #62A1C2;
SCROLLBAR-3DLIGHT-COLOR: #62A1C2;
SCROLLBAR-TRACK-COLOR: #A8C9DA;
SCROLLBAR-DARKSHADOW-COLOR: #62A1C2;
SCROLLBAR-BASE-COLOR: #62A1C2;
background-color: #e1e1e1;
}
</style>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<center>
<table width=100% border="0" cellpadding="4" cellspacing="0" bgcolor="#e1e1e1" style="border-collapse: collapse" >
<tr >
<td height=1 bgcolor="#333333" ></td>
</tr>
<tr >
<td height=1 bgcolor="#FFFFFF" ></td>
</tr>
<tr >
<td height=15>>> µ±Ç°ÔÚÏßÈËÊý£º<font face="Verdana, Arial, Helvetica, sans-serif"><%= Application("TotalUsers") %></font>ÈË</td>
</tr>
<tr>

<td height=15 background="pic/m_2.gif"> >> ÔÚÏßÈËÔ±£º
<% For I = 0 To (Application("TotalUsers") - 1) %> <% If Application("OnlineUser")(I) = ("") Then %> <%response.write"¿ÍÈË"%> <%else%>
<font color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif"><strong><%= Application("OnlineUser")(I) %></strong></font>
<%end if%>
</a>,
<%next%>
</td>
</tr>
</table>
</center>

...全文