ASP to verify the function of IP format _ application techniques

Verifying IP format <%
'******************************
' Function: Checkip (Par_strip)
' parameter: str string to be detected
' Author: Arisisi
' Date: 2007/7/13
' Description: Verify the IP format, is to return 1, otherwise return 0
' Example: <%=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 Exit Function
Next
Checkip =1
End Function
%>