<%
 
'一个无指定范围的随机数
Function GetRandomize(numstr)
Randomize
GetRandomize = Int((numstr * Rnd) + 1)
End Function

'生成指定范围的随机数
Function MyRnd(NumMin,NumMax)
Randomize
MyRnd = Int(Rnd * (NumMax - NumMin + 1)) + NumMin
End Function

%>