黑人巨大精品欧美黑白配亚洲_蜜臀av在线播放一区二区三区_欧美日韩国产在线播放网站_好吊妞**欧美_欧美精品一区二区三区蜜桃_国产精品一二三视频_在线观看三级视频欧美_性欧美超级视频_蜜桃av噜噜一区_免费不卡在线观看av_亚洲免费视频在线观看_国产精品美女久久久久久免费_欧美片在线播放_一色屋精品视频在线看_国产情侣一区_亚洲电影在线免费观看

驗證Ip格式<%
'******************************
'函數：CheckIp(paR_strIp)
'參數：str 要檢測的字符串
'作者：阿里西西
'日期：2007/7/13
'描述：驗證Ip格式，是返回１，否則返回０
'示例：<%=CheckIp("219.45.23.11")%>
'******************************
Function CheckIp(paR_strIp)
   CheckIp =0
   Dim tmpLoop, tmpStr
   tmpStr =paR_strIp
   If tmpStr ="" Or IsNull(tmpStr) Then Exit Function
   tmpStr =Split(tmpStr, ".")
   If Not isArray(tmpStr) Then Exit Function

   For tmpLoop =0 To ubound(tmpStr)
      If tmpStr(tmpLoop) ="" Or IsNull(tmpStr(tmpLoop)) Then Exit Function
      If Not isNumeric(tmpStr(tmpLoop)) Then Exit Function
      If Cint(tmpStr(tmpLoop)) >255 Or Cint(tmpStr(tmpLoop)) <1 Then Exit Function
   Next
   CheckIp =1
End Function
%>