Random VBScript在循环中生成相同的随机数-如何解决？

我有一个函数，它生成一个8个字符长的随机数字串。如果它每页调用一次（如果我刷新它将显示一个新号码），它就可以工作

但我想在一个循环中生成许多这样的函数，并返回相同的数字。我怎样才能解决这个问题

Function generateCode()

   pChar = "0123456789"

   pCount = Len(pChar) 

   Dim psw
   psw = ""

   Randomize
   For i = 1 To 8 ' password length
      psw = psw & Mid( pChar, 1 + Int(Rnd * pCount), 1 )
   Next

 generateCode= psw
End Function

现在我认为Randomize可能基于当前时间，所以我将Randomize行取出，在调用generateCode（）的循环之前调用Randomize-仍然不起作用

不带任何参数，使用系统时间对伪随机数生成器进行种子设定。如果您非常快地多次调用它，系统时间将不会改变，因此每次都将使用相同的种子重新初始化PRNG，并给出相同的随机数

---

您应该在页面上只调用Randomize一次，而不是多次。

我已经对我的电脑大喊大叫了将近两天，想找到答案，谢谢+1.