驗證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
%>