title image


Smiley habs jetzt so gelöst
hüpft mir allerdings noch in einen fehler wenn ich buchstaben im übergebenen string habe..





Function CheckIP(MyString)

CheckIP = 1

Dim MyArray',MyString

'MyString = "12.256.588.44"

MyArray = Split(MyString, ".", -1, 1)

& "" & MyArray(3)

'Response.Write " anzahl: "

'Response.Write UBOUND(MyArray)

dim i

If UBOUND(MyArray) 3 Then

CheckIP = 0

End If

for i=0 to UBOUND(MyArray)

'If not isnumeric(Array(i)) then

' CheckIP = 0

'End IF

If MyArray(i) > 255 Then

CheckIP = 0

End If

If MyArray(i) < 1 Then

CheckIP = 0

End If

'Response.Write ""

'Response.write MyArray(i)

'Response.Write ""

next

End Function


ASP i.V.m. MSSQL, PHP mit MySQL, W2k + W2k3 Server, Crystal Reports 8.5 + 11 Server+Developer, Word, Excel, Access 2000 + 2003, Outlook, Citrix MSAM, Linux Neu: Microsoft Office Sharepoint Server 2007, ASP.Net

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: