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

Question

Function IPToInt(IP)Dim IPArray, iIPArray = Split(IP, ".", -1)FOr i = 0 to 3If Not IsNumeric(IPArray(i)) Then IPArray(i) = 0If CInt(IPArray(i)) < 0 Then IPArray(i) = Abs(CInt(IPArray(i)))If CInt(IPArray(i)) > 255 Then IPArray(i) = 255NextIPToInt = (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)
函数有什么关系.