在指定文本框中输入任意IP
比如说
166.66.66.1
我想将此数据存到数据库中时变为
166.066.066.001
默认的格式是“000.000.000.000”
不足的自动在前端补零
望高手指点！
在线等
给分！
---------------------------------------------------------------
str = "166.66.66.1"
arr = Split(str,".")
for i = 0 To 3
arr(i) = Left("00"&arr(i),3)
Next
str = arr(0) & "." & arr(1) & "." arr(2) & "." & arr(3)
---------------------------------------------------------------
ip=request("ip")
a=split(ip,".")
for i=0 to ubound(a)
if 3-len(a(i)) >0 then
for j=1 to 3-len(a(i))
a(i)="0"&a(i)
next
end if
next
---------------------------------------------------------------
分成四个数，再加零。
dim i:i=16
response.write Num2Str(i, 6, "0")
Public Function Num2Str(num , length, chr)
Dim strTemp
strTemp = Right(Space(length) & CStr(num), length)
strTemp = Replace(strTemp, " ", chr)
Num2Str = strTemp
End Function
---------------------------------------------------------------
错了，应该这样
1
2
3ip="166.66.66.1"
4a=split(ip,".")
5for i=0 to ubound(a)
6if 3-len(a(i)) >0 then
7for j=1 to 3-len(a(i))
8a(i)="0"&a(i)
9next
10end if
11next
12ip=""
13for i=0 to ubound(a)
14ip=ip&a(i)&"."
15next
16response.write ip
---------------------------------------------------------------
为你量身定做的程序，我测试过了，没有错：
有什么不懂的，来问我，MSN：[email protected]
1
2Dim IP,IP_Class,I,IP_Class_Number,J
3IP="166.66.61.1"
4IP_Class=split(IP,".")
5I=0
6
7For I=0 to ubound(IP_Class)
8
9IP_Class_Number=3-len(IP_Class(I))
10
11For J=0 to IP_Class_Number-1
12
13If IP_Class_Number<>0 then
14IP_Class(I)="0"&IP_Class(I)
15Else
16Exit For
17end if
18Next
19
20Response.Write IP_Class(I)&"."
21
22Next
23
---------------------------------------------------------------------------
您永远的朋友：Oldjacky
2003-07-17 上
---------------------------------------------------------------
1<input id="xx"/>
1<input onclick="sw()"/>
1<script>
2
3function sw()
4{
5var ss=xx.value.split(".")
6for(var i=0;i<4;i++)
7{
8switch(ss[i].length)
9{
10case 1:
11{
12ss[i]="00"+ss[i]
13
14}
15break;
16case 2:
17{
18ss[i]="0"+ss[i]
19
20}
21break;
22}
23
24}
25var aa=ss[0]+"."+ss[1]+"."+ss[2]+"."+ss[3]
26alert(aa)
27
28}
29</script>