asp验证Ip格式的函数_ASP教程-查字典教程网
asp验证Ip格式的函数
asp验证Ip格式的函数
发布时间:2016-12-29 来源:查字典编辑
摘要:验证Ip格式255OrCint(tmpStr(tmpLoop))

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

%>

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新ASP教程学习
    热门ASP教程学习
    编程开发子分类