验证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

%>