Question

用ASP写一段代码,判断一个变量a是否是一个有效的IP地址。

用ASP写一段代码,判断一个变量a是否是一个有效的IP地址。

Answer 1

function ipcheck(ip)
dim temp
temp=left(ip,instr(ip,".")-1)
ip=right(ip,len(ip)-instr(ip,"."))
if cint(temp)>255 and cint(temp)<0 and temp<>"" then
ipcheck=false
exit function
end if
temp=left(ip,instr(ip,".")-1)
ip=right(ip,len(ip)-instr(ip,"."))
if cint(temp)>255 and cint(temp)<0 and temp<>"" then
ipcheck=false
exit function
end if
temp=left(ip,instr(ip,".")-1)
ip=right(ip,len(ip)-instr(ip,"."))
if cint(temp)>255 and cint(temp)<0 and temp<>"" then
ipcheck=false
exit function
end if
if cint(ip)>255 and cint(ip)<0 and ip<>"" then
ipcheck=false
exit function
end if
ipcheck=true
end function

ipcheckip(a)

Answer 2

dim a

Function IsRealIP(str)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "^(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])$"
IsValidEmail = regEx.Test(str)
End Function

if IsRealIP(a) then '判断a是否正确有效ip地址
'结果........
end if