asp怎样将数字从左边每四个隔开

比如4587854465105464输出时要4587 8544 6510 5464 23
用asp如何实现？

---

VBScript code:

s = "4587854465105464"

With New RegExp
.Pattern = "\d{4}"
.Global = True
s = .Replace(s, "$& ")
End With

Response.Write s

---

源代码 加个 

---

VBScript code:
s="4587854465105464"
s2=""
for i=1 to len(s) step 4
if s2="" then
s2 = mid(s,i,4)
else
s2 = s2 & " " & mid(s,i,4)
end if
next
response.write s2

---

各位最好能给个函数，因为有多处需要调用

---

搞错。。我上面的  不行。。。。
{{