相关疑难解决方法(0)

所以我有这个函数生成一个长度为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可能基于当前时间,因此我在调用generateCode()i的循环之前取出Randomize线并调用Randomize仍然无效!