asp验证Ip格式的函数

答案：验证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 
%>

上一个：asp 下产生任意位数随机密码的代码
下一个：asp 用InStr查找特定字符串的代码