验证Ip格式<% ‘****************************** ‘函数:CheckIp(paR_strIp) ‘参数:str 要检测的字符串 ‘作者:阿里西西 ‘日期:2007/7/13 ‘描述:验证Ip格式,是返回1,否则返回0 ‘示例:<%=CheckIp(“219.45.23.11”)%> ‘****************************** Function CheckIp(paR_strIp) CheckIp =0 Dim tmpLoop, tmpStr tmpStr =paR_strIp If tmpS