 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<script language="JScript" Runat="Server"> function IPDeCode(EIP){ var Ip1,Ip2,Ip3,Ip4; Ip1 = moveByteR(EIP & 0xff000000,3); Ip2 = moveByteR(EIP & 0x00ff0000,2); Ip3 = moveByteR(EIP & 0x0000ff00,1); Ip4 = EIP & 0x000000ff; return Ip1 + "." + Ip2 + "." + Ip3 + "." + Ip4; } function moveByteL(num,bytenum){ return num <<= (bytenum*8) } function moveByteR(num,bytenum){ return num >>>= (bytenum*8) } </script> 在vbs中没有位操作，这样在一个页面中用到了js和vbs，并不好，假如用vbs也可以，不过罗嗦了一些，而且有一点注重，假如在vbs中split("202.102.29.6",".")，会得到202，102，29三个数，得不到最后一个6，所以需要将ip换成split("202.102.29.6" & ".",".") 我用vbs做的，由于没有位操作，所以做得比较麻烦 <% function ip2int(ipstr) dim iptemp,max iptemp = split(ipstr&".",".") max = ubound(iptemp) if max <> 4 then exit function end if dim a,b,i a = "&H" for i = 0 to 3 b = Hex(iptemp(i)) if len(b) = 1 then b = "0"&b end if a = a&b next ip2int = CLng(a) end function function int2ip(ip) dim iptemp,a,ipstr,i,length iptemp = Hex(ip) length = 8 - len(iptemp) for i = 1 to length iptemp = "0" & iptemp next a = left(iptemp,2) a = "&H" & a i = CInt(a) a = CStr(i) ipstr = a & "." a = mid(iptemp,3,2) a = "&H" & a i = CInt(a) a = CStr(i) ipstr = ipstr & a & "." a = mid(iptemp,5,2) a = "&H" & a i = CInt(a) a = CStr(i) ipstr = ipstr & a & "." a = right(iptemp,2) a = "&H" & a i = CInt(a) a = CStr(i) ipstr = ipstr & a int2ip = ipstr end function dim testIP,testInt testIP="202.102.29.6" testInt = ip2int(testIP) response.write testIP & " will be encoded to <font color=red>" & testInt & "</font><br>" response.write testIP & " will be dencoded to <font color=red>" & int2ip(testInt) & "</font><br>" %> 返回类别: 教程 上一教程: IIS5中的两种服务器端网页重定向方式 下一教程: ASP小偷(远程数据获取)程序入门教程 您可以阅读与"IP地址分段计算"相关的教程: · ASP如何获取客户端真实IP地址 · 通过网络域名得到这台主机的IP地址 · 全球IP地址查询完整版 · 用Javascript隐藏超级链接的真实地址 · 用通ASP直接获取用户真实IP地址 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
