asp验证Ip格式的函数

1. <%  
2. '******************************  
3. '函数：CheckIp(paR_strIp)  
4. '参数：str 要检测的字符串  
5. '作者：阿里西西  
6. '日期：2007/7/13  
7. '描述：验证Ip格式，是返回１，否则返回０  
8. '示例：<%=CheckIp("219.45.23.11")%>  
9. '******************************  
10. Function CheckIp(paR_strIp)  
11.    CheckIp =0  
12.    Dim tmpLoop, tmpStr  
13.    tmpStr =paR_strIp  
14.    If tmpStr ="" Or IsNull(tmpStr) Then Exit Function  
15.    tmpStr =Split(tmpStr, ".")  
16.    If Not isArray(tmpStr) Then Exit Function  
17.  
18.    For tmpLoop =0 To ubound(tmpStr)  
19.       If tmpStr(tmpLoop) ="" Or IsNull(tmpStr(tmpLoop)) Then Exit Function  
20.       If Not isNumeric(tmpStr(tmpLoop)) Then Exit Function  
21.       If Cint(tmpStr(tmpLoop)) >255 Or Cint(tmpStr(tmpLoop)) <1 Then Exit Function  
22.    Next  
23.    CheckIp =1  
24. End Function  
25. %>