VBScript 之function

最新推荐文章于 2020-02-07 17:04:50 发布

AI记忆

最新推荐文章于 2020-02-07 17:04:50 发布

阅读量2.2k

点赞数

分类专栏：动态网页设计课程.asp 文章标签： vbscript function

本文链接：https://blog.csdn.net/sunbaigui/article/details/4718531

版权

动态网页设计课程.asp 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

上课实例把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>