下列函数，用以生成随机的数字
function MyRandn(n) '生成随机数字，n为数字的个数
dim thechr
thechr = ""
for i=1 to n
dim zNum,zNum2
Randomize
zNum = cint(9*Rnd)
zNum = zNum + 48
thechr = thechr & chr(zNum)
next
MyRandn = thechr
end function
MyRandn(n) 生成随机数字，n为数字的个数
如：
response.write MyRandn(10)
输出10个随机数字
