asp中使用随机方法的两个小函数
<%
Function GetRndNum(Min, Max)
If Max < Min Then GetRndNum = 0 : Exit Function
Randomize()
GetRndNum = CLng((Max - Min) * Rnd() + Min)
rem 得到Min和max之间的一个随机的数字
End Function
%>
<%
Function GetRandNum (strLong)
rem 参数 strlong:长度
rem asp学习网 www.aspxuexi.com
rem 得到一个字符串
Dim temNum
Randomize
Do While Len(GetRandNum) < strLong
temNum = CStr(Chr((57 - 48) * Rnd + 48))
GetRandNum = GetRandNum&temNum
Loop
End Function
%>
本文主题随机,Randomize()
