服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp验证Ip格式的函数

asp验证Ip格式的函数

2019-10-12 10:46阿里西西 ASP教程

asp验证Ip格式的函数

  1. <%  
  2. '******************************  
  3. '函数:CheckIp(paR_strIp)  
  4. '参数:str 要检测的字符串  
  5. '作者:阿里西西  
  6. '日期:2007/7/13  
  7. '描述:验证Ip格式,是返回1,否则返回0  
  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. %> 

延伸 · 阅读

精彩推荐