您所在的位置:小祥子 » 编程 » ASP » 正文

ASP将IP地址转换成16进制

时间:2015-03-11 编辑:本站 来源:本站原创

<%
function iptohex(byref strip)
 dim hexip,iparr,vi
 iparr=split(strip,".")
 hexip=""

 for vi=0 to ubound(iparr)
  if len(iparr(vi))<=3 then
   if isnumeric(iparr(vi))=true then
    if cint(iparr(vi))<=255 then hexip=hexip & fullsize(hex(iparr(vi)),2)
   end if
  end if
 next
 iptohex=hexip
end function
function fullsize(byref istr,byref isize)
 if len(istr)<isize then
  fullsize=string(isize-len(istr),"0") & istr
 else
  fullsize=istr
 end if
end function
response.Write iptohex("127.0.0.1")
%>

关键词:ASP IP 地址 转换