返回一个很难很难重复的随机编码(至少我没发现重复过),大家共同探讨.

newbyte

´==================================================================
´函数名： MakeRandomizeCode
´作者：    easy
´日期：    2005-05-09
´功能：    生成一个永不重复的随机编码随即数+日期+时+分+秒
´输入参数：无
´返回值：随机编码
´修改记录：
´==================================================================
Function MakeRandomizeCode()
´ 禁止缓存
Randomize
Dim cAmount,cCode,i
cAmount=36 ´文字数量
cCode="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
´ 随机产生字符
Dim vCode(4), vCodes
For i = 0 To 3
     vCode(i) = Int(Rnd * cAmount)
     vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1)
Next
tempNum=year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) &timer()*100&vCodes
if trim(LCase(session("tempRandomizeCode")))=trim(lcase(tempNum)) then tempNum=MakeRandomizeCode()
session("tempRandomizeCode")=tempNum
MakeRandomizeCode=tempNum
End Function