asp验证Ip格式的函数
2018-09-06 13:04
阅读：317
验证Ip格式<%
******************************
函数：CheckIp(paR_strIp)
参数：str要检测的字符串
作者：阿里西西
日期：2007/7/13
描述：验证Ip格式，是返回１，否则返回０
示例：<%=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
%>
下一篇：一款不错的asp木马 黑色界面
评论
亲，登录后才可以留言！