为什么提示Microsoft VBScript 运行时错误 错误 '800a0009'

Question

Function IPToInt(IP)
Dim IPArray, i
IPArray = Split(IP, ".", -1)
FOr i = 0 to 3
If Not IsNumeric(IPArray(i)) Then IPArray(i) = 0
If CInt(IPArray(i)) < 0 Then IPArray(i) = Abs(CInt(IPArray(i)))
If CInt(IPArray(i)) > 255 Then IPArray(i) = 255
Next
IPToInt = (CInt(IPArray(0))*256*256*256) + (CInt(IPArray(1))*256*256) + (CInt(IPArray(2))*256) + CInt(IPArray(3))
End Function

如果调用<%=rs("ip")%>

提示Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: 'i'

/ip2.asp，行 92

Answer 1

你确定 /ip2.asp，行 92 是在你这Function IPToInt(IP)里面吗?<%=rs("ip")%>是数据库操作,看不出来和你调用Function IPToInt(IP)函数有什么关系.