asp验证Ip格式的函数
发布时间:2016-12-29 来源:查字典编辑
摘要:验证Ip格式255OrCint(tmpStr(tmpLoop))
验证Ip格式<%
'******************************
'函数:CheckIp(paR_strIp)
'参数:str要检测的字符串
'作者:阿里西西
'日期:2007/7/13
'描述:验证Ip格式,是返回1,否则返回0
'示例:<%=CheckIp("219.45.23.11")%>
'******************************
FunctionCheckIp(paR_strIp)
CheckIp=0
DimtmpLoop,tmpStr
tmpStr=paR_strIp
IftmpStr=""OrIsNull(tmpStr)ThenExitFunction
tmpStr=Split(tmpStr,".")
IfNotisArray(tmpStr)ThenExitFunction
FortmpLoop=0Toubound(tmpStr)
IftmpStr(tmpLoop)=""OrIsNull(tmpStr(tmpLoop))ThenExitFunction
IfNotisNumeric(tmpStr(tmpLoop))ThenExitFunction
IfCint(tmpStr(tmpLoop))>255OrCint(tmpStr(tmpLoop))<1ThenExitFunction
Next
CheckIp=1
EndFunction
%>