内容载入中...
演示:
62741618583286538060230833491782217116995395533922514376575829327214661252945029762855211007127772633066757355648498453442968626355802259334956947914666267937531021616356734983608565998581399365657412091167684
<%
'**************************************************************************
' CLASS: cRandom
' Calls randomize to seed the random number generator.
' Provides functions for returning ranged random integers or arrays of
' ranged random integers.
'**************************************************************************
class cRandom
' Calling randomize to seed the random number generator at the time the
' class is created seemed like a reasonable thing to do.
private sub Class_Initialize()
' Check the VBScript documentation for the specifics relating
' to the Randomize function
Randomize
end sub
' Terminate doesn't need to do anything for this class
