★50分求解？？为什么我的【ASP】如此这般？？？～～～～～

[swordqj]

写了一个十进制导2进制的函数
function To102(sun)
dim B
For i = 1 To Len(hex(sun))
Select Case Mid(hex(sun), i, 1)
Case "0": B = B & "0000"
Case "1": B = B & "0001"
Case "2": B = B & "0010"
Case "3": B = B & "0011"
Case "4": B = B & "0100"
Case "5": B = B & "0101"
Case "6": B = B & "0110"
Case "7": B = B & "0111"
Case "8": B = B & "1000"
Case "9": B = B & "1001"
Case "A": B = B & "1010"
Case "B": B = B & "1011"
Case "C": B = B & "1100"
Case "D": B = B & "1101"
Case "E": B = B & "1110"
Case "F": B = B & "1111"
End Select
Next
To102=B
end function

当
response.write To102(3)
的时候很正常

当
for i=1 to 3
response.write To102(i)
next
的时候

速度死慢，请问为什么？？？

[lienzhu]

我的10进制转2进制函数：
Function N10To2(num)
Dim tmp
tmp = ""
Do While num > 1
tmp = (num Mod 2) & tmp
num = num \ 2
Loop
tmp = num & tmp
N10To2 = tmp
End Function

[lienzhu]

function To102(sun)
dim B
hexnum=hex(sun)
length=len(hexnum)
For i = 1 To length
Select Case Mid(hexnum, i, 1)
Case "0": B = B & "0000"
Case "1": B = B & "0001"
Case "2": B = B & "0010"
Case "3": B = B & "0011"
Case "4": B = B & "0100"
Case "5": B = B & "0101"
Case "6": B = B & "0110"
Case "7": B = B & "0111"
Case "8": B = B & "1000"
Case "9": B = B & "1001"
Case "A": B = B & "1010"
Case "B": B = B & "1011"
Case "C": B = B & "1100"
Case "D": B = B & "1101"
Case "E": B = B & "1110"
Case "F": B = B & "1111"
End Select
Next
To102=B
end function

for n=1 to 3
response.write To102(n)
next

如果在外面用i,那么i是全局变量，和函数中i冲突，可能赵成死循环