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

下标越界: '[number: 1]'

/bbs/Inc/YX_Cls.Asp，行 395

代码如下：

Function GetIp(Ip,IpNum)
        Dim Arr_Ip
        If Ip="" Then Exit Function
        Arr_Ip=split(Ip,".")
        Select Case IpNum
            Case "1"
                GetIp=Arr_Ip(0) & ". * . * . * "
            Case "2"
                GetIp=Arr_Ip(0) & "." & Arr_Ip(1) & ". * . * "    （这是395行）
            Case "3"
                GetIp=Arr_Ip(0) & "." & Arr_Ip(1) & "." & Arr_Ip(2) & ". * "
            Case "4"
                GetIp=Arr_Ip(0) & "." & Arr_Ip(1) & "." & Arr_Ip(2) & "." & Arr_Ip(3)
            Case Else
                GetIp=" * . * . * . * "
        End Select
    End Function

参数"Ip"不对头，不符合格式。很可能没有"."。

<?php

function getIp($ip,$ipnum=''){
if($ip==""){exit;}
$arrIp=explode('.',$ip);
switch($ipnum){
case "1":
return $arrIp[0].".*.*.*";
case "2":
return $arrIp[0].".".$arrIp[1].".*.*";
default:
return "*.*.*.*";

}

}
echo getIp('192.168.0.1','1');

?>

不好意思.只有装PHP.检查下没问题.

检查传入参数，传入参数格式不正确

2楼的大哥能不能详细一点啊，小弟很茫然啊！

你的那个Ip参数用Request获得的？

你传进去的Ip不是标准点分十进制格式IP，为什么不是你就得自己查了。