<%
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 得到一个字符串
Dim temNum
Randomize
Do While Len(GetRandNum) < strLong
temNum = CStr(Chr((57 - 48) * Rnd + 48))
GetRandNum = GetRandNum&temNum
Loop
End Function
%>