ASP产生一个可控范围随机数的函数

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'随机数，仅指定上限
'产生一个从1到upperbound的随机数
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function rndNum (upperbound) 
 lowerbound=0
 Randomize
 rndNum=Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
End Function

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'随机数，指定上限，下限
'产生一个从lowerbound到upperbound的随机数
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function rndNum (lowerbound,upperbound) 
Randomize
rndNum=Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
End Function