验证Ip格式<% '****************************** '函数:CheckIp(paR_strIp) '参数:str 要检测的字符串 '作者:阿里西西 '日期:2007/7/13 '描述:验证Ip格式,是返回1,否则返回0 '示例:<%=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下取得客户端IP地址函数 转换IP地址函数
<% '****************************** '函数:Userip() '参数:无 '作者:阿里西西 '日期:2007/7/12 '描述:取得客户端IP地址 '示例:<%=Userip()%> '****************************** Function Userip() Dim GetCl>>>详细阅读
本文标题:asp验证Ip格式的函数
地址:http://www.17bianji.com/kaifa2/ASP/32507.html
1/2 1