VBScript 之function

上课实例把ip转化为十进制数

第一个模拟代码 没有循环 老师的样例代码:



 <html>
<head>
 <%
 Function userip(str)
 Dim ip(5)
 FOR i=1 To 3
 ip(i)=left(str,InStr(str,".")-1)
 str=Right(str,Len(str)-InStr(str,"."))
 Next
 ip(4)=str
 userip=Cint(ip(1))*256*256*256+Cint(ip(2))*256*256+Cint(ip(3))*256+Cint(ip(4))
 End Function
 response.Write "IP:192.168.1.24的十进制值为:"&userip("192.168.1.24")
 %>
 
 
</head>
<body></body>
</html>

 

第二个循环代码:

 

<html>
<head>
 <%
 function userip(strip)
 index=instr(strip,".")
 ipA=left(strip,index-1)
 strip=mid(strip,index+1)

 index=instr(strip,".")
 ipB=left(strip,index-1)
 strip=mid(strip,index+1)
 
 index=instr(strip,".")
 ipC=left(strip,index-1)
 strip=mid(strip,index+1)

 ipD=strip
 
 userip=Cint(ipA)*256*256*256+Cint(ipB)*256*256+Cint(ipC)*256+Cint(ipD)
 End Function
 response.Write "IP:192.168.1.24的十进制值为:"&userip("192.168.1.24")
 %>
</head>
<body></body>
</html>

 

你可能感兴趣的:(function,VBScript)