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如果調(diào)用<%=rs("ip")%>提示Microsoft VBScript 運行時錯誤 錯誤 '800a0009'下標越界: 'i'/ip2.asp，行 92
1 回答
哈士奇WWW
TA貢獻1799條經(jīng)驗 獲得超6個贊
你確定 /ip2.asp，行 92 是在你這Function IPToInt(IP)里面嗎?
<%=rs("ip")%>是數(shù)據(jù)庫操作,看不出來和你調(diào)用Function IPToInt(IP)
函數(shù)有什么關(guān)系.
添加回答
舉報
0/150
提交
取消