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