当运行default.asp时，总提示有错误：
UBound类型不匹配！
-----------------------------------------------
global.asa文件部分代码
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Dim Stats(100, 3)
Dim kicked(100)
Dim TempArray(50)
Dim banList(50)
Application("banList")=banList
Application("kicked")=kicked
Application( "Stats" ) = Stats
Application( "Talk" ) = TempArray
Application( "TPlace" ) = 0
Application( "SwearWords" ) = Split("词句 脏话", " ")
End Sub
...
-----------------------------------------------
default.asp文件部分代码
<%@ Language=VBScript %>
<%
Option Explicit
Dim ErrMsg, ReqID, Clr, ColorChoice
Dim TempArray, i, localStats,ban,t
ErrMsg = Request("ErrMsg")
ReqID = Request("ReqID")
If ErrMsg = "" Then
If ReqID <> "" Then
ban=Application("banList")
For t=0 To UBound(ban)
'response.write ban(t)
if ban(t)=request.ServerVariables("LOCAL_ADDR") then
response.write " <script>alert('ip被屏蔽');history.go(-1);</script>"
response.end
end if
next
'response.end
Session("sex") = Request.Form("sex")
ColorChoice = "<img src=images/"& session("sex") &".gif border=0>"
Session("ID") = ColorChoice & ReqID & ""
...
-----------------------------------------------
提示错误：
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'UBound'
/临时/NoneRefresh_Source/default.asp, 第 14 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页：
POST 52 ??? /临时/NoneRefresh_Source/default.asp
POST Data:
sex=boy&ReqID=usin&B1=%BD%F8%C8%EB%C1%C4%CC%EC%CA%D2
參考答案:banList 里面是空，所以报错
